vim: src/testdir/test_vim9_class.vim comparison

comparison src/testdir/test_vim9_class.vim @ 32854:5fd9fe58c791 v9.0.1737

patch 9.0.1737: Calling a base class method through an extended class fails Commit: https://github.com/vim/vim/commit/b102728c204430b16a5d9e6720c882e12a687570 Author: Yegappan Lakshmanan <yegappan@yahoo.com> Date: Sat Aug 19 11:26:42 2023 +0200 patch 9.0.1737: Calling a base class method through an extended class fails Problem: Calling a base class method through an extended class fails Solution: Create lookup table for member index in the interface to to the member class implementing the interface Create additional tests for Vim9 classes. Fix unconvered memory leaks and crashes found by the new tests. closes: #12848 closes: #12089 Signed-off-by: Christian Brabandt <cb@256bit.org> Co-authored-by: Yegappan Lakshmanan <yegappan@yahoo.com>author

author	Christian Brabandt <cb@256bit.org>
date	Sat, 19 Aug 2023 11:45:03 +0200
parents	b3a42579bb3f
children	a39314fa9495

comparison

equal deleted inserted replaced

-:1061521240a3
+:5fd9fe58c791
 class Something
 this.count:number
 endclass
 END
 v9.CheckScriptFailure(lines, 'E1069:')
+# Test for unsupported comment specifier
+lines =<< trim END
+vim9script
+class Something
+# comment
+#{
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1170:')
 lines =<< trim END
 vim9script
 class TextPosition
 assert_equal(v:t_object, type(pos))
 assert_equal('class<TextPosition>', typename(TextPosition))
 assert_equal('object<TextPosition>', typename(pos))
 END
 v9.CheckScriptSuccess(lines)
+# When referencing object methods, space cannot be used after a "."
+lines =<< trim END
+vim9script
+class A
+def Foo(): number
+return 10
+enddef
+endclass
+var a = A.new()
+var v = a. Foo()
+END
+v9.CheckScriptFailure(lines, 'E1202:')
+# Using an object without specifying a method or a member variable
+lines =<< trim END
+vim9script
+class A
+def Foo(): number
+return 10
+enddef
+endclass
+var a = A.new()
+var v = a.
+END
+v9.CheckScriptFailure(lines, 'E15:')
+# Error when parsing the arguments of an object method.
+lines =<< trim END
+vim9script
+class A
+def Foo()
+enddef
+endclass
+var a = A.new()
+var v = a.Foo(,)
+END
+v9.CheckScriptFailure(lines, 'E15:')
 enddef
 def Test_class_defined_twice()
 # class defined twice should fail
 var lines =<< trim END
 this.lnum = v:none
 this.col = 1
 endclass
 END
 v9.CheckScriptFailure(lines, 'E1330:')
+# Test for initializing an object member with an unknown variable/type
+lines =<< trim END
+vim9script
+class A
+this.value = init_val
+endclass
+END
+v9.CheckScriptFailureList(lines, ['E121:', 'E1329:'])
 enddef
 def Test_class_object_member_access()
 var lines =<< trim END
 vim9script
 assert_equal(33, trip.three)
 assert_fails('trip.four = 4', 'E1334')
 END
 v9.CheckScriptSuccess(lines)
+# Test for a public member variable name beginning with an underscore
+lines =<< trim END
+vim9script
+class A
+public this._val = 10
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1332:')
 lines =<< trim END
 vim9script
 class MyCar
 .Add(1)
 .Add(2)
 .x
 END
 v9.CheckScriptSuccess(lines)
+# Test for "public" cannot be abbreviated
+lines =<< trim END
+vim9script
+class Something
+pub this.val = 1
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1065:')
+# Test for "public" keyword must be followed by "this" or "static".
+lines =<< trim END
+vim9script
+class Something
+public val = 1
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1331:')
+# Test for "static" cannot be abbreviated
+lines =<< trim END
+vim9script
+class Something
+stat this.val = 1
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1065:')
 enddef
 def Test_class_object_compare()
 var class_lines =<< trim END
 vim9script
 var s = Some.new()
 s.Method(7)
 END
 v9.CheckScriptFailure(lines, 'E1341: Variable already declared in the class: count')
+# Test for using an invalid type for a member variable
+lines =<< trim END
+vim9script
+class A
+this.val: xxx
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1010:')
+# Test for no space before or after the '=' when initializing a member
+# variable
+lines =<< trim END
+vim9script
+class A
+this.val: number= 10
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1004:')
+lines =<< trim END
+vim9script
+class A
+this.val: number =10
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1004:')
+# Access a non-existing member
+lines =<< trim END
+vim9script
+class A
+endclass
+var a = A.new()
+var v = a.bar
+END
+v9.CheckScriptFailure(lines, 'E1326:')
 enddef
 func Test_class_garbagecollect()
 let lines =<< trim END
 vim9script
 assert_equal(1, Value.GetCount())
 var v2 = Value.new(7)
 assert_equal(2, Value.GetCount())
 END
 v9.CheckScriptSuccess(lines)
+# Test for cleaning up after a class definition failure when using class
+# functions.
+lines =<< trim END
+vim9script
+class A
+static def Foo()
+enddef
+aaa
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1318:')
 enddef
 def Test_class_defcompile()
 var lines =<< trim END
 vim9script
 endclass
 defcompile C.Fc
 END
 v9.CheckScriptFailure(lines, 'E1012: Type mismatch; expected number but got string')
+# Trying to compile a function using a non-existing class variable
+lines =<< trim END
+vim9script
+defcompile x.Foo()
+END
+v9.CheckScriptFailure(lines, 'E475:')
+# Trying to compile a function using a variable which is not a class
+lines =<< trim END
+vim9script
+var x: number
+defcompile x.Foo()
+END
+v9.CheckScriptFailure(lines, 'E475:')
+# Trying to compile a function without specifying the name
+lines =<< trim END
+vim9script
+class A
+endclass
+defcompile A.
+END
+v9.CheckScriptFailure(lines, 'E475:')
+# Trying to compile a non-existing class object member function
+lines =<< trim END
+vim9script
+class A
+endclass
+var a = A.new()
+defcompile a.Foo()
+END
+v9.CheckScriptFailureList(lines, ['E1334:', 'E475:'])
 enddef
 def Test_class_object_to_string()
 var lines =<< trim END
 vim9script
 enddef
 Test()
 END
 v9.CheckScriptSuccess(lines)
+# Interface name after "extends" doesn't end in a space or NUL character
+lines =<< trim END
+vim9script
+interface A
+endinterface
+class B extends A"
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1315:')
+# Trailing characters after a class name
+lines =<< trim END
+vim9script
+class A bbb
+endclass
+END
+v9.CheckScriptFailure(lines, 'E488:')
+# using "implements" with a non-existing class
+lines =<< trim END
+vim9script
+class A implements B
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1346:')
+# using "implements" with a regular class
+lines =<< trim END
+vim9script
+class A
+endclass
+class B implements A
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1347:')
+# using "implements" with a variable
+lines =<< trim END
+vim9script
+var T: number = 10
+class A implements T
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1347:')
+# all the class methods in an "interface" should be implemented
+lines =<< trim END
+vim9script
+interface A
+static def Foo()
+endinterface
+class B implements A
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1349:')
 enddef
 def Test_call_interface_method()
 var lines =<< trim END
 vim9script
 var v = Success.new('asdf')
 assert_equal("object of Success {success: true, value: 'asdf'}", string(v))
 END
 v9.CheckScriptSuccess(lines)
+# class name after "extends" doesn't end in a space or NUL character
+lines =<< trim END
+vim9script
+class A
+endclass
+class B extends A"
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1315:')
 enddef
 def Test_using_base_class()
 var lines =<< trim END
 vim9script
 abstract class Base
 this.name: string
 endclass
 END
 v9.CheckScriptFailure(lines, 'E1316:')
+# Abstract class cannot have a "new" function
+lines =<< trim END
+vim9script
+abstract class Base
+def new()
+enddef
+endclass
+END
+v9.CheckScriptFailure(lines, 'E1359:')
 enddef
 def Test_closure_in_class()
 var lines =<< trim END
 vim9script
 var l = Stack(foo1, foo2)
 END
 v9.CheckScriptSuccess(lines)
 enddef
+" Test for calling methods from three levels of classes
+def Test_multi_level_method_call()
+var lines =<< trim END
+vim9script
+var A_func1: number = 0
+var A_func2: number = 0
+var A_func3: number = 0
+var B_func2: number = 0
+var B_func3: number = 0
+var C_func3: number = 0
+class A
+def Func1()
+A_func1 += 1
+enddef
+def Func2()
+A_func2 += 1
+enddef
+def Func3()
+A_func3 += 1
+enddef
+endclass
+class B extends A
+def Func2()
+B_func2 += 1
+enddef
+def Func3()
+B_func3 += 1
+enddef
+endclass
+class C extends B
+def Func3()
+C_func3 += 1
+enddef
+endclass
+def A_CallFuncs(a: A)
+a.Func1()
+a.Func2()
+a.Func3()
+enddef
+def B_CallFuncs(b: B)
+b.Func1()
+b.Func2()
+b.Func3()
+enddef
+def C_CallFuncs(c: C)
+c.Func1()
+c.Func2()
+c.Func3()
+enddef
+var cobj = C.new()
+A_CallFuncs(cobj)
+B_CallFuncs(cobj)
+C_CallFuncs(cobj)
+assert_equal(3, A_func1)
+assert_equal(0, A_func2)
+assert_equal(0, A_func3)
+assert_equal(3, B_func2)
+assert_equal(0, B_func3)
+assert_equal(3, C_func3)
+END
+v9.CheckScriptSuccess(lines)
+enddef
+" Test for using members from three levels of classes
+def Test_multi_level_member_access()
+var lines =<< trim END
+vim9script
+class A
+this.val1: number = 0
+this.val2: number = 0
+this.val3: number = 0
+endclass
+class B extends A
+this.val2: number = 0
+this.val3: number = 0
+endclass
+class C extends B
+this.val3: number = 0
+endclass
+def A_members(a: A)
+a.val1 += 1
+a.val2 += 1
+a.val3 += 1
+enddef
+def B_members(b: B)
+b.val1 += 1
+b.val2 += 1
+b.val3 += 1
+enddef
+def C_members(c: C)
+c.val1 += 1
+c.val2 += 1
+c.val3 += 1
+enddef
+var cobj = C.new()
+A_members(cobj)
+B_members(cobj)
+C_members(cobj)
+assert_equal(3, cobj.val1)
+assert_equal(3, cobj.val2)
+assert_equal(3, cobj.val3)
+END
+v9.CheckScriptSuccess(lines)
+enddef
 " vim: ts=8 sw=2 sts=2 expandtab tw=80 fdm=marker

Mercurial > vim

comparison src/testdir/test_vim9_class.vim @ 32854:5fd9fe58c791 v9.0.1737