vim: src/testdir/test_vim9_script.vim annotate

author	Christian Brabandt <cb@256bit.org>
date	Mon, 26 Jun 2023 09:54:34 +0200
parents	db97ccaaa7c8
children	695b50472e85

rev	line source
32669 448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	1 " Test various aspects of the Vim9 script language.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	3 source check.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	4 source term_util.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	5 import './vim9.vim' as v9
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	6 source screendump.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	7 source shared.vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	8
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	9 def Test_vim9script_feature()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	10 # example from the help, here the feature is always present
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	11 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	12 " old style comment
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	13 if !has('vim9script')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	14 " legacy commands would go here
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	15 finish
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	16 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	17 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	18 # Vim9 script commands go here
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	19 g:didit = true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	20 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	21 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	22 assert_equal(true, g:didit)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	23 unlet g:didit
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	24 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	25
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	26 def Test_range_only()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	27 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	28 setline(1, ['blah', 'Blah'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	29 :/Blah/
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	30 assert_equal(2, getcurpos()[1])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	31 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	32
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	33 # without range commands use current line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	34 new
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	35 setline(1, ['one', 'two', 'three'])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	36 :2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	37 print
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	38 assert_equal('two', g:Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	39 :3
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	40 list
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	41 assert_equal('three$', g:Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	42
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	43 # missing command does not print the line
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	44 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	45 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	46 :1\|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	47 assert_equal('three$', g:Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	48 :\|
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	49 assert_equal('three$', g:Screenline(&lines))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	50 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	51 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	52
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	53 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	54
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	55 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	56 set cpo+=-
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	57 :1,999
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	58 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	59 v9.CheckDefExecAndScriptFailure(lines, 'E16:', 2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	60 set cpo&vim
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	61
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	62 v9.CheckDefExecAndScriptFailure([":'x"], 'E20:', 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	63
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	64 # won't generate anything
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	65 if false
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	66 :123
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	67 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	68 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	69
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	70 def Test_invalid_range()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	71 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	72 :123 eval 1 + 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	73 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	74 v9.CheckDefAndScriptFailure(lines, 'E481:', 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	75
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	76 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	77 :123 if true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	78 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	79 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	80 v9.CheckDefAndScriptFailure(lines, 'E481:', 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	81
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	82 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	83 :123 echo 'yes'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	84 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	85 v9.CheckDefAndScriptFailure(lines, 'E481:', 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	86
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	87 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	88 :123 cd there
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	89 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	90 v9.CheckDefAndScriptFailure(lines, 'E481:', 1)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	91 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	92
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	93 let g:alist = [7]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	94 let g:astring = 'text'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	95 let g:anumber = 123
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	96
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	97 def Test_delfunction()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	98 # Check function is defined in script namespace
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	99 v9.CheckScriptSuccess([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	100 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	101 'func CheckMe()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	102 ' return 123',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	103 'endfunc',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	104 'func DoTest()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	105 ' call assert_equal(123, s:CheckMe())',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	106 'endfunc',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	107 'DoTest()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	108 ])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	109
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	110 # Check function in script namespace cannot be deleted
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	111 v9.CheckScriptFailure([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	112 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	113 'func DeleteMe1()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	114 'endfunc',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	115 'delfunction DeleteMe1',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	116 ], 'E1084:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	117 v9.CheckScriptFailure([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	118 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	119 'func DeleteMe2()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	120 'endfunc',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	121 'def DoThat()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	122 ' delfunction DeleteMe2',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	123 'enddef',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	124 'DoThat()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	125 ], 'E1084:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	126 v9.CheckScriptFailure([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	127 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	128 'def DeleteMe3()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	129 'enddef',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	130 'delfunction DeleteMe3',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	131 ], 'E1084:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	132 v9.CheckScriptFailure([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	133 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	134 'def DeleteMe4()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	135 'enddef',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	136 'def DoThat()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	137 ' delfunction DeleteMe4',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	138 'enddef',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	139 'DoThat()',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	140 ], 'E1084:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	141
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	142 # Check that global :def function can be replaced and deleted
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	143 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	144 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	145 def g:Global(): string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	146 return "yes"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	147 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	148 assert_equal("yes", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	149 def! g:Global(): string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	150 return "no"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	151 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	152 assert_equal("no", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	153 delfunc g:Global
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	154 assert_false(exists('*g:Global'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	155 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	156 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	157
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	158 # Check that global function can be replaced by a :def function and deleted
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	159 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	160 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	161 func g:Global()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	162 return "yes"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	163 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	164 assert_equal("yes", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	165 def! g:Global(): string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	166 return "no"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	167 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	168 assert_equal("no", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	169 delfunc g:Global
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	170 assert_false(exists('*g:Global'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	171 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	172 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	173
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	174 # Check that global :def function can be replaced by a function and deleted
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	175 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	176 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	177 def g:Global(): string
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	178 return "yes"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	179 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	180 assert_equal("yes", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	181 func! g:Global()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	182 return "no"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	183 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	184 assert_equal("no", g:Global())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	185 delfunc g:Global
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	186 assert_false(exists('*g:Global'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	187 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	188 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	189 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	190
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	191 def Test_wrong_type()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	192 v9.CheckDefFailure(['var name: list<nothing>'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	193 v9.CheckDefFailure(['var name: list<list<nothing>>'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	194 v9.CheckDefFailure(['var name: dict<nothing>'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	195 v9.CheckDefFailure(['var name: dict<dict<nothing>>'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	196
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	197 v9.CheckDefFailure(['var name: dict<number'], 'E1009:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	198 v9.CheckDefFailure(['var name: dict<list<number>'], 'E1009:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	199
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	200 v9.CheckDefFailure(['var name: ally'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	201 v9.CheckDefFailure(['var name: bram'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	202 v9.CheckDefFailure(['var name: cathy'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	203 v9.CheckDefFailure(['var name: dom'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	204 v9.CheckDefFailure(['var name: freddy'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	205 v9.CheckDefFailure(['var name: john'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	206 v9.CheckDefFailure(['var name: larry'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	207 v9.CheckDefFailure(['var name: ned'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	208 v9.CheckDefFailure(['var name: pam'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	209 v9.CheckDefFailure(['var name: sam'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	210 v9.CheckDefFailure(['var name: vim'], 'E1010:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	211
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	212 v9.CheckDefFailure(['var Ref: number', 'Ref()'], 'E1085:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	213 v9.CheckDefFailure(['var Ref: string', 'var res = Ref()'], 'E1085:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	214 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	215
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	216 def Test_script_namespace()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	217 # defining a function or variable with s: is not allowed
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	218 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	219 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	220 def s:Function()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	221 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	222 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	223 v9.CheckScriptFailure(lines, 'E1268:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	224
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	225 for decl in ['var', 'const', 'final']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	226 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	227 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	228 var s:var = 'var'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	229 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	230 v9.CheckScriptFailure([
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	231 'vim9script',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	232 decl .. ' s:var = "var"',
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	233 ], 'E1268:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	234 endfor
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	235
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	236 # Calling a function or using a variable with s: is not allowed at script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	237 # level
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	238 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	239 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	240 def Function()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	241 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	242 s:Function()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	243 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	244 v9.CheckScriptFailure(lines, 'E1268:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	245 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	246 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	247 def Function()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	248 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	249 call s:Function()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	250 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	251 v9.CheckScriptFailure(lines, 'E1268:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	252 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	253 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	254 var var = 'var'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	255 echo s:var
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	256 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	257 v9.CheckScriptFailure(lines, 'E1268:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	258 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	259
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	260 def Test_script_wrong_type()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	261 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	262 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	263 var dict: dict<string>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	264 dict['a'] = ['x']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	265 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	266 v9.CheckScriptFailure(lines, 'E1012: Type mismatch; expected string but got list<string>', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	267 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	268
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	269 def Test_const()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	270 v9.CheckDefFailure(['final name = 234', 'name = 99'], 'E1018:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	271 v9.CheckDefFailure(['final one = 234', 'var one = 99'], 'E1017:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	272 v9.CheckDefFailure(['final list = [1, 2]', 'var list = [3, 4]'], 'E1017:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	273 v9.CheckDefFailure(['final two'], 'E1125:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	274 v9.CheckDefFailure(['final &option'], 'E996:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	275
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	276 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	277 final list = [1, 2, 3]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	278 list[0] = 4
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	279 list->assert_equal([4, 2, 3])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	280 const other = [5, 6, 7]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	281 other->assert_equal([5, 6, 7])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	282
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	283 var varlist = [7, 8]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	284 const constlist = [1, varlist, 3]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	285 varlist[0] = 77
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	286 constlist[1][1] = 88
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	287 var cl = constlist[1]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	288 cl[1] = 88
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	289 constlist->assert_equal([1, [77, 88], 3])
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	290
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	291 var vardict = {five: 5, six: 6}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	292 const constdict = {one: 1, two: vardict, three: 3}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	293 vardict['five'] = 55
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	294 constdict['two']['six'] = 66
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	295 var cd = constdict['two']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	296 cd['six'] = 66
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	297 constdict->assert_equal({one: 1, two: {five: 55, six: 66}, three: 3})
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	298 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	299 v9.CheckDefAndScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	300
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	301 # "any" type with const flag is recognized as "any"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	302 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	303 const dict: dict<any> = {foo: {bar: 42}}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	304 const foo = dict.foo
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	305 assert_equal(v:t_number, type(foo.bar))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	306 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	307 v9.CheckDefAndScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	308
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	309 # also when used as a builtin function argument
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	310 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	311 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	312
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	313 def SorterFunc(lhs: dict<string>, rhs: dict<string>): number
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	314 return lhs.name <# rhs.name ? -1 : 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	315 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	316
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	317 def Run(): void
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	318 var list = [{name: "3"}, {name: "2"}]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	319 const Sorter = get({}, "unknown", SorterFunc)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	320 sort(list, Sorter)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	321 assert_equal([{name: "2"}, {name: "3"}], list)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	322 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	323
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	324 Run()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	325 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	326 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	327 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	328
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	329 def Test_const_bang()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	330 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	331 const var = 234
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	332 var = 99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	333 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	334 v9.CheckDefExecFailure(lines, 'E1018:', 2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	335 v9.CheckScriptFailure(['vim9script'] + lines, 'E46:', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	336
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	337 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	338 const ll = [2, 3, 4]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	339 ll[0] = 99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	340 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	341 v9.CheckDefExecFailure(lines, 'E1119:', 2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	342 v9.CheckScriptFailure(['vim9script'] + lines, 'E741:', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	343
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	344 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	345 const ll = [2, 3, 4]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	346 ll[3] = 99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	347 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	348 v9.CheckDefExecFailure(lines, 'E1118:', 2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	349 v9.CheckScriptFailure(['vim9script'] + lines, 'E684:', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	350
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	351 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	352 const dd = {one: 1, two: 2}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	353 dd["one"] = 99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	354 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	355 v9.CheckDefExecFailure(lines, 'E1121:', 2)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	356 v9.CheckScriptFailure(['vim9script'] + lines, 'E741:', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	357
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	358 lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	359 const dd = {one: 1, two: 2}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	360 dd["three"] = 99
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	361 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	362 v9.CheckDefExecFailure(lines, 'E1120:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	363 v9.CheckScriptFailure(['vim9script'] + lines, 'E741:', 3)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	364 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	365
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	366 def Test_range_no_colon()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	367 v9.CheckDefFailure(['%s/a/b/'], 'E1050:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	368 v9.CheckDefFailure(['+ s/a/b/'], 'E1050:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	369 v9.CheckDefFailure(['- s/a/b/'], 'E1050:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	370 v9.CheckDefFailure(['. s/a/b/'], 'E1050:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	371 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	372
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	373
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	374 def Test_block()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	375 var outer = 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	376 {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	377 var inner = 2
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	378 assert_equal(1, outer)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	379 assert_equal(2, inner)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	380 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	381 assert_equal(1, outer)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	382
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	383 {\|echo 'yes'\|}
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	384 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	385
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	386 def Test_block_failure()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	387 v9.CheckDefFailure(['{', 'var inner = 1', '}', 'echo inner'], 'E1001:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	388 v9.CheckDefFailure(['}'], 'E1025:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	389 v9.CheckDefFailure(['{', 'echo 1'], 'E1026:')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	390 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	391
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	392 def Test_block_local_vars()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	393 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	394 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	395 v:testing = 1
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	396 if true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	397 var text = ['hello']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	398 def SayHello(): list<string>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	399 return text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	400 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	401 def SetText(v: string)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	402 text = [v]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	403 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	404 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	405
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	406 if true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	407 var text = ['again']
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	408 def SayAgain(): list<string>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	409 return text
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	410 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	411 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	412
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	413 # test that the "text" variables are not cleaned up
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	414 test_garbagecollect_now()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	415
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	416 defcompile
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	417
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	418 assert_equal(['hello'], SayHello())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	419 assert_equal(['again'], SayAgain())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	420
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	421 SetText('foobar')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	422 assert_equal(['foobar'], SayHello())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	423
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	424 call writefile(['ok'], 'Xdidit')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	425 qall!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	426 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	427
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	428 # need to execute this with a separate Vim instance to avoid the current
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	429 # context gets garbage collected.
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	430 writefile(lines, 'Xscript', 'D')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	431 g:RunVim([], [], '-S Xscript')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	432 assert_equal(['ok'], readfile('Xdidit'))
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	433
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	434 delete('Xdidit')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	435 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	436
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	437 def Test_block_local_vars_with_func()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	438 var lines =<< trim END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	439 vim9script
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	440 if true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	441 var foo = 'foo'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	442 if true
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	443 var bar = 'bar'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	444 def Func(): list<string>
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	445 return [foo, bar]
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	446 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	447 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	448 endif
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	449 # function is compiled here, after blocks have finished, can still access
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	450 # "foo" and "bar"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	451 assert_equal(['foo', 'bar'], Func())
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	452 END
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	453 v9.CheckScriptSuccess(lines)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	454 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	455
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	456 " legacy func for command that's defined later
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	457 func s:InvokeSomeCommand()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	458 SomeCommand
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	459 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	460
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	461 def Test_autocommand_block()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	462 com SomeCommand {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	463 g:someVar = 'some'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	464 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	465 InvokeSomeCommand()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	466 assert_equal('some', g:someVar)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	467
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	468 delcommand SomeCommand
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	469 unlet g:someVar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	470 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	471
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	472 def Test_command_block()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	473 au BufNew *.xml {
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	474 g:otherVar = 'other'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	475 }
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	476 split other.xml
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	477 assert_equal('other', g:otherVar)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	478
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	479 bwipe!
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	480 au! BufNew *.xml
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	481 unlet g:otherVar
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	482 enddef
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	483
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	484 func g:NoSuchFunc()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	485 echo 'none'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	486 endfunc
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	487
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	488 def Test_try_catch_throw()
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	489 var l = []
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	490 try # comment
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	491 add(l, '1')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	492 throw 'wrong'
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	493 add(l, '2') # "unreachable code"
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	494 catch # comment
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	495 add(l, v:exception)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	496 finally # comment
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	497 add(l, '3')
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	498 endtry # comment
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	499 assert_equal(['1', 'wrong', '3'], l)
448aef880252 normalize line endings Christian Brabandt <cb@256bit.org> parents: 32454 diff changeset	500

32669

448aef880252 normalize line endings