annotate src/testdir/test_vimscript.vim @ 30310:029c59bf78f1 v9.0.0491

patch 9.0.0491: no good reason to build without the float feature Commit: https://github.com/vim/vim/commit/73e28dcc6125f616cf1f2d56443d22428a79e434 Author: Bram Moolenaar <Bram@vim.org> Date: Sat Sep 17 21:08:33 2022 +0100 patch 9.0.0491: no good reason to build without the float feature Problem: No good reason to build without the float feature. Solution: Remove configure check for float and "#ifdef FEAT_FLOAT".
author Bram Moolenaar <Bram@vim.org>
date Sat, 17 Sep 2022 22:15:05 +0200
parents 949e8978ea43
children 56e38195570b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13351
33a2277b8d4d patch 8.0.1549: various small problems in test files
Christian Brabandt <cb@256bit.org>
parents: 12523
diff changeset
1 " Test various aspects of the Vim script language.
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
2 " Most of this was formerly in test49.vim (developed by Servatius Brandt
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
3 " <Servatius.Brandt@fujitsu-siemens.com>)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
4
17657
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents: 17251
diff changeset
5 source check.vim
17698
131f1d8c5860 patch 8.1.1846: inconsistently using GetVimCommand() and v:progpath
Bram Moolenaar <Bram@vim.org>
parents: 17657
diff changeset
6 source shared.vim
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
7 source script_util.vim
17657
0da9bc55c31a patch 8.1.1826: tests use hand coded feature and option checks
Bram Moolenaar <Bram@vim.org>
parents: 17251
diff changeset
8
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
9 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
10 " Test environment {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
11 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
12
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
13 " Append a message to the "messages" file
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
14 func Xout(text)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
15 split messages
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
16 $put =a:text
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
17 wq
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
18 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
19
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
20 com! -nargs=1 Xout call Xout(<args>)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
21
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
22 " Create a new instance of Vim and run the commands in 'test' and then 'verify'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
23 " The commands in 'test' are expected to store the test results in the Xtest.out
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
24 " file. If the test passes successfully, then Xtest.out should be empty.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
25 func RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
26 let init =<< trim END
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
27 set cpo-=C " support line-continuation in sourced script
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
28 source script_util.vim
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
29 XpathINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
30 XloopINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
31 END
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
32 let cleanup =<< trim END
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
33 call writefile(v:errors, 'Xtest.out')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
34 qall
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
35 END
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
36 call writefile(init, 'Xtest.vim')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
37 call writefile(a:test, 'Xtest.vim', 'a')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
38 call writefile(a:verify, 'Xverify.vim')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
39 call writefile(cleanup, 'Xverify.vim', 'a')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
40 call RunVim([], [], "-S Xtest.vim -S Xverify.vim")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
41 call assert_equal([], readfile('Xtest.out'))
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
42 call delete('Xtest.out')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
43 call delete('Xtest.vim')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
44 call delete('Xverify.vim')
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
45 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
46
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
47 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
48 " Test 1: :endwhile in function {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
49 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
50 " Detect if a broken loop is (incorrectly) reactivated by the
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
51 " :endwhile. Use a :return to prevent an endless loop, and make
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
52 " this test first to get a meaningful result on an error before other
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
53 " tests will hang.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
54 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
55
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
56 func T1_F()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
57 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
58 let first = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
59 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
60 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
61 if first
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
62 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
63 let first = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
64 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
65 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
66 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
67 return
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
68 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
69 endwhile
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
70 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
71
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
72 func T1_G()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
73 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
74 let first = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
75 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
76 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
77 if first
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
78 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
79 let first = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
80 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
81 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
82 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
83 return
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
84 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
85 if 1 " unmatched :if
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
86 endwhile
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
87 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
88
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
89 func Test_endwhile_function()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
90 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
91 call T1_F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
92 Xpath 'F'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
93
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
94 try
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
95 call T1_G()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
96 catch
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
97 " Catch missing :endif
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
98 call assert_true(v:exception =~ 'E171:')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
99 Xpath 'x'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
100 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
101 Xpath 'G'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
102
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
103 call assert_equal('abcFhijxG', g:Xpath)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
104 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
105
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
106 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
107 " Test 2: :endwhile in script {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
108 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
109 " Detect if a broken loop is (incorrectly) reactivated by the
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
110 " :endwhile. Use a :finish to prevent an endless loop, and place
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
111 " this test before others that might hang to get a meaningful result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
112 " on an error.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
113 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
114 " This test executes the bodies of the functions T1_F and T1_G from
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
115 " the previous test as script files (:return replaced by :finish).
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
116 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
117
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
118 func Test_endwhile_script()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
119 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
120 ExecAsScript T1_F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
121 Xpath 'F'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
122 call DeleteTheScript()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
123
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
124 try
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
125 ExecAsScript T1_G
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
126 catch
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
127 " Catch missing :endif
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
128 call assert_true(v:exception =~ 'E171:')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
129 Xpath 'x'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
130 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
131 Xpath 'G'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
132 call DeleteTheScript()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
133
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
134 call assert_equal('abcFhijxG', g:Xpath)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
135 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
136
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
137 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
138 " Test 3: :if, :elseif, :while, :continue, :break {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
139 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
140
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
141 func Test_if_while()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
142 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
143 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
144 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
145 let loops = 3
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
146 while loops > -1 " main loop: loops == 3, 2, 1 (which breaks)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
147 if loops <= 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
148 let break_err = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
149 let loops = -1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
150 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
151 Xpath 'b' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
152 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
153 if (loops == 2)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
154 while loops == 2 " dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
155 Xpath 'c' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
156 let loops = loops - 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
157 continue " stop dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
158 Xpath 'd' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
159 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
160 continue " continue main loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
161 Xpath 'e' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
162 elseif (loops == 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
163 let p = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
164 while p " dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
165 Xpath 'f' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
166 let p = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
167 break " break dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
168 Xpath 'g' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
169 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
170 Xpath 'h' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
171 unlet p
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
172 break " break main loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
173 Xpath 'i' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
174 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
175 if (loops > 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
176 Xpath 'j' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
177 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
178 while loops == 3 " dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
179 let loops = loops - 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
180 endwhile " end dummy loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
181 endwhile " end main loop
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
182 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
183 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
184 Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
185 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
186 Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
187 if exists("break_err")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
188 Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
189 unlet break_err
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
190 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
191
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
192 unlet loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
193
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
194 call assert_equal('ab3j3b2c2b1f1h1km', g:Xpath)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
195 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
196
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
197 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
198 " Test 4: :return {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
199 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
200
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
201 func T4_F()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
202 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
203 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
204 let loops = 3
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
205 while loops > 0 " 3: 2: 1:
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
206 Xpath 'b' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
207 if (loops == 2)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
208 Xpath 'c' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
209 return
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
210 Xpath 'd' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
211 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
212 Xpath 'e' . loops
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
213 let loops = loops - 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
214 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
215 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
216 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
217 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
218 endif
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
219 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
220
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
221 func Test_return()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
222 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
223 call T4_F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
224 Xpath '4'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
225
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
226 call assert_equal('ab3e3b2c24', g:Xpath)
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
227 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
228
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
229
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
230 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
231 " Test 5: :finish {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
232 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
233 " This test executes the body of the function T4_F from the previous
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
234 " test as a script file (:return replaced by :finish).
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
235 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
236
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
237 func Test_finish()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
238 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
239 ExecAsScript T4_F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
240 Xpath '5'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
241 call DeleteTheScript()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
242
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
243 call assert_equal('ab3e3b2c25', g:Xpath)
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
244 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
245
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
246
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
247
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
248 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
249 " Test 6: Defining functions in :while loops {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
250 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
251 " Functions can be defined inside other functions. An inner function
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
252 " gets defined when the outer function is executed. Functions may
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
253 " also be defined inside while loops. Expressions in braces for
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
254 " defining the function name are allowed.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
255 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
256 " The functions are defined when sourcing the script, only the
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
257 " resulting path is checked in the test function.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
258 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
259
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
260 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
261
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
262 " The command CALL collects the argument of all its invocations in "calls"
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
263 " when used from a function (that is, when the global variable "calls" needs
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
264 " the "g:" prefix). This is to check that the function code is skipped when
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
265 " the function is defined. For inner functions, do so only if the outer
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
266 " function is not being executed.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
267 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
268 let calls = ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
269 com! -nargs=1 CALL
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
270 \ if !exists("calls") && !exists("outer") |
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
271 \ let g:calls = g:calls . <args> |
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
272 \ endif
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
273
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
274 let i = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
275 while i < 3
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
276 let i = i + 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
277 if i == 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
278 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
279 function! F1(arg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
280 CALL a:arg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
281 let outer = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
282
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
283 let j = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
284 while j < 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
285 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
286 let j = j + 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
287 function! G1(arg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
288 CALL a:arg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
289 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
290 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
291 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
292 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
293 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
294
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
295 continue
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
296 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
297
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
298 Xpath 'e' . i
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
299 function! F{i}(i, arg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
300 CALL a:arg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
301 let outer = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
302
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
303 if a:i == 3
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
304 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
305 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
306 let k = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
307 while k < 3
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
308 Xpath 'g' . k
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
309 let k = k + 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
310 function! G{a:i}{k}(arg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
311 CALL a:arg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
312 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
313 Xpath 'h' . k
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
314 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
315 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
316 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
317
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
318 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
319
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
320 if exists("*G1")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
321 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
322 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
323 if exists("*F1")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
324 call F1("F1")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
325 if exists("*G1")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
326 call G1("G1")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
327 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
328 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
329
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
330 if exists("G21") || exists("G22") || exists("G23")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
331 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
332 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
333 if exists("*F2")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
334 call F2(2, "F2")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
335 if exists("*G21")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
336 call G21("G21")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
337 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
338 if exists("*G22")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
339 call G22("G22")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
340 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
341 if exists("*G23")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
342 call G23("G23")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
343 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
344 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
345
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
346 if exists("G31") || exists("G32") || exists("G33")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
347 Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
348 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
349 if exists("*F3")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
350 call F3(3, "F3")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
351 if exists("*G31")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
352 call G31("G31")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
353 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
354 if exists("*G32")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
355 call G32("G32")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
356 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
357 if exists("*G33")
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
358 call G33("G33")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
359 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
360 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
361
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
362 Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
363
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
364 let g:test6_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
365 let g:test6_calls = calls
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
366
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
367 unlet calls
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
368 delfunction F1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
369 delfunction G1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
370 delfunction F2
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
371 delfunction G21
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
372 delfunction G22
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
373 delfunction G23
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
374 delfunction G31
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
375 delfunction G32
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
376 delfunction G33
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
377
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
378 func Test_defining_functions()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
379 call assert_equal('ade2ie3ibcg0h1g1h2g2h3fg0h1g1h2g2h3m', g:test6_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
380 call assert_equal('F1G1F2G21G22G23F3G31G32G33', g:test6_calls)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
381 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
382
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
383 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
384 " Test 7: Continuing on errors outside functions {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
385 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
386 " On an error outside a function, the script processing continues
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
387 " at the line following the outermost :endif or :endwhile. When not
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
388 " inside an :if or :while, the script processing continues at the next
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
389 " line.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
390 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
391
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
392 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
393
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
394 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
395 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
396 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
397 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
398 asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
399 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
400 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
401 endwhile | Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
402 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
403 endif | Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
404 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
405
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
406 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
407 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
408 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
409 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
410 asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
411 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
412 endif | Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
413 Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
414 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
415 endwhile | Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
416 Xpath 'n'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
417
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
418 asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
419 Xpath 'o'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
420
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
421 asdf | Xpath 'p'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
422 Xpath 'q'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
423
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
424 let g:test7_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
425
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
426 func Test_error_in_script()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
427 call assert_equal('abghinoq', g:test7_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
428 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
429
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
430 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
431 " Test 8: Aborting and continuing on errors inside functions {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
432 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
433 " On an error inside a function without the "abort" attribute, the
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
434 " script processing continues at the next line (unless the error was
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
435 " in a :return command). On an error inside a function with the
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
436 " "abort" attribute, the function is aborted and the script processing
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
437 " continues after the function call; the value -1 is returned then.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
438 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
439
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
440 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
441
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
442 func T8_F()
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
443 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
444 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
445 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
446 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
447 asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
448 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
449 asdf | Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
450 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
451 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
452 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
453 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
454 endif | Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
455 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
456
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
457 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
458 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
459 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
460 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
461 asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
462 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
463 asdf | Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
464 Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
465 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
466 Xpath 'n'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
467 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
468 endwhile | Xpath 'o'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
469 Xpath 'p'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
470
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
471 return novar " returns (default return value 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
472 Xpath 'q'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
473 return 1 " not reached
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
474 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
475
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
476 func T8_G() abort
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
477 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
478 Xpath 'r'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
479 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
480 Xpath 's'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
481 asdf " returns -1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
482 Xpath 't'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
483 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
484 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
485 Xpath 'v'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
486 endif | Xpath 'w'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
487 Xpath 'x'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
488
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
489 return -4 " not reached
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
490 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
491
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
492 func T8_H() abort
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
493 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
494 Xpath 'A'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
495 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
496 Xpath 'B'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
497 asdf " returns -1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
498 Xpath 'C'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
499 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
500 Xpath 'D'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
501 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
502 endwhile | Xpath 'E'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
503 Xpath 'F'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
504
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
505 return -4 " not reached
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
506 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
507
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
508 " Aborted functions (T8_G and T8_H) return -1.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
509 let g:test8_sum = (T8_F() + 1) - 4 * T8_G() - 8 * T8_H()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
510 Xpath 'X'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
511 let g:test8_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
512
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
513 func Test_error_in_function()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
514 call assert_equal(13, g:test8_sum)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
515 call assert_equal('abcefghijkmnoprsABX', g:test8_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
516
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
517 delfunction T8_F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
518 delfunction T8_G
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
519 delfunction T8_H
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
520 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
521
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
522
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
523 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
524 " Test 9: Continuing after aborted functions {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
525 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
526 " When a function with the "abort" attribute is aborted due to an
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
527 " error, the next function back in the call hierarchy without an
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
528 " "abort" attribute continues; the value -1 is returned then.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
529 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
530
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
531 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
532
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
533 func F() abort
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
534 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
535 let result = G() " not aborted
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
536 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
537 if result != 2
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
538 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
539 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
540 return 1
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
541 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
542
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
543 func G() " no abort attribute
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
544 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
545 if H() != -1 " aborted
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
546 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
547 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
548 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
549 return 2
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
550 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
551
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
552 func H() abort
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
553 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
554 call I() " aborted
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
555 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
556 return 4
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
557 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
558
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
559 func I() abort
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
560 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
561 asdf " error
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
562 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
563 return 8
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
564 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
565
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
566 if F() != 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
567 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
568 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
569
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
570 let g:test9_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
571
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
572 delfunction F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
573 delfunction G
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
574 delfunction H
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
575 delfunction I
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
576
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
577 func Test_func_abort()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
578 call assert_equal('adgifb', g:test9_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
579 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
580
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
581
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
582 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
583 " Test 10: :if, :elseif, :while argument parsing {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
584 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
585 " A '"' or '|' in an argument expression must not be mixed up with
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
586 " a comment or a next command after a bar. Parsing errors should
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
587 " be recognized.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
588 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
589
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
590 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
591
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
592 func MSG(enr, emsg)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
593 let english = v:lang == "C" || v:lang =~ '^[Ee]n'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
594 if a:enr == ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
595 Xout "TODO: Add message number for:" a:emsg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
596 let v:errmsg = ":" . v:errmsg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
597 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
598 let match = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
599 if v:errmsg !~ '^'.a:enr.':' || (english && v:errmsg !~ a:emsg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
600 let match = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
601 if v:errmsg == ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
602 Xout "Message missing."
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
603 else
17849
73ddc462979d patch 8.1.1921: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17783
diff changeset
604 let v:errmsg = v:errmsg->escape('"')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
605 Xout "Unexpected message:" v:errmsg
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
606 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
607 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
608 return match
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
609 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
610
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
611 if 1 || strlen("\"") | Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
612 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
613 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
614 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
615
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
616 if 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
617 elseif 1 || strlen("\"") | Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
618 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
619 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
620 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
621
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
622 while 1 || strlen("\"") | Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
623 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
624 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
625 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
626 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
627
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
628 let v:errmsg = ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
629 if 1 ||| strlen("\"") | Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
630 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
631 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
632 Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
633 if !MSG('E15', "Invalid expression")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
634 Xpath 'm'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
635 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
636
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
637 let v:errmsg = ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
638 if 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
639 elseif 1 ||| strlen("\"") | Xpath 'n'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
640 Xpath 'o'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
641 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
642 Xpath 'p'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
643 if !MSG('E15', "Invalid expression")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
644 Xpath 'q'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
645 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
646
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
647 let v:errmsg = ""
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
648 while 1 ||| strlen("\"") | Xpath 'r'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
649 Xpath 's'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
650 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
651 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
652 Xpath 't'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
653 if !MSG('E15', "Invalid expression")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
654 Xpath 'u'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
655 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
656
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
657 let g:test10_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
658 delfunction MSG
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
659
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
660 func Test_expr_parsing()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
661 call assert_equal('abcdefghilpt', g:test10_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
662 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
663
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
664
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
665 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
666 " Test 11: :if, :elseif, :while argument evaluation after abort {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
667 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
668 " When code is skipped over due to an error, the boolean argument to
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
669 " an :if, :elseif, or :while must not be evaluated.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
670 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
671
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
672 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
673
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
674 let calls = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
675
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
676 func P(num)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
677 let g:calls = g:calls + a:num " side effect on call
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
678 return 0
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
679 endfunc
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
680
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
681 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
682 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
683 asdf " error
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
684 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
685 if P(1) " should not be called
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
686 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
687 elseif !P(2) " should not be called
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
688 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
689 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
690 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
691 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
692 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
693 while P(4) " should not be called
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
694 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
695 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
696 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
697 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
698 Xpath 'x'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
699
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
700 let g:test11_calls = calls
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
701 let g:test11_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
702
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
703 unlet calls
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
704 delfunction P
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
705
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
706 func Test_arg_abort()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
707 call assert_equal(0, g:test11_calls)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
708 call assert_equal('ax', g:test11_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
709 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
710
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
711
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
712 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
713 " Test 12: Expressions in braces in skipped code {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
714 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
715 " In code skipped over due to an error or inactive conditional,
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
716 " an expression in braces as part of a variable or function name
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
717 " should not be evaluated.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
718 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
719
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
720 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
721
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
722 function! NULL()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
723 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
724 return 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
725 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
726
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
727 function! ZERO()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
728 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
729 return 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
730 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
731
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
732 function! F0()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
733 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
734 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
735
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
736 function! F1(arg)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
737 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
738 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
739
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
740 let V0 = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
741
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
742 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
743 echo 0 ? F{NULL() + V{ZERO()}}() : 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
744
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
745 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
746 if 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
747 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
748 call F{NULL() + V{ZERO()}}()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
749 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
750
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
751 Xpath 'i'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
752 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
753 asdf " error
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
754 Xpath 'j'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
755 call F1(F{NULL() + V{ZERO()}}())
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
756 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
757
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
758 Xpath 'k'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
759 if 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
760 asdf " error
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
761 Xpath 'l'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
762 call F{NULL() + V{ZERO()}}()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
763 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
764
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
765 let g:test12_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
766
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
767 func Test_braces_skipped()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
768 call assert_equal('fgik', g:test12_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
769 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
770
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
771
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
772 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
773 " Test 13: Failure in argument evaluation for :while {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
774 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
775 " A failure in the expression evaluation for the condition of a :while
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
776 " causes the whole :while loop until the matching :endwhile being
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
777 " ignored. Continuation is at the next following line.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
778 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
779
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
780 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
781
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
782 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
783 while asdf
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
784 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
785 while 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
786 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
787 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
788 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
789 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
790 break
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
791 endwhile
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
792 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
793
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
794 while asdf | Xpath 'f' | endwhile | Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
795 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
796 let g:test13_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
797
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
798 func Test_while_fail()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
799 call assert_equal('aeh', g:test13_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
800 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
801
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
802
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
803 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
804 " Test 14: Failure in argument evaluation for :if {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
805 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
806 " A failure in the expression evaluation for the condition of an :if
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
807 " does not cause the corresponding :else or :endif being matched to
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
808 " a previous :if/:elseif. Neither of both branches of the failed :if
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
809 " are executed.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
810 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
811
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
812 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
813
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
814 function! F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
815 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
816 let x = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
817 if x " false
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
818 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
819 elseif !x " always true
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
820 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
821 let x = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
822 if g:boolvar " possibly undefined
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
823 Xpath 'd'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
824 else
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
825 Xpath 'e'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
826 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
827 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
828 elseif x " never executed
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
829 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
830 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
831 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
832 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
833
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
834 let boolvar = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
835 call F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
836 Xpath '-'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
837
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
838 unlet boolvar
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
839 call F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
840 let g:test14_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
841
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
842 delfunction F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
843
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
844 func Test_if_fail()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
845 call assert_equal('acdfh-acfh', g:test14_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
846 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
847
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
848
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
849 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
850 " Test 15: Failure in argument evaluation for :if (bar) {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
851 "
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
852 " Like previous test, except that the failing :if ... | ... | :endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
853 " is in a single line.
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
854 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
855
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
856 XpathINIT
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
857
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
858 function! F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
859 Xpath 'a'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
860 let x = 0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
861 if x " false
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
862 Xpath 'b'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
863 elseif !x " always true
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
864 Xpath 'c'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
865 let x = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
866 if g:boolvar | Xpath 'd' | else | Xpath 'e' | endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
867 Xpath 'f'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
868 elseif x " never executed
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
869 Xpath 'g'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
870 endif
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
871 Xpath 'h'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
872 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
873
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
874 let boolvar = 1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
875 call F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
876 Xpath '-'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
877
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
878 unlet boolvar
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
879 call F()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
880 let g:test15_result = g:Xpath
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
881
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
882 delfunction F
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
883
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
884 func Test_if_bar_fail()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
885 call assert_equal('acdfh-acfh', g:test15_result)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
886 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
887
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
888 "-------------------------------------------------------------------------------
18504
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
889 " Test 16: Double :else or :elseif after :else {{{1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
890 "
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
891 " Multiple :elses or an :elseif after an :else are forbidden.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
892 "-------------------------------------------------------------------------------
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
893
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
894 func T16_F() abort
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
895 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
896 Xpath 'a'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
897 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
898 Xpath 'b'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
899 else " aborts function
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
900 Xpath 'c'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
901 endif
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
902 Xpath 'd'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
903 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
904
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
905 func T16_G() abort
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
906 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
907 Xpath 'a'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
908 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
909 Xpath 'b'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
910 elseif 1 " aborts function
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
911 Xpath 'c'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
912 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
913 Xpath 'd'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
914 endif
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
915 Xpath 'e'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
916 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
917
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
918 func T16_H() abort
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
919 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
920 Xpath 'a'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
921 elseif 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
922 Xpath 'b'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
923 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
924 Xpath 'c'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
925 else " aborts function
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
926 Xpath 'd'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
927 endif
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
928 Xpath 'e'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
929 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
930
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
931 func T16_I() abort
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
932 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
933 Xpath 'a'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
934 elseif 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
935 Xpath 'b'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
936 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
937 Xpath 'c'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
938 elseif 1 " aborts function
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
939 Xpath 'd'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
940 else
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
941 Xpath 'e'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
942 endif
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
943 Xpath 'f'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
944 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
945
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
946 func Test_Multi_Else()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
947 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
948 try
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
949 call T16_F()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
950 catch /E583:/
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
951 Xpath 'e'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
952 endtry
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
953 call assert_equal('be', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
954
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
955 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
956 try
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
957 call T16_G()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
958 catch /E584:/
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
959 Xpath 'f'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
960 endtry
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
961 call assert_equal('bf', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
962
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
963 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
964 try
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
965 call T16_H()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
966 catch /E583:/
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
967 Xpath 'f'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
968 endtry
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
969 call assert_equal('cf', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
970
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
971 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
972 try
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
973 call T16_I()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
974 catch /E584:/
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
975 Xpath 'g'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
976 endtry
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
977 call assert_equal('cg', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
978 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
979
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
980 "-------------------------------------------------------------------------------
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
981 " Test 17: Nesting of unmatched :if or :endif inside a :while {{{1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
982 "
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
983 " The :while/:endwhile takes precedence in nesting over an unclosed
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
984 " :if or an unopened :endif.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
985 "-------------------------------------------------------------------------------
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
986
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
987 " While loops inside a function are continued on error.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
988 func T17_F()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
989 let loops = 3
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
990 while loops > 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
991 let loops -= 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
992 Xpath 'a' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
993 if (loops == 1)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
994 Xpath 'b' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
995 continue
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
996 elseif (loops == 0)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
997 Xpath 'c' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
998 break
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
999 elseif 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1000 Xpath 'd' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1001 " endif missing!
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1002 endwhile " :endwhile after :if 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1003 Xpath 'e'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1004 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1005
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1006 func T17_G()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1007 let loops = 2
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1008 while loops > 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1009 let loops -= 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1010 Xpath 'a' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1011 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1012 Xpath 'b' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1013 " endif missing
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1014 endwhile " :endwhile after :if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1015 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1016
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1017 func T17_H()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1018 let loops = 2
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1019 while loops > 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1020 let loops -= 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1021 Xpath 'a' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1022 " if missing!
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1023 endif " :endif without :if in while
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1024 Xpath 'b' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1025 endwhile
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1026 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1027
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1028 " Error continuation outside a function is at the outermost :endwhile or :endif.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1029 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1030 let v:errmsg = ''
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1031 let loops = 2
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1032 while loops > 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1033 let loops -= 1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1034 Xpath 'a' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1035 if 0
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1036 Xpath 'b' . loops
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1037 " endif missing! Following :endwhile fails.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1038 endwhile | Xpath 'c'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1039 Xpath 'd'
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1040 call assert_match('E171:', v:errmsg)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1041 call assert_equal('a1d', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1042
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1043 func Test_unmatched_if_in_while()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1044 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1045 call assert_fails('call T17_F()', 'E171:')
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1046 call assert_equal('a2d2a1b1a0c0e', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1047
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1048 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1049 call assert_fails('call T17_G()', 'E171:')
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1050 call assert_equal('a1a0', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1051
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1052 XpathINIT
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1053 call assert_fails('call T17_H()', 'E580:')
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1054 call assert_equal('a1b1a0b0', g:Xpath)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1055 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1056
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1057 "-------------------------------------------------------------------------------
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1058 " Test 18: Interrupt (Ctrl-C pressed) {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1059 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1060 " On an interrupt, the script processing is terminated immediately.
18504
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
1061 "-------------------------------------------------------------------------------
21632
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1062
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1063 func Test_interrupt_while_if()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1064 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1065 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1066 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1067 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1068 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1069 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1070 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1071 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1072 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1073 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1074 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1075 finish
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1076 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1077 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1078 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1079 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1080 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1081 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1082 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1083 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1084 endtry | Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1085 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1086 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1087 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1088 call assert_equal('abcdef', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1089 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1090 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1091 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1092
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1093 func Test_interrupt_try()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1094 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1095 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1096 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1097 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1098 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1099 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1100 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1101 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1102 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1103 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1104 endtry | Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1105 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1106 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1107 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1108 call assert_equal('abcd', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1109 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1110 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1111 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1112
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1113 func Test_interrupt_func_while_if()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1114 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1115 func F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1116 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1117 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1118 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1119 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1120 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1121 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1122 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1123 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1124 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1125 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1126 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1127 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1128 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1129 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1130 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1131 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1132 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1133
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1134 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1135 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1136 call F() | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1137 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1138 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1139 endtry | Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1140 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1141 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1142 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1143 call assert_equal('dabcefg', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1144 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1145 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1146 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1147
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1148 func Test_interrupt_func_try()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1149 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1150 func G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1151 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1152 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1153 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1154 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1155 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1156 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1157 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1158
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1159 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1160 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1161 call G() | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1162 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1163 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1164 endtry | Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1165 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1166 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1167 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1168 call assert_equal('bacde', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1169 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1170 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1171 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1172
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1173 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1174 " Test 19: Aborting on errors inside :try/:endtry {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1175 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1176 " An error in a command dynamically enclosed in a :try/:endtry region
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1177 " aborts script processing immediately. It does not matter whether
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1178 " the failing command is outside or inside a function and whether a
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1179 " function has an "abort" attribute.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1180 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1181
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1182 func Test_try_error_abort_1()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1183 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1184 func F() abort
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1185 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1186 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1187 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1188 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1189
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1190 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1191 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1192 call F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1193 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1194 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1195 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1196 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1197 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1198 call assert_equal('ba', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1199 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1200 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1201 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1202
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1203 func Test_try_error_abort_2()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1204 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1205 func G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1206 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1207 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1208 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1209 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1210
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1211 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1212 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1213 call G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1214 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1215 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1216 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1217 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1218 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1219 call assert_equal('ba', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1220 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1221 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1222 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1223
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1224 func Test_try_error_abort_3()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1225 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1226 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1227 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1228 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1229 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1230 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1231 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1232 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1233 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1234 call assert_equal('a', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1235 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1236 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1237 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1238
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1239 func Test_try_error_abort_4()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1240 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1241 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1242 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1243 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1244 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1245 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1246 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1247 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1248 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1249 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1250 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1251 call assert_equal('a', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1252 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1253 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1254 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1255
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1256 func Test_try_error_abort_5()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1257 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1258 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1259 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1260 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1261 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1262 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1263 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1264 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1265 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1266 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1267 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1268 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1269 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1270 call assert_equal('a', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1271 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1272 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1273 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1274
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1275 func Test_try_error_abort_6()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1276 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1277 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1278 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1279 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1280 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1281 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1282 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1283 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1284 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1285 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1286 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1287 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1288 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1289 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1290 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1291 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1292
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1293 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1294 " Test 20: Aborting on errors after :try/:endtry {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1295 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1296 " When an error occurs after the last active :try/:endtry region has
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1297 " been left, termination behavior is as if no :try/:endtry has been
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1298 " seen.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1299 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1300
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1301 func Test_error_after_try_1()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1302 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1303 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1304 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1305 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1306 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1307 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1308 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1309 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1310 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1311 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1312 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1313 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1314 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1315 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1316 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1317 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1318 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1319 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1320
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1321 func Test_error_after_try_2()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1322 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1323 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1324 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1325 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1326 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1327 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1328 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1329 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1330 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1331 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1332 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1333 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1334 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1335 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1336 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1337 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1338 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1339
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1340 func Test_error_after_try_3()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1341 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1342 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1343 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1344 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1345 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1346 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1347 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1348 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1349 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1350 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1351 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1352 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1353 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1354 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1355 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1356 call assert_equal('abcd', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1357 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1358 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1359 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1360
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1361 func Test_error_after_try_4()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1362 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1363 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1364 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1365 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1366 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1367 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1368 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1369 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1370 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1371 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1372 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1373 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1374 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1375 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1376 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1377 call assert_equal('abcd', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1378 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1379 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1380 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1381
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1382 func Test_error_after_try_5()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1383 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1384 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1385 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1386 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1387 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1388 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1389 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1390 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1391 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1392 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1393 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1394 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1395 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1396 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1397 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1398 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1399 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1400 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1401 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1402
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1403 func Test_error_after_try_6()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1404 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1405 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1406 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1407 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1408 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1409 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1410 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1411 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1412 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1413 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1414 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1415 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1416 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1417 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1418 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1419 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1420 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1421 call assert_equal('abcd', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1422 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1423 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1424 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1425
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1426 func Test_error_after_try_7()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1427 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1428 let p = 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1429 while p
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1430 let p = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1431 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1432 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1433 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1434 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1435 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1436 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1437 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1438 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1439 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1440 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1441 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1442 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1443 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1444 call assert_equal('abcd', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1445 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1446 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1447 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1448
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1449 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1450 " Test 21: :finally for :try after :continue/:break/:return/:finish {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1451 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1452 " If a :try conditional stays inactive due to a preceding :continue,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1453 " :break, :return, or :finish, its :finally clause should not be
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1454 " executed.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1455 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1456
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1457 func Test_finally_after_loop_ctrl_statement()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1458 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1459 func F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1460 let loops = 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1461 while loops > 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1462 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1463 let loops = loops - 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1464 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1465 if loops == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1466 Xloop 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1467 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1468 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1469 elseif loops == 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1470 Xloop 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1471 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1472 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1473 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1474
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1475 try " inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1476 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1477 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1478 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1479 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1480 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1481 Xloop 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1482 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1483 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1484 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1485
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1486 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1487 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1488 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1489 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1490 try " inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1491 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1492 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1493 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1494 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1495 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1496 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1497 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1498 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1499 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1500
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1501 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1502 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1503 call F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1504 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1505 finish
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1506 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1507 try " inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1508 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1509 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1510 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1511 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1512 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1513 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1514 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1515 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1516 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1517 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1518 call assert_equal('fa2c2b3c3degh', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1519 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1520 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1521 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1522
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1523 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1524 " Test 22: :finally for a :try after an error/interrupt/:throw {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1525 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1526 " If a :try conditional stays inactive due to a preceding error or
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1527 " interrupt or :throw, its :finally clause should not be executed.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1528 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1529
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1530 func Test_finally_after_error_in_func()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1531 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1532 func Error()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1533 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1534 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1535 asdf " aborting error, triggering error exception
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1536 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1537 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1538 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1539 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1540
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1541 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1542 call Error()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1543 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1544
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1545 if 1 " not active due to error
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1546 try " not active since :if inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1547 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1548 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1549 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1550 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1551 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1552
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1553 try " not active due to error
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1554 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1555 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1556 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1557 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1558 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1559 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1560 call assert_equal('ab', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1561 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1562 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1563 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1564
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1565 func Test_finally_after_interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1566 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1567 func Interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1568 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1569 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1570 call interrupt() " triggering interrupt exception
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1571 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1572 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1573 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1574
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1575 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1576 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1577 call Interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1578 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1579 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1580 finish
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1581 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1582 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1583
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1584 if 1 " not active due to interrupt
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1585 try " not active since :if inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1586 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1587 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1588 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1589 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1590 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1591
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1592 try " not active due to interrupt
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1593 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1594 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1595 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1596 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1597 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1598 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1599 call assert_equal('bac', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1600 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1601 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1602 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1603
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1604 func Test_finally_after_throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1605 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1606 func Throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1607 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1608 throw 'xyz'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1609 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1610
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1611 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1612 call Throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1613 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1614
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1615 if 1 " not active due to :throw
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1616 try " not active since :if inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1617 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1618 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1619 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1620 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1621 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1622
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1623 try " not active due to :throw
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1624 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1625 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1626 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1627 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1628 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1629 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1630 call assert_equal('ba', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1631 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1632 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1633 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1634
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1635 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1636 " Test 23: :catch clauses for a :try after a :throw {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1637 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1638 " If a :try conditional stays inactive due to a preceding :throw,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1639 " none of its :catch clauses should be executed.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1640 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1641
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1642 func Test_catch_after_throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1643 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1644 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1645 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1646 throw "xyz"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1647 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1648
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1649 if 1 " not active due to :throw
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1650 try " not active since :if inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1651 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1652 catch /xyz/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1653 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1654 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1655 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1656 catch /xyz/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1657 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1658 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1659
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1660 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1661 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1662 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1663
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1664 try " not active due to :throw
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1665 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1666 catch /abc/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1667 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1668 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1669 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1670 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1671 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1672 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1673 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1674 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1675
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1676 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1677 " Test 24: :endtry for a :try after a :throw {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1678 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1679 " If a :try conditional stays inactive due to a preceding :throw,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1680 " its :endtry should not rethrow the exception to the next surrounding
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1681 " active :try conditional.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1682 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1683
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1684 func Test_endtry_after_throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1685 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1686 try " try 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1687 try " try 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1688 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1689 throw "xyz" " makes try 2 inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1690 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1691
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1692 try " try 3
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1693 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1694 endtry " no rethrow to try 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1695 catch /xyz/ " should catch although try 2 inactive
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1696 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1697 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1698 catch /xyz/ " try 1 active, but exception already caught
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1699 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1700 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1701 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1702 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1703 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1704 call assert_equal('abc', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1705 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1706 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1707 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1708
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1709 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1710 " Test 27: Executing :finally clauses after :return {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1711 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1712 " For a :return command dynamically enclosed in a :try/:endtry region,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1713 " :finally clauses are executed and the called function is ended.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1714 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1715
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1716 func T27_F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1717 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1718 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1719 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1720 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1721 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1722 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1723 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1724 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1725 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1726 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1727 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1728 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1729 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1730 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1731 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1732
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1733 func T27_G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1734 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1735 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1736 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1737 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1738 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1739 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1740 call T27_F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1741 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1742 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1743 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1744 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1745
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1746 func T27_H()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1747 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1748 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1749 call T27_G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1750 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1751 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1752 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1753 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1754 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1755 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1756 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1757 endfunction
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1758
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1759 func Test_finally_after_return()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1760 XpathINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1761 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1762 Xpath 'l'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1763 call T27_H()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1764 Xpath 'm'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1765 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1766 Xpath 'n'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1767 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1768 call assert_equal('lifgabcehjkmn', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1769 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1770
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1771 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1772 " Test 28: Executing :finally clauses after :finish {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1773 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1774 " For a :finish command dynamically enclosed in a :try/:endtry region,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1775 " :finally clauses are executed and the sourced file is finished.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1776 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1777 " This test executes the bodies of the functions F, G, and H from the
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1778 " previous test as script files (:return replaced by :finish).
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1779 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1780
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1781 func Test_finally_after_finish()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1782 XpathINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1783
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1784 let scriptF = MakeScript("T27_F")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1785 let scriptG = MakeScript("T27_G", scriptF)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1786 let scriptH = MakeScript("T27_H", scriptG)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1787
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1788 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1789 Xpath 'A'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1790 exec "source" scriptH
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1791 Xpath 'B'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1792 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1793 Xpath 'C'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1794 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1795 Xpath 'D'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1796 call assert_equal('AifgabcehjkBCD', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1797 call delete(scriptF)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1798 call delete(scriptG)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1799 call delete(scriptH)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1800 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1801
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1802 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1803 " Test 29: Executing :finally clauses on errors {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1804 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1805 " After an error in a command dynamically enclosed in a :try/:endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1806 " region, :finally clauses are executed and the script processing is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1807 " terminated.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1808 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1809
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1810 func Test_finally_after_error_1()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1811 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1812 func F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1813 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1814 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1815 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1816 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1817 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1818 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1819 asdf " error
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1820 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1821 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1822 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1823 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1824 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1825 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1826 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1827 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1828 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1829 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1830 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1831 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1832 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1833 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1834 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1835 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1836
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1837 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1838 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1839 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1840 while 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1841 call F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1842 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1843 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1844 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1845 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1846 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1847 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1848 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1849 endwhile | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1850 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1851 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1852 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1853 call assert_equal('eabcdf', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1854 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1855 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1856 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1857
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1858 func Test_finally_after_error_2()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1859 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1860 func G() abort
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1861 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1862 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1863 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1864 asdf " error
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1865 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1866 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1867 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1868 endtry | Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1869 endif | Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1870 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1871 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1872
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1873 if 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1874 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1875 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1876 call G()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1877 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1878 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1879 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1880 endtry | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1881 endif | call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1882 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1883 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1884 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1885 call assert_equal('eabf', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1886 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1887 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1888 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1889
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1890 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1891 " Test 30: Executing :finally clauses on interrupt {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1892 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1893 " After an interrupt in a command dynamically enclosed in
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1894 " a :try/:endtry region, :finally clauses are executed and the
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1895 " script processing is terminated.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1896 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1897
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1898 func Test_finally_on_interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1899 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1900 func F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1901 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1902 Xloop 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1903 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1904 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1905 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1906 Xloop 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1907 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1908 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1909 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1910
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1911 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1912 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1913 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1914 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1915 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1916 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1917 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1918 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1919 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1920 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1921 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1922 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1923 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1924 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1925 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1926 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1927 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1928 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1929 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1930 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1931 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1932 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1933 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1934 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1935 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1936 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1937 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1938 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1939 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1940 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1941 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1942 call F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1943 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1944 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1945 Xpath 'l'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1946 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1947 Xpath 'm'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1948 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1949 ExecAsScript F
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1950 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1951 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1952 Xpath 'n'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1953 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1954 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1955 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1956 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1957 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1958 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1959 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1960 Xpath 'o'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1961 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1962 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1963 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1964 call assert_equal('cdefghijka1b1lma2b2no', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1965 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1966 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1967 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1968
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1969 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1970 " Test 31: Executing :finally clauses after :throw {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1971 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1972 " After a :throw dynamically enclosed in a :try/:endtry region,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1973 " :finally clauses are executed and the script processing is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1974 " terminated.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1975 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1976
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1977 func Test_finally_after_throw_2()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1978 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1979 func F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1980 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1981 Xloop 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1982 throw "exception"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1983 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1984 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1985 Xloop 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1986 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1987 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1988 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1989
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1990 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1991 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1992 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1993 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1994 throw "exception"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1995 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1996 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1997 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1998 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
1999 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2000 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2001 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2002 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2003 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2004 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2005 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2006 throw "exception"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2007 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2008 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2009 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2010 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2011 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2012 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2013 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2014 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2015 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2016 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2017 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2018 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2019 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2020 call F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2021 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2022 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2023 Xpath 'l'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2024 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2025 Xpath 'm'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2026 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2027 ExecAsScript F
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2028 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2029 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2030 Xpath 'n'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2031 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2032 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2033 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2034 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2035 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2036 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2037 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2038 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2039 call assert_equal('cdefghijka1b1lma2b2n', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2040 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2041 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2042 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2043
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2044 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2045 " Test 34: :finally reason discarded by :continue {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2046 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2047 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2048 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2049 " discarded by a :continue in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2050 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2051
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2052 func Test_finally_after_continue()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2053 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2054 func C(jump)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2055 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2056 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2057 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2058 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2059 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2060 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2061 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2062 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2063 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2064 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2065 elseif a:jump == "return" || a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2066 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2067 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2068 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2069 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2070 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2071 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2072 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2073 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2074 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2075 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2076 continue " discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2077 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2078 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2079 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2080 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2081 Xloop 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2082 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2083 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2084 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2085
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2086 call C("continue")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2087 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2088 call C("break")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2089 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2090 call C("return")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2091 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2092 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2093 ExecAsScript C
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2094 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2095 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2096 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2097 call C("error")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2098 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2099 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2100 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2101 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2102 call C("interrupt")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2103 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2104 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2105 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2106 call C("throw")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2107 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2108 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2109 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2110 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2111 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2112 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2113 call assert_equal('a2ba3ca4da5ea6fga7hia8jk', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2114 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2115 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2116 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2117
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2118 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2119 " Test 35: :finally reason discarded by :break {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2120 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2121 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2122 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2123 " discarded by a :break in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2124 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2125
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2126 func Test_finally_discard_by_break()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2127 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2128 func B(jump)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2129 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2130 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2131 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2132 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2133 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2134 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2135 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2136 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2137 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2138 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2139 elseif a:jump == "return" || a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2140 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2141 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2142 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2143 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2144 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2145 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2146 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2147 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2148 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2149 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2150 break " discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2151 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2152 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2153 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2154 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2155 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2156 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2157 Xloop 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2158 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2159
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2160 call B("continue")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2161 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2162 call B("break")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2163 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2164 call B("return")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2165 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2166 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2167 ExecAsScript B
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2168 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2169 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2170 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2171 call B("error")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2172 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2173 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2174 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2175 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2176 call B("interrupt")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2177 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2178 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2179 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2180 call B("throw")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2181 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2182 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2183 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2184 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2185 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2186 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2187 call assert_equal('a2ba3ca4da5ea6fga7hia8jk', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2188 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2189 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2190 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2191
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2192 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2193 " Test 36: :finally reason discarded by :return {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2194 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2195 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2196 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2197 " discarded by a :return in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2198 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2199
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2200 func Test_finally_discard_by_return()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2201 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2202 func R(jump, retval) abort
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2203 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2204 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2205 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2206 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2207 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2208 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2209 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2210 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2211 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2212 elseif a:jump == "return"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2213 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2214 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2215 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2216 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2217 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2218 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2219 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2220 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2221 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2222 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2223 return a:retval " discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2224 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2225 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2226 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2227 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2228 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2229 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2230 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2231 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2232
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2233 let sum = -R("continue", -8)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2234 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2235 let sum = sum - R("break", -16)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2236 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2237 let sum = sum - R("return", -32)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2238 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2239 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2240 let sum = sum - R("error", -64)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2241 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2242 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2243 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2244 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2245 let sum = sum - R("interrupt", -128)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2246 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2247 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2248 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2249 let sum = sum - R("throw", -256)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2250 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2251 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2252 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2253 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2254
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2255 let expected = 8 + 16 + 32 + 64 + 128 + 256
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2256 call assert_equal(sum, expected)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2257 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2258 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2259 call assert_equal('abcdefghi', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2260 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2261 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2262 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2263
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2264 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2265 " Test 37: :finally reason discarded by :finish {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2266 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2267 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2268 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2269 " discarded by a :finish in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2270 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2271
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2272 func Test_finally_discard_by_finish()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2273 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2274 func F(jump) " not executed as function, transformed to a script
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2275 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2276 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2277 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2278 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2279 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2280 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2281 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2282 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2283 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2284 elseif a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2285 finish
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2286 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2287 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2288 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2289 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2290 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2291 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2292 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2293 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2294 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2295 finish " discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2296 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2297 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2298 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2299 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2300 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2301 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2302 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2303 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2304
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2305 let scriptF = MakeScript("F")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2306 delfunction F
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2307
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2308 let g:jump = "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2309 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2310 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2311 let g:jump = "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2312 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2313 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2314 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2315 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2316 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2317 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2318 let g:jump = "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2319 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2320 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2321 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2322 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2323 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2324 let g:jump = "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2325 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2326 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2327 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2328 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2329 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2330 let g:jump = "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2331 exec "source" scriptF
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2332 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2333 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2334 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2335 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2336 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2337 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2338 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2339 call delete(scriptF)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2340 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2341 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2342 call assert_equal('abcdefghi', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2343 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2344 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2345 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2346
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2347 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2348 " Test 38: :finally reason discarded by an error {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2349 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2350 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2351 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2352 " discarded by an error in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2353 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2354
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2355 func Test_finally_discard_by_error()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2356 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2357 func E(jump)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2358 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2359 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2360 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2361 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2362 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2363 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2364 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2365 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2366 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2367 elseif a:jump == "return" || a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2368 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2369 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2370 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2371 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2372 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2373 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2374 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2375 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2376 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2377 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2378 asdf " error; discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2379 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2380 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2381 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2382 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2383 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2384 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2385 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2386
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2387 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2388 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2389 call E("continue")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2390 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2391 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2392 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2393 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2394 call E("break")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2395 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2396 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2397 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2398 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2399 call E("return")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2400 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2401 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2402 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2403 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2404 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2405 ExecAsScript E
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2406 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2407 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2408 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2409 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2410 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2411 call E("error")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2412 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2413 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2414 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2415 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2416 call E("interrupt")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2417 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2418 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2419 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2420 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2421 call E("throw")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2422 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2423 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2424 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2425 delfunction E
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2426 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2427 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2428 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2429 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2430 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2431 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2432 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2433 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2434 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2435 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2436 call assert_equal('abcdefgh', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2437 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2438 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2439 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2440
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2441 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2442 " Test 39: :finally reason discarded by an interrupt {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2443 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2444 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2445 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2446 " discarded by an interrupt in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2447 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2448
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2449 func Test_finally_discarded_by_interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2450 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2451 func I(jump)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2452 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2453 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2454 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2455 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2456 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2457 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2458 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2459 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2460 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2461 elseif a:jump == "return" || a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2462 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2463 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2464 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2465 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2466 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2467 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2468 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2469 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2470 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2471 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2472 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2473 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2474 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2475 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2476 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2477 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2478 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2479 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2480 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2481
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2482 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2483 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2484 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2485 call I("continue")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2486 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2487 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2488 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2489 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2490 call I("break")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2491 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2492 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2493 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2494 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2495 call I("return")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2496 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2497 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2498 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2499 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2500 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2501 ExecAsScript I
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2502 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2503 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2504 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2505 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2506 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2507 call I("error")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2508 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2509 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2510 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2511 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2512 call I("interrupt")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2513 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2514 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2515 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2516 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2517 call I("throw")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2518 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2519 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2520 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2521 delfunction I
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2522 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2523 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2524 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2525 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2526 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2527 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2528 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2529 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2530 catch /^Vim:Interrupt$/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2531 Xpath 'A'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2532 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2533 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2534 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2535 call assert_equal('abcdefghA', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2536 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2537 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2538 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2539
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2540 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2541 " Test 40: :finally reason discarded by :throw {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2542 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2543 " When a :finally clause is executed due to a :continue, :break,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2544 " :return, :finish, error, interrupt or :throw, the jump reason is
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2545 " discarded by a :throw in the finally clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2546 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2547
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2548 func Test_finally_discard_by_throw()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2549 let test =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2550 func T(jump)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2551 let loop = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2552 while loop < 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2553 let loop = loop + 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2554 if loop == 1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2555 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2556 if a:jump == "continue"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2557 continue
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2558 elseif a:jump == "break"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2559 break
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2560 elseif a:jump == "return" || a:jump == "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2561 return
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2562 elseif a:jump == "error"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2563 asdf
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2564 elseif a:jump == "interrupt"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2565 call interrupt()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2566 let dummy = 0
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2567 elseif a:jump == "throw"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2568 throw "abc"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2569 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2570 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2571 throw "xyz" " discards jump that caused the :finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2572 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2573 elseif loop == 2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2574 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2575 endif
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2576 endwhile
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2577 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2578 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2579
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2580 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2581 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2582 call T("continue")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2583 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2584 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2585 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2586 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2587 call T("break")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2588 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2589 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2590 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2591 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2592 call T("return")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2593 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2594 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2595 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2596 Xpath 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2597 let g:jump = "finish"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2598 ExecAsScript T
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2599 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2600 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2601 unlet g:jump
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2602 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2603 Xpath 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2604 call T("error")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2605 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2606 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2607 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2608 Xpath 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2609 call T("interrupt")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2610 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2611 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2612 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2613 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2614 call T("throw")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2615 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2616 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2617 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2618 delfunction T
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2619 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2620 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2621 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2622 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2623 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2624 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2625 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2626 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2627 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2628 let verify =<< trim [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2629 call assert_equal('abcdefgh', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2630 [CODE]
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2631 call RunInNewVim(test, verify)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2632 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2633
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2634 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2635 " Test 49: Throwing exceptions across functions {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2636 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2637 " When an exception is thrown but not caught inside a function, the
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2638 " caller is checked for a matching :catch clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2639 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2640
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2641 func T49_C()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2642 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2643 Xpath 'a'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2644 throw "arrgh"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2645 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2646 catch /arrgh/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2647 Xpath 'b'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2648 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2649 Xpath 'c'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2650 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2651
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2652 func T49_T1()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2653 XloopNEXT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2654 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2655 Xloop 'd'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2656 throw "arrgh"
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2657 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2658 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2659 Xloop 'e'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2660 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2661 Xloop 'f'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2662 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2663
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2664 func T49_T2()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2665 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2666 Xpath 'g'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2667 call T49_T1()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2668 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2669 finally
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2670 Xpath 'h'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2671 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2672 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2673 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2674
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2675 func Test_throw_exception_across_funcs()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2676 XpathINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2677 XloopINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2678 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2679 Xpath 'i'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2680 call T49_C() " throw and catch
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2681 Xpath 'j'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2682 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2683 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2684 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2685
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2686 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2687 Xpath 'k'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2688 call T49_T1() " throw, one level
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2689 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2690 catch /arrgh/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2691 Xpath 'l'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2692 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2693 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2694 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2695
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2696 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2697 Xpath 'm'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2698 call T49_T2() " throw, two levels
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2699 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2700 catch /arrgh/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2701 Xpath 'n'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2702 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2703 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2704 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2705 Xpath 'o'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2706
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2707 call assert_equal('iabcjkd2e2lmgd3e3hno', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2708 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2709
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2710 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2711 " Test 50: Throwing exceptions across script files {{{1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2712 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2713 " When an exception is thrown but not caught inside a script file,
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2714 " the sourcing script or function is checked for a matching :catch
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2715 " clause.
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2716 "
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2717 " This test executes the bodies of the functions C, T1, and T2 from
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2718 " the previous test as script files (:return replaced by :finish).
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2719 "-------------------------------------------------------------------------------
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2720
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2721 func T50_F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2722 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2723 Xpath 'A'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2724 exec "source" g:scriptC
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2725 Xpath 'B'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2726 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2727 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2728 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2729
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2730 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2731 Xpath 'C'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2732 exec "source" g:scriptT1
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2733 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2734 catch /arrgh/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2735 Xpath 'D'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2736 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2737 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2738 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2739 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2740
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2741 func Test_throw_across_script()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2742 XpathINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2743 XloopINIT
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2744 let g:scriptC = MakeScript("T49_C")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2745 let g:scriptT1 = MakeScript("T49_T1")
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2746 let scriptT2 = MakeScript("T49_T2", g:scriptT1)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2747
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2748 try
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2749 Xpath 'E'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2750 call T50_F()
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2751 Xpath 'F'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2752 exec "source" scriptT2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2753 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2754 catch /arrgh/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2755 Xpath 'G'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2756 catch /.*/
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2757 call assert_report('should not get here')
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2758 endtry
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2759 Xpath 'H'
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2760 call assert_equal('EAabcBCd2e2DFgd3e3hGH', g:Xpath)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2761
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2762 call delete(g:scriptC)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2763 call delete(g:scriptT1)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2764 call delete(scriptT2)
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2765 unlet g:scriptC g:scriptT1 scriptT2
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2766 endfunc
792398a9fe39 patch 8.2.1366: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21110
diff changeset
2767
18504
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
2768 "-------------------------------------------------------------------------------
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2769 " Test 52: Uncaught exceptions {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2770 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2771 " When an exception is thrown but not caught, an error message is
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2772 " displayed when the script is terminated. In case of an interrupt
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2773 " or error exception, the normal interrupt or error message(s) are
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2774 " displayed.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2775 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2776
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2777 func Test_uncaught_exception_1()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2778 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2779
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2780 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2781 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2782 throw "arrgh"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2783 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2784 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2785 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2786 call assert_equal('E605: Exception not caught: arrgh', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2787 call assert_equal('a', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2788 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2789 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2790 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2791
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2792 func Test_uncaught_exception_2()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2793 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2794
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2795 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2796 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2797 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2798 throw "oops"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2799 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2800 catch /arrgh/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2801 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2802 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2803 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2804 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2805 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2806 call assert_equal('E605: Exception not caught: oops', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2807 call assert_equal('a', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2808 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2809 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2810 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2811
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2812 func Test_uncaught_exception_3()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2813 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2814
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2815 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2816 func T()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2817 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2818 throw "brrr"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2819 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2820 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2821
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2822 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2823 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2824 throw "arrgh"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2825 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2826 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2827 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2828 call T()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2829 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2830 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2831 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2832 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2833 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2834 call assert_equal('E605: Exception not caught: brrr', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2835 call assert_equal('abc', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2836 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2837 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2838 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2839
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2840 func Test_uncaught_exception_4()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2841 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2842
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2843 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2844 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2845 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2846 throw "arrgh"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2847 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2848 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2849 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2850 throw "brrr"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2851 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2852 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2853 call assert_report('should not get here')`
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2854 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2855 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2856 call assert_equal('E605: Exception not caught: brrr', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2857 call assert_equal('ab', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2858 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2859 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2860 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2861
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2862 func Test_uncaught_exception_5()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2863 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2864
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2865 " Need to catch and handle interrupt, otherwise the test will wait for the
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2866 " user to press <Enter> to continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2867 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2868 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2869 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2870 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2871 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2872 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2873 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2874 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2875 catch /^Vim:Interrupt$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2876 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2877 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2878 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2879 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2880 call assert_equal('ab', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2881 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2882 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2883 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2884
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2885 func Test_uncaught_exception_6()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2886 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2887
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2888 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2889 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2890 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2891 let x = novar " error E121; exception: E121
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2892 catch /E15:/ " should not catch
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2893 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2894 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2895 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2896 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2897 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2898 call assert_equal('a', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2899 call assert_equal('E121: Undefined variable: novar', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2900 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2901 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2902 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2903
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2904 func Test_uncaught_exception_7()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2905 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2906
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2907 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2908 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2909 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2910 " error E108/E488; exception: E488
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2911 unlet novar #
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2912 catch /E108:/ " should not catch
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2913 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2914 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2915 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2916 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2917 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2918 call assert_equal('a', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2919 call assert_equal('E488: Trailing characters: #', v:errmsg)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2920 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2921 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2922 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2923
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2924 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2925 " Test 53: Nesting errors: :endif/:else/:elseif {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2926 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2927 " For nesting errors of :if conditionals the correct error messages
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2928 " should be given.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2929 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2930
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2931 func Test_nested_if_else_errors()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2932 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2933
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2934 " :endif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2935 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2936 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2937 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2938 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2939 call AssertException(['source Xtest'], 'Vim(endif):E580: :endif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2940
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2941 " :endif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2942 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2943 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2944 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2945 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2946 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2947 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2948 call AssertException(['source Xtest'], 'Vim(endif):E580: :endif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2949
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2950 " :endif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2951 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2952 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2953 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2954 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2955 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2956 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2957 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2958 call AssertException(['source Xtest'], 'Vim(endif):E580: :endif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2959
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2960 " :endif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2961 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2962 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2963 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2964 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2965 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2966 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2967 call AssertException(['source Xtest'], 'Vim(endif):E580: :endif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2968
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2969 " :endif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2970 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2971 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2972 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2973 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2974 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2975 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2976 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2977 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2978 call AssertException(['source Xtest'], 'Vim(endif):E580: :endif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2979
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2980 " :else without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2981 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2982 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2983 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2984 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2985 call AssertException(['source Xtest'], 'Vim(else):E581: :else without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2986
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2987 " :else without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2988 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2989 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2990 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2991 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2992 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2993 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2994 call AssertException(['source Xtest'], 'Vim(else):E581: :else without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2995
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2996 " :else without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2997 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2998 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
2999 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3000 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3001 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3002 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3003 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3004 call AssertException(['source Xtest'], 'Vim(else):E581: :else without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3005
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3006 " :else without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3007 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3008 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3009 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3010 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3011 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3012 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3013 call AssertException(['source Xtest'], 'Vim(else):E581: :else without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3014
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3015 " :else without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3016 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3017 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3018 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3019 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3020 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3021 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3022 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3023 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3024 call AssertException(['source Xtest'], 'Vim(else):E581: :else without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3025
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3026 " :elseif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3027 let code =<< trim END
28301
ebe0eeea501a patch 8.2.4676: test fails with different error
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
3028 elseif 1
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3029 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3030 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3031 call AssertException(['source Xtest'], 'Vim(elseif):E582: :elseif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3032
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3033 " :elseif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3034 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3035 while 1
28301
ebe0eeea501a patch 8.2.4676: test fails with different error
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
3036 elseif 1
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3037 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3038 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3039 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3040 call AssertException(['source Xtest'], 'Vim(elseif):E582: :elseif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3041
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3042 " :elseif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3043 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3044 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3045 finally
28301
ebe0eeea501a patch 8.2.4676: test fails with different error
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
3046 elseif 1
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3047 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3048 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3049 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3050 call AssertException(['source Xtest'], 'Vim(elseif):E582: :elseif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3051
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3052 " :elseif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3053 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3054 try
28301
ebe0eeea501a patch 8.2.4676: test fails with different error
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
3055 elseif 1
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3056 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3057 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3058 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3059 call AssertException(['source Xtest'], 'Vim(elseif):E582: :elseif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3060
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3061 " :elseif without :if
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3062 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3063 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3064 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3065 catch /a/
28301
ebe0eeea501a patch 8.2.4676: test fails with different error
Bram Moolenaar <Bram@vim.org>
parents: 28171
diff changeset
3066 elseif 1
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3067 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3068 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3069 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3070 call AssertException(['source Xtest'], 'Vim(elseif):E582: :elseif without :if')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3071
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3072 " multiple :else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3073 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3074 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3075 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3076 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3077 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3078 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3079 call writefile(code, 'Xtest')
28735
c428a4e53b9c patch 8.2.4892: test failures because of changed error messages
Bram Moolenaar <Bram@vim.org>
parents: 28301
diff changeset
3080 call AssertException(['source Xtest'], 'Vim(else):E583: Multiple :else')
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3081
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3082 " :elseif after :else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3083 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3084 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3085 else
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3086 elseif 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3087 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3088 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3089 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3090 call AssertException(['source Xtest'], 'Vim(elseif):E584: :elseif after :else')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3091
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3092 call delete('Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3093 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3094
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3095 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3096 " Test 54: Nesting errors: :while/:endwhile {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3097 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3098 " For nesting errors of :while conditionals the correct error messages
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3099 " should be given.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3100 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3101 " This test reuses the function MESSAGES() from the previous test.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3102 " This functions checks the messages in g:msgfile.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3103 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3104
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3105 func Test_nested_while_error()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3106 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3107
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3108 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3109 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3110 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3111 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3112 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3113 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3114
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3115 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3116 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3117 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3118 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3119 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3120 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3121 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3122 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3123
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3124 " Missing :endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3125 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3126 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3127 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3128 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3129 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3130 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3131 call AssertException(['source Xtest'], 'Vim(endwhile):E171: Missing :endif')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3132
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3133 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3134 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3135 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3136 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3137 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3138 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3139 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3140 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3141 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3142
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3143 " Missing :endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3144 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3145 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3146 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3147 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3148 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3149 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3150 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3151 call AssertException(['source Xtest'], 'Vim(endwhile):E600: Missing :endtry')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3152
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3153 " Missing :endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3154 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3155 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3156 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3157 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3158 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3159 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3160 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3161 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3162 call AssertException(['source Xtest'], 'Vim(endwhile):E600: Missing :endtry')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3163
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3164 " Missing :endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3165 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3166 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3167 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3168 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3169 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3170 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3171 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3172 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3173 call AssertException(['source Xtest'], 'Vim(endwhile):E171: Missing :endif')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3174
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3175 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3176 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3177 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3178 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3179 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3180 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3181 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3182 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3183
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3184 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3185 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3186 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3187 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3188 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3189 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3190 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3191 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3192 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3193 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3194
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3195 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3196 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3197 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3198 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3199 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3200 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3201 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3202 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3203 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3204 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3205
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3206 " :endwhile without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3207 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3208 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3209 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3210 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3211 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3212 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3213 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3214 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3215 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3216 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3217 call AssertException(['source Xtest'], 'Vim(endwhile):E588: :endwhile without :while')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3218
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3219 call delete('Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3220 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3221
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3222 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3223 " Test 55: Nesting errors: :continue/:break {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3224 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3225 " For nesting errors of :continue and :break commands the correct
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3226 " error messages should be given.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3227 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3228 " This test reuses the function MESSAGES() from the previous test.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3229 " This functions checks the messages in g:msgfile.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3230 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3231
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3232 func Test_nested_cont_break_error()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3233 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3234
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3235 " :continue without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3236 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3237 continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3238 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3239 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3240 call AssertException(['source Xtest'], 'Vim(continue):E586: :continue without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3241
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3242 " :continue without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3243 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3244 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3245 continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3246 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3247 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3248 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3249 call AssertException(['source Xtest'], 'Vim(continue):E586: :continue without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3250
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3251 " :continue without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3252 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3253 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3254 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3255 continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3256 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3257 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3258 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3259 call AssertException(['source Xtest'], 'Vim(continue):E586: :continue without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3260
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3261 " :continue without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3262 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3263 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3264 continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3265 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3266 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3267 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3268 call AssertException(['source Xtest'], 'Vim(continue):E586: :continue without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3269
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3270 " :continue without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3271 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3272 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3273 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3274 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3275 continue
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3276 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3277 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3278 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3279 call AssertException(['source Xtest'], 'Vim(continue):E586: :continue without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3280
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3281 " :break without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3282 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3283 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3284 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3285 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3286 call AssertException(['source Xtest'], 'Vim(break):E587: :break without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3287
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3288 " :break without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3289 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3290 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3291 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3292 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3293 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3294 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3295 call AssertException(['source Xtest'], 'Vim(break):E587: :break without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3296
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3297 " :break without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3298 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3299 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3300 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3301 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3302 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3303 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3304 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3305 call AssertException(['source Xtest'], 'Vim(break):E587: :break without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3306
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3307 " :break without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3308 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3309 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3310 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3311 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3312 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3313 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3314 call AssertException(['source Xtest'], 'Vim(break):E587: :break without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3315
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3316 " :break without :while
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3317 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3318 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3319 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3320 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3321 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3322 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3323 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3324 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3325 call AssertException(['source Xtest'], 'Vim(break):E587: :break without :while or :for')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3326
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3327 call delete('Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3328 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3329
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3330 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3331 " Test 56: Nesting errors: :endtry {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3332 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3333 " For nesting errors of :try conditionals the correct error messages
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3334 " should be given.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3335 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3336 " This test reuses the function MESSAGES() from the previous test.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3337 " This functions checks the messages in g:msgfile.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3338 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3339
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3340 func Test_nested_endtry_error()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3341 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3342
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3343 " :endtry without :try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3344 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3345 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3346 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3347 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3348 call AssertException(['source Xtest'], 'Vim(endtry):E602: :endtry without :try')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3349
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3350 " :endtry without :try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3351 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3352 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3353 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3354 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3355 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3356 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3357 call AssertException(['source Xtest'], 'Vim(endtry):E602: :endtry without :try')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3358
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3359 " :endtry without :try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3360 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3361 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3362 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3363 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3364 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3365 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3366 call AssertException(['source Xtest'], 'Vim(endtry):E602: :endtry without :try')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3367
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3368 " Missing :endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3369 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3370 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3371 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3372 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3373 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3374 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3375 call AssertException(['source Xtest'], 'Vim(endtry):E171: Missing :endif')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3376
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3377 " Missing :endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3378 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3379 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3380 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3381 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3382 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3383 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3384 call AssertException(['source Xtest'], 'Vim(endtry):E170: Missing :endwhile')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3385
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3386 " Missing :endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3387 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3388 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3389 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3390 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3391 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3392 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3393 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3394 call AssertException(['source Xtest'], 'Vim(endtry):E171: Missing :endif')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3395
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3396 " Missing :endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3397 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3398 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3399 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3400 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3401 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3402 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3403 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3404 call AssertException(['source Xtest'], 'Vim(endtry):E170: Missing :endwhile')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3405
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3406 " Missing :endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3407 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3408 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3409 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3410 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3411 if 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3412 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3413 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3414 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3415 call AssertException(['source Xtest'], 'Vim(endtry):E171: Missing :endif')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3416
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3417 " Missing :endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3418 let code =<< trim END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3419 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3420 throw "a"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3421 catch /a/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3422 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3423 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3424 END
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3425 call writefile(code, 'Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3426 call AssertException(['source Xtest'], 'Vim(endtry):E170: Missing :endwhile')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3427
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3428 call delete('Xtest')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3429 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3430
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3431 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3432 " Test 57: v:exception and v:throwpoint for user exceptions {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3433 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3434 " v:exception evaluates to the value of the exception that was caught
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3435 " most recently and is not finished. (A caught exception is finished
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3436 " when the next ":catch", ":finally", or ":endtry" is reached.)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3437 " v:throwpoint evaluates to the script/function name and line number
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3438 " where that exception has been thrown.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3439 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3440
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3441 func Test_user_exception_info()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3442 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3443
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3444 XpathINIT
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3445 XloopINIT
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3446
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3447 func FuncException()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3448 let g:exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3449 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3450
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3451 func FuncThrowpoint()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3452 let g:throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3453 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3454
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3455 let scriptException = MakeScript("FuncException")
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3456 let scriptThrowPoint = MakeScript("FuncThrowpoint")
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3457
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3458 command! CmdException let g:exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3459 command! CmdThrowpoint let g:throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3460
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3461 func T(arg, line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3462 if a:line == 2
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3463 throw a:arg " in line 2
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3464 elseif a:line == 4
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3465 throw a:arg " in line 4
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3466 elseif a:line == 6
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3467 throw a:arg " in line 6
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3468 elseif a:line == 8
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3469 throw a:arg " in line 8
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3470 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3471 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3472
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3473 func G(arg, line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3474 call T(a:arg, a:line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3475 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3476
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3477 func F(arg, line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3478 call G(a:arg, a:line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3479 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3480
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3481 let scriptT = MakeScript("T")
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3482 let scriptG = MakeScript("G", scriptT)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3483 let scriptF = MakeScript("F", scriptG)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3484
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3485 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3486 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3487 call F("oops", 2)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3488 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3489 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3490 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3491 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3492 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3493 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3494 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3495
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3496 exec "let exception = v:exception"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3497 exec "let throwpoint = v:throwpoint"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3498 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3499 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3500 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3501
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3502 CmdException
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3503 CmdThrowpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3504 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3505 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3506 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3507
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3508 call FuncException()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3509 call FuncThrowpoint()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3510 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3511 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3512 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3513
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3514 exec "source" scriptException
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3515 exec "source" scriptThrowPoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3516 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3517 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3518 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3519
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3520 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3521 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3522 call G("arrgh", 4)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3523 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3524 Xpath 'd'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3525 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3526 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3527 call assert_equal("arrgh", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3528 call assert_match('\<G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3529 call assert_match('\<4\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3530
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3531 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3532 Xpath 'e'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3533 let g:arg = "autsch"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3534 let g:line = 6
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3535 exec "source" scriptF
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3536 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3537 Xpath 'f'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3538 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3539 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3540 call assert_equal("autsch", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3541 call assert_match(fnamemodify(scriptT, ':t'), v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3542 call assert_match('\<6\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3543 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3544 Xpath 'g'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3545 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3546 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3547 call assert_equal("arrgh", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3548 call assert_match('\<G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3549 call assert_match('\<4\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3550 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3551 Xpath 'h'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3552 let g:arg = "brrrr"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3553 let g:line = 8
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3554 exec "source" scriptG
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3555 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3556 Xpath 'i'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3557 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3558 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3559 " Resolve scriptT for matching it against v:throwpoint.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3560 call assert_equal("brrrr", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3561 call assert_match(fnamemodify(scriptT, ':t'), v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3562 call assert_match('\<8\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3563 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3564 Xpath 'j'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3565 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3566 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3567 call assert_equal("arrgh", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3568 call assert_match('\<G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3569 call assert_match('\<4\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3570 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3571 Xpath 'k'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3572 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3573 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3574 call assert_equal("arrgh", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3575 call assert_match('\<G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3576 call assert_match('\<4\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3577 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3578 Xpath 'l'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3579 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3580 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3581 call assert_equal("arrgh", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3582 call assert_match('\<G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3583 call assert_match('\<4\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3584 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3585 Xpath 'm'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3586 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3587 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3588 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3589 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3590 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3591 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3592 Xpath 'n'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3593 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3594 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3595 call assert_equal("oops", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3596 call assert_match('\<F\[1]\.\.G\[1]\.\.T\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3597 call assert_match('\<2\>', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3598 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3599 Xpath 'o'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3600 let exception = v:exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3601 let throwpoint = v:throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3602 call assert_equal("", v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3603 call assert_match('^$', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3604 call assert_match('^$', v:throwpoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3605 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3606
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3607 call assert_equal('abcdefghijklmno', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3608
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3609 unlet exception throwpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3610 delfunction FuncException
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3611 delfunction FuncThrowpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3612 call delete(scriptException)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3613 call delete(scriptThrowPoint)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3614 unlet scriptException scriptThrowPoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3615 delcommand CmdException
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3616 delcommand CmdThrowpoint
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3617 delfunction T
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3618 delfunction G
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3619 delfunction F
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3620 call delete(scriptT)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3621 call delete(scriptG)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3622 call delete(scriptF)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3623 unlet scriptT scriptG scriptF
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3624 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3625
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3626 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3627 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3628 " Test 58: v:exception and v:throwpoint for error/interrupt exceptions {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3629 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3630 " v:exception and v:throwpoint work also for error and interrupt
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3631 " exceptions.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3632 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3633
28171
b4c111ea83b1 patch 8.2.4611: typos in tests; one lua line not covered by test
Bram Moolenaar <Bram@vim.org>
parents: 28008
diff changeset
3634 func Test_exception_info_for_error()
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3635 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3636
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3637 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3638 func T(line)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3639 if a:line == 2
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3640 delfunction T " error (function in use) in line 2
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3641 elseif a:line == 4
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3642 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3643 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3644 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3645
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3646 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3647 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3648 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3649 call T(2)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3650 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3651 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3652 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3653 if v:exception !~ 'Vim(delfunction):'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3654 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3655 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3656 if v:throwpoint !~ '\<T\>'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3657 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3658 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3659 if v:throwpoint !~ '\<2\>'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3660 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3661 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3662 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3663 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3664 if v:exception != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3665 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3666 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3667 if v:throwpoint != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3668 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3669 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3670 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3671 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3672 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3673
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3674 Xpath 'd'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3675 if v:exception != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3676 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3677 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3678 if v:throwpoint != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3679 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3680 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3681
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3682 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3683 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3684 Xpath 'e'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3685 call T(4)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3686 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3687 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3688 Xpath 'f'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3689 if v:exception != 'Vim:Interrupt'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3690 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3691 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3692 if v:throwpoint !~ 'function T'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3693 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3694 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3695 if v:throwpoint !~ '\<4\>'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3696 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3697 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3698 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3699 Xpath 'g'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3700 if v:exception != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3701 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3702 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3703 if v:throwpoint != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3704 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3705 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3706 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3707 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3708 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3709
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3710 Xpath 'h'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3711 if v:exception != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3712 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3713 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3714 if v:throwpoint != ""
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3715 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3716 endif
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3717 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3718 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3719 call assert_equal('abcdefgh', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3720 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3721 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3722 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3723
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
3724 "-------------------------------------------------------------------------------
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3725 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3726 " Test 59: v:exception and v:throwpoint when discarding exceptions {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3727 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3728 " When a :catch clause is left by a ":break" etc or an error or
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3729 " interrupt exception, v:exception and v:throwpoint are reset. They
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3730 " are not affected by an exception that is discarded before being
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3731 " caught.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3732 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3733 func Test_exception_info_on_discard()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3734 CheckEnglish
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3736 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3737 let sfile = expand("<sfile>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3738
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3739 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3740 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3741 throw "x1"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3742 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3743 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3744 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3745 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3746 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3747 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3748
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3749 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3750 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3751 throw "x2"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3752 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3753 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3754 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3755 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3756 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3757 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3758 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3759 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3760 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3761 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3762
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3763 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3764 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3765 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3766 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3767 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3768 throw "x3"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3769 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3770 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3771 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3772 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3773 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3774 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3775 call assert_match('Vim:E492: Not an editor command:', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3776 call assert_match('line ' .. (lnum + 1), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3777 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3778 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3779 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3780 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3781 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3782 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3783 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3784 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3785
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3786 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3787
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3788 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3789 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3790 let intcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3791 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3792 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3793 throw "x4"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3794 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3795 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3796 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3797 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3798 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3799 let intcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3800 call assert_match('Vim:Interrupt', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3801 call assert_match('line ' .. (lnum + 1), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3802 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3803 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3804 call assert_equal(1, intcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3805 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3806 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3807 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3808 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3809 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3810
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3811 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3812
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3813 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3814 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3815 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3816 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3817 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3818 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3819 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3820 throw "x5"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3821 " missing endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3822 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3823 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3824 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3825 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3826 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3827 call assert_match('Vim(catch):E171: Missing :endif:', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3828 call assert_match('line ' .. (lnum + 3), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3829 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3830 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3831 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3832 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3833 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3834 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3835 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3836 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3837
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3838 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3839
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3840 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3841 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3842 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3843 throw "x6"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3844 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3845 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3846 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3847 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3848 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3849 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3850 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3851 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3852 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3853 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3854
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3855 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3856 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3857 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3858 throw "x7"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3859 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3860 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3861 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3862 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3863 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3864 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3865 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3866 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3867 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3868 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3869 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3870 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3871 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3872
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3873 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3874 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3875 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3876 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3877 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3878 throw "x8"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3879 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3880 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3881 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3882 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3883 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3884 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3885 call assert_match('Vim:E492: Not an editor command:', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3886 call assert_match('line ' .. (lnum + 1), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3887 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3888 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3889 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3890 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3891 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3892 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3893 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3894 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3895
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3896 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3897
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3898 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3899 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3900 let intcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3901 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3902 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3903 throw "x9"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3904 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3905 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3906 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3907 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3908 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3909 let intcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3910 call assert_match('Vim:Interrupt', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3911 call assert_match('line ' .. (lnum + 1), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3912 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3913 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3914 call assert_equal(1, intcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3915 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3916 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3917 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3918 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3919 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3920
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3921 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3922
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3923 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3924 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3925 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3926 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3927 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3928 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3929 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3930 throw "x10"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3931 " missing endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3932 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3933 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3934 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3935 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3936 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3937 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3938 call assert_match('Vim(finally):E171: Missing :endif:', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3939 call assert_match('line ' .. (lnum + 3), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3940 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3941 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3942 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3943 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3944 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3945 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3946 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3947 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3948
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3949 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3950
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3951 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3952 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3953 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3954 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3955 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3956 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3957 let lnum = expand("<sflnum>")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3958 throw "x11"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3959 " missing endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3960 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3961 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3962 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3963 call assert_match('Vim(endtry):E171: Missing :endif:', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3964 call assert_match('line ' .. (lnum + 3), v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3965 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3966 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3967 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3968 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3969 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3970 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3971 call assert_equal('', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3972 call assert_equal('', v:throwpoint)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3973
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3974 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3975 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3976 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3977 call assert_equal('abcdefg', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3978 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3979 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3980 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3981
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3982 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3983 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3984 " Test 60: (Re)throwing v:exception; :echoerr. {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3985 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3986 " A user exception can be rethrown after catching by throwing
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3987 " v:exception. An error or interrupt exception cannot be rethrown
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3988 " because Vim exceptions cannot be faked. A Vim exception using the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3989 " value of v:exception can, however, be triggered by the :echoerr
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3990 " command.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3991 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3992
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3993 func Test_rethrow_exception_1()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3994 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3995 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3996 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3997 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3998 throw "oops"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
3999 catch /oops/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4000 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4001 throw v:exception " rethrow user exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4002 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4003 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4004 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4005 catch /^oops$/ " catches rethrown user exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4006 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4007 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4008 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4009 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4010 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4011 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4012
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4013 func Test_rethrow_exception_2()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4014 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4015 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4016 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4017 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4018 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4019 write /n/o/n/w/r/i/t/a/b/l/e/_/f/i/l/e
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4020 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4021 catch /^Vim(write):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4022 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4023 throw v:exception " throw error: cannot fake Vim exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4024 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4025 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4026 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4027 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4028 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4029 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4030 catch /^Vim(throw):/ " catches throw error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4031 let caught = caught + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4032 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4033 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4034 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4035 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4036 call assert_equal(2, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4037 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4038 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4039 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4040
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4041 func Test_rethrow_exception_3()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4042 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4043 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4044 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4045 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4046 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4047 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4048 catch /^Vim/ " catch error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4049 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4050 " Trigger Vim error exception with value specified after :echoerr
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4051 let value = substitute(v:exception, '^Vim\((.*)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4052 echoerr value
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4053 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4054 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4055 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4056 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4057 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4058 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4059 catch /^Vim(echoerr):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4060 let caught = caught + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4061 call assert_match(value, v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4062 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4063 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4064 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4065 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4066 call assert_equal(2, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4067 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4068 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4069 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4070
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4071 func Test_rethrow_exception_3()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4072 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4073 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4074 let errcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4075 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4076 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4077 let intcaught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4078 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4079 catch /^Vim:/ " catch interrupt exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4080 let intcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4081 " Trigger Vim error exception with value specified after :echoerr
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4082 echoerr substitute(v:exception, '^Vim\((.*)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4083 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4084 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4085 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4086 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4087 call assert_equal(1, intcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4088 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4089 catch /^Vim(echoerr):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4090 let errcaught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4091 call assert_match('Interrupt', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4092 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4093 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4094 call assert_equal(1, errcaught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4095 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4096 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4097 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4098
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4099 "-------------------------------------------------------------------------------
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4100 " Test 61: Catching interrupt exceptions {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4101 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4102 " When an interrupt occurs inside a :try/:endtry region, an
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4103 " interrupt exception is thrown and can be caught. Its value is
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4104 " "Vim:Interrupt". If the interrupt occurs after an error or a :throw
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4105 " but before a matching :catch is reached, all following :catches of
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4106 " that try block are ignored, but the interrupt exception can be
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4107 " caught by the next surrounding try conditional. An interrupt is
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4108 " ignored when there is a previous interrupt that has not been caught
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4109 " or causes a :finally clause to be executed.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4110 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4111
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4112 func Test_catch_intr_exception()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4113 let test =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4114 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4115 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4116 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4117 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4118 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4119 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4120 catch /^Vim:Interrupt$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4121 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4122 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4123 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4124 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4125 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4126 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4127 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4128 Xpath 'd'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4129 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4130 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4131 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4132
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4133 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4134 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4135 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4136 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4137 Xpath 'e'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4138 asdf
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4139 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4140 catch /do_not_catch/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4141 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4142 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4143 Xpath 'f'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4144 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4145 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4146 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4147 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4148 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4149 Xpath 'g'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4150 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4151 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4152 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4153 catch /^Vim:Interrupt$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4154 Xpath 'h'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4155 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4156 Xpath 'i'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4157 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4158 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4159 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4160 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4161 Xpath 'j'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4162 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4163 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4164 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4165
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4166 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4167 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4168 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4169 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4170 Xpath 'k'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4171 throw "x"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4172 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4173 catch /do_not_catch/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4174 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4175 catch /x/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4176 Xpath 'l'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4177 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4178 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4179 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4180 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4181 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4182 catch /^Vim:Interrupt$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4183 Xpath 'm'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4184 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4185 Xpath 'n'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4186 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4187 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4188 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4189 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4190 Xpath 'o'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4191 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4192 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4193 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4194
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4195 while 1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4196 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4197 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4198 Xpath 'p'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4199 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4200 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4201 catch /do_not_catch/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4202 call interrupt()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4203 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4204 catch /^Vim:Interrupt$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4205 Xpath 'q'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4206 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4207 Xpath 'r'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4208 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4209 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4210 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4211 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4212 Xpath 's'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4213 break
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4214 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4215 endwhile
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4216
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4217 Xpath 't'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4218 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4219 let verify =<< trim [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4220 call assert_equal('abcdefghijklmnopqrst', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4221 [CODE]
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4222 call RunInNewVim(test, verify)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4223 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4224
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4225 "-------------------------------------------------------------------------------
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4226 " Test 62: Catching error exceptions {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4227 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4228 " An error inside a :try/:endtry region is converted to an exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4229 " and can be caught. The error exception has a "Vim(cmdname):" prefix
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4230 " where cmdname is the name of the failing command, or a "Vim:" prefix
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4231 " if no command name is known. The "Vim" prefixes cannot be faked.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4232 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4233
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4234 func Test_catch_err_exception_1()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4235 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4236 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4237 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4238 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4239 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4240 unlet novar
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4241 catch /^Vim(unlet):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4242 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4243 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4244 let v:errmsg = substitute(v:exception, '^Vim(unlet):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4245 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4246 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4247 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4248 call assert_match('E108: No such variable: "novar"', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4249 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4250 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4251 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4252 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4253 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4254 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4255 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4256 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4257 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4258 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4259 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4260
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4261 func Test_catch_err_exception_2()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4262 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4263 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4264 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4265 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4266 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4267 throw novar " error in :throw
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4268 catch /^Vim(throw):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4269 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4270 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4271 let v:errmsg = substitute(v:exception, '^Vim(throw):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4272 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4273 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4274 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4275 call assert_match('E121: Undefined variable: novar', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4276 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4277 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4278 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4279 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4280 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4281 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4282 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4283 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4284 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4285 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4286 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4287
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4288 func Test_catch_err_exception_3()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4289 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4290 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4291 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4292 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4293 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4294 throw "Vim:faked" " error: cannot fake Vim exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4295 catch /^Vim(throw):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4296 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4297 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4298 let v:errmsg = substitute(v:exception, '^Vim(throw):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4299 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4300 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4301 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4302 call assert_match("E608: Cannot :throw exceptions with 'Vim' prefix",
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4303 \ v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4304 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4305 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4306 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4307 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4308 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4309 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4310 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4311 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4312 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4313 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4314 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4315
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4316 func Test_catch_err_exception_4()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4317 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4318 func F()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4319 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4320 " Missing :endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4321 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4322
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4323 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4324 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4325 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4326 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4327 call F()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4328 catch /^Vim(endfunction):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4329 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4330 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4331 let v:errmsg = substitute(v:exception, '^Vim(endfunction):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4332 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4333 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4334 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4335 call assert_match("E170: Missing :endwhile", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4336 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4337 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4338 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4339 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4340 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4341 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4342 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4343 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4344 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4345 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4346 delfunc F
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4347 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4348
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4349 func Test_catch_err_exception_5()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4350 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4351 func F()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4352 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4353 " Missing :endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4354 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4355
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4356 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4357 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4358 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4359 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4360 ExecAsScript F
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4361 catch /^Vim:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4362 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4363 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4364 let v:errmsg = substitute(v:exception, '^Vim:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4365 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4366 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4367 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4368 call assert_match("E170: Missing :endwhile", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4369 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4370 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4371 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4372 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4373 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4374 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4375 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4376 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4377 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4378 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4379 delfunc F
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4380 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4381
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4382 func Test_catch_err_exception_6()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4383 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4384 func G()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4385 call G()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4386 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4387
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4388 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4389 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4390 let mfd_save = &mfd
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4391 set mfd=3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4392 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4393 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4394 call G()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4395 catch /^Vim(call):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4396 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4397 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4398 let v:errmsg = substitute(v:exception, '^Vim(call):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4399 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4400 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4401 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4402 call assert_match("E132: Function call depth is higher than 'maxfuncdepth'", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4403 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4404 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4405 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4406 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4407 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4408 let &mfd = mfd_save
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4409 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4410 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4411 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4412 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4413 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4414 delfunc G
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4415 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4416
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4417 func Test_catch_err_exception_7()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4418 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4419 func H()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4420 return H()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4421 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4422
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4423 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4424 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4425 let mfd_save = &mfd
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4426 set mfd=3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4427 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4428 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4429 call H()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4430 catch /^Vim(return):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4431 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4432 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4433 let v:errmsg = substitute(v:exception, '^Vim(return):', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4434 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4435 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4436 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4437 call assert_match("E132: Function call depth is higher than 'maxfuncdepth'", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4438 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4439 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4440 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4441 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4442 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4443 let &mfd = mfd_save
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4444 break " discard error for $VIMNOERRTHROW
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4445 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4446 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4447 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4448
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4449 call assert_equal('abc', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4450 delfunc H
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4451 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4452
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4453 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4454 " Test 63: Suppressing error exceptions by :silent!. {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4455 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4456 " A :silent! command inside a :try/:endtry region suppresses the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4457 " conversion of errors to an exception and the immediate abortion on
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4458 " error. When the commands executed by the :silent! themselves open
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4459 " a new :try/:endtry region, conversion of errors to exception and
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4460 " immediate abortion is switched on again - until the next :silent!
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4461 " etc. The :silent! has the effect of setting v:errmsg to the error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4462 " message text (without displaying it) and continuing with the next
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4463 " script line.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4464 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4465 " When a command triggering autocommands is executed by :silent!
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4466 " inside a :try/:endtry, the autocommand execution is not suppressed
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4467 " on error.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4468 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4469 " This test reuses the function MSG() from the previous test.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4470 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4471
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4472 func Test_silent_exception()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4473 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4474 XloopINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4475 let g:taken = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4476
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4477 func S(n) abort
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4478 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4479 let g:taken = g:taken . "E" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4480 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4481 exec "asdf" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4482
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4483 " Check that ":silent!" continues:
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4484 Xloop 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4485
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4486 " Check that ":silent!" sets "v:errmsg":
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4487 call assert_match("E492: Not an editor command", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4488 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4489
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4490 func Foo()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4491 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4492 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4493 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4494 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4495 " This is not silent:
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4496 call S(3)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4497 catch /^Vim:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4498 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4499 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4500 let errmsg3 = substitute(v:exception, '^Vim:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4501 silent! call S(4)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4502 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4503 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4504 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4505 call assert_match("E492: Not an editor command", errmsg3)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4506 silent! call S(5)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4507 " Break out of try conditionals that cover ":silent!". This also
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4508 " discards the aborting error when $VIMNOERRTHROW is non-zero.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4509 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4510 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4511 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4512 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4513 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4514 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4515 " This is a double ":silent!" (see caller).
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4516 silent! call S(6)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4517 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4518
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4519 func Bar()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4520 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4521 silent! call S(2)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4522 silent! execute "call Foo() | call S(7)"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4523 silent! call S(8)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4524 endtry " normal end of try cond that covers ":silent!"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4525 " This has a ":silent!" from the caller:
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4526 call S(9)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4527 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4528
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4529 silent! call S(1)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4530 silent! call Bar()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4531 silent! call S(10)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4532
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4533 call assert_equal("E1E2E3E4E5E6E7E8E9E10", g:taken)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4534
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4535 augroup TMP
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4536 au!
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4537 autocmd BufWritePost * Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4538 augroup END
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4539
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4540 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4541 silent! write /i/m/p/o/s/s/i/b/l/e
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4542 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4543
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4544 call assert_equal('a2a3ba5ca6a7a8a9a10a11edf', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4545
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4546 augroup TMP
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4547 au!
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4548 augroup END
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4549 augroup! TMP
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4550 delfunction S
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4551 delfunction Foo
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4552 delfunction Bar
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4553 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4554
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4555 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4556 " Test 64: Error exceptions after error, interrupt or :throw {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4557 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4558 " When an error occurs after an interrupt or a :throw but before
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4559 " a matching :catch is reached, all following :catches of that try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4560 " block are ignored, but the error exception can be caught by the next
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4561 " surrounding try conditional. Any previous error exception is
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4562 " discarded. An error is ignored when there is a previous error that
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4563 " has not been caught.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4564 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4565
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4566 func Test_exception_after_error_1()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4567 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4568 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4569 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4570 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4571 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4572 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4573 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4574 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4575 " Missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4576 endwhile " throw error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4577 catch /^Vim(/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4578 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4579 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4580 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4581 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4582 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4583 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4584 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4585 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4586 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4587 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4588 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4589 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4590 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4591 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4592 call assert_equal('abcd', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4593 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4594
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4595 func Test_exception_after_error_2()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4596 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4597 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4598 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4599 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4600 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4601 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4602 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4603 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4604 " Missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4605 catch /.*/ " throw error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4606 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4607 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4608 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4609 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4610 catch /^Vim(/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4611 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4612 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4613 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4614 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4615 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4616 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4617 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4618 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4619 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4620 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4621 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4622 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4623 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4624 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4625 call assert_equal('abcd', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4626 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4627
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4628 func Test_exception_after_error_3()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4629 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4630 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4631 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4632 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4633 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4634 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4635 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4636 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4637 catch /do_not_catch/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4638 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4639 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4640 " Missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4641 catch /.*/ " throw error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4642 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4643 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4644 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4645 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4646 catch /^Vim(/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4647 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4648 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4649 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4650 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4651 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4652 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4653 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4654 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4655 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4656 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4657 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4658 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4659 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4660 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4661 call assert_equal('abcd', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4662 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4663
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4664 func Test_exception_after_error_4()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4665 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4666 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4667 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4668 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4669 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4670 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4671 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4672 throw "x"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4673 catch /do_not_catch/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4674 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4675 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4676 " Missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4677 catch /x/ " throw error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4678 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4679 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4680 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4681 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4682 catch /^Vim(/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4683 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4684 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4685 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4686 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4687 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4688 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4689 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4690 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4691 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4692 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4693 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4694 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4695 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4696 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4697 call assert_equal('abcd', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4698 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4699
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4700 func Test_exception_after_error_5()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4701 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4702 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4703 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4704 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4705 let caught = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4706 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4707 endif " :endif without :if; throw error exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4708 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4709 " Missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4710 catch /do_not_catch/ " ignore new error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4711 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4712 catch /^Vim(endif):/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4713 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4714 let caught = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4715 catch /^Vim(/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4716 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4717 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4718 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4719 call assert_equal(1, caught)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4720 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4721 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4722 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4723 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4724 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4725 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4726 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4727 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4728 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4729 call assert_equal('abcd', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4730 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4731
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4732 "-------------------------------------------------------------------------------
21666
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4733 " Test 65: Errors in the /pattern/ argument of a :catch {{{1
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4734 "
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4735 " On an error in the /pattern/ argument of a :catch, the :catch does
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4736 " not match. Any following :catches of the same :try/:endtry don't
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4737 " match either. Finally clauses are executed.
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4738 "-------------------------------------------------------------------------------
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4739
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4740 func Test_catch_pattern_error()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4741 CheckEnglish
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4742 XpathINIT
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4743
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4744 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4745 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4746 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4747 throw "oops"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4748 catch /^oops$/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4749 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4750 catch /\)/ " not checked; exception has already been caught
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4751 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4752 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4753 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4754 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4755 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4756 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4757 call assert_equal('abc', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4758
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4759 XpathINIT
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4760 func F()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4761 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4762 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4763 try
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4764 Xpath 'a'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4765 throw "ab"
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4766 catch /abc/ " does not catch
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4767 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4768 catch /\)/ " error; discards exception
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4769 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4770 catch /.*/ " not checked
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4771 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4772 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4773 Xpath 'b'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4774 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4775 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4776 catch /^ab$/ " checked, but original exception is discarded
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4777 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4778 catch /^Vim(catch):/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4779 Xpath 'c'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4780 call assert_match('Vim(catch):E475: Invalid argument:', v:exception)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4781 finally
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4782 Xpath 'd'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4783 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4784 Xpath 'e'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4785 catch /.*/
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4786 call assert_report('should not get here')
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4787 endtry
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4788 Xpath 'f'
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4789 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4790
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4791 call F()
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4792 call assert_equal('abcdef', g:Xpath)
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4793
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4794 delfunc F
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4795 endfunc
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4796
97b887aecd4a patch 8.2.1383: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21632
diff changeset
4797 "-------------------------------------------------------------------------------
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4798 " Test 66: Stop range :call on error, interrupt, or :throw {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4799 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4800 " When a function which is multiply called for a range since it
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4801 " doesn't handle the range itself has an error in a command
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4802 " dynamically enclosed by :try/:endtry or gets an interrupt or
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4803 " executes a :throw, no more calls for the remaining lines in the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4804 " range are made. On an error in a command not dynamically enclosed
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4805 " by :try/:endtry, the function is executed again for the remaining
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4806 " lines in the range.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4807 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4808
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4809 func Test_stop_range_on_error()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4810 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4811 let file = tempname()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4812 exec "edit" file
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4813 call setline(1, ['line 1', 'line 2', 'line 3'])
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4814 let taken = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4815 let expected = "G1EF1E(1)F1E(2)F1E(3)G2EF2E(1)G3IF3I(1)G4TF4T(1)G5AF5A(1)"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4816
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4817 func F(reason, n) abort
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4818 let g:taken = g:taken .. "F" .. a:n ..
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4819 \ substitute(a:reason, '\(\l\).*', '\u\1', "") ..
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4820 \ "(" .. line(".") .. ")"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4821
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4822 if a:reason == "error"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4823 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4824 elseif a:reason == "interrupt"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4825 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4826 elseif a:reason == "throw"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4827 throw "xyz"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4828 elseif a:reason == "aborting error"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4829 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4830 call assert_equal(g:taken, g:expected)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4831 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4832 bwipeout!
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4833 call delete(g:file)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4834 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4835 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4836 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4837 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4838
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4839 func G(reason, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4840 let g:taken = g:taken .. "G" .. a:n ..
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4841 \ substitute(a:reason, '\(\l\).*', '\u\1', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4842 1,3call F(a:reason, a:n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4843 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4844
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4845 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4846 call G("error", 1)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4847 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4848 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4849 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4850 call G("error", 2)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4851 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4852 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4853 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4854 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4855 call G("interrupt", 3)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4856 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4857 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4858 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4859 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4860 call G("throw", 4)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4861 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4862 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4863 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4864 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4865 catch /xyz/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4866 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4867 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4868 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4869 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4870 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4871 call G("aborting error", 5)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4872 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4873 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4874 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4875 call assert_equal('abcdef', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4876 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4877 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4878 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4879
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4880 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4881 " Test 67: :throw across :call command {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4882 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4883 " On a call command, an exception might be thrown when evaluating the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4884 " function name, during evaluation of the arguments, or when the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4885 " function is being executed. The exception can be caught by the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4886 " caller.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4887 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4888
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4889 func THROW(x, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4890 if a:n == 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4891 Xpath 'A'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4892 elseif a:n == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4893 Xpath 'B'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4894 elseif a:n == 3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4895 Xpath 'C'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4896 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4897 throw a:x
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4898 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4899
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4900 func NAME(x, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4901 if a:n == 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4902 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4903 elseif a:n == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4904 Xpath 'D'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4905 elseif a:n == 3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4906 Xpath 'E'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4907 elseif a:n == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4908 Xpath 'F'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4909 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4910 return a:x
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4911 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4912
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4913 func ARG(x, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4914 if a:n == 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4915 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4916 elseif a:n == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4917 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4918 elseif a:n == 3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4919 Xpath 'G'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4920 elseif a:n == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4921 Xpath 'I'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4922 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4923 return a:x
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4924 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4925
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4926 func Test_throw_across_call_cmd()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4927 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4928
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4929 func F(x, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4930 if a:n == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4931 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4932 elseif a:n == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4933 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4934 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4935 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4936
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4937 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4938 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4939 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4940
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4941 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4942 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4943 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4944 call {NAME(THROW("name", 1), 1)}(ARG(4711, 1), 1)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4945 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4946 catch /^name$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4947 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4948 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4949 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4950 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4951 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4952 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4953 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4954 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4955 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4956
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4957 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4958 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4959 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4960 call {NAME("F", 2)}(ARG(THROW("arg", 2), 2), 2)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4961 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4962 catch /^arg$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4963 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4964 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4965 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4966 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4967 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4968 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4969 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4970 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4971 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4972
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4973 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4974 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4975 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4976 call {NAME("THROW", 3)}(ARG("call", 3), 3)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4977 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4978 catch /^call$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4979 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4980 catch /^0$/ " default return value
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4981 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4982 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4983 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4984 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4985 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4986 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4987 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4988 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4989 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4990
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4991 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4992 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4993 Xpath 'h'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4994 call {NAME("F", 4)}(ARG(4711, 4), 4)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4995 Xpath 'i'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4996 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4997 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4998 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
4999 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5000 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5001 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5002 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5003 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5004
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5005 catch /^0$/ " default return value
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5006 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5007 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5008 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5009 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5010 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5011 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5012 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5013 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5014 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5015
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5016 call assert_equal('bAcdDBefEGCghFIai', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5017 delfunction F
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5018 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5019
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5020 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5021 " Test 68: :throw across function calls in expressions {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5022 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5023 " On a function call within an expression, an exception might be
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5024 " thrown when evaluating the function name, during evaluation of the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5025 " arguments, or when the function is being executed. The exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5026 " can be caught by the caller.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5027 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5028 " This test reuses the functions THROW(), NAME(), and ARG() from the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5029 " previous test.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5030 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5031
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5032 func Test_throw_across_call_expr()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5033 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5034
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5035 func F(x, n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5036 if a:n == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5037 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5038 elseif a:n == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5039 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5040 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5041 return a:x
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5042 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5043
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5044 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5045 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5046 let error = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5047 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5048
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5049 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5050 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5051 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5052 let var1 = {NAME(THROW("name", 1), 1)}(ARG(4711, 1), 1)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5053 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5054 catch /^name$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5055 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5056 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5057 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5058 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5059 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5060 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5061 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5062 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5063 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5064 call assert_true(!exists('var1'))
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5065
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5066 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5067 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5068 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5069 let var2 = {NAME("F", 2)}(ARG(THROW("arg", 2), 2), 2)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5070 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5071 catch /^arg$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5072 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5073 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5074 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5075 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5076 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5077 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5078 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5079 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5080 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5081 call assert_true(!exists('var2'))
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5082
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5083 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5084 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5085 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5086 let var3 = {NAME("THROW", 3)}(ARG("call", 3), 3)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5087 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5088 catch /^call$/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5089 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5090 catch /^0$/ " default return value
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5091 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5092 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5093 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5094 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5095 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5096 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5097 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5098 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5099 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5100 call assert_true(!exists('var3'))
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5101
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5102 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5103 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5104 Xpath 'h'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5105 let var4 = {NAME("F", 4)}(ARG(4711, 4), 4)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5106 Xpath 'i'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5107 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5108 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5109 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5110 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5111 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5112 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5113 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5114 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5115 call assert_true(exists('var4') && var4 == 4711)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5116
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5117 catch /^0$/ " default return value
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5118 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5119 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5120 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5121 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5122 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5123 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5124 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5125 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5126
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5127 call assert_equal('bAcdDBefEGCghFIai', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5128 delfunc F
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5129 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5130
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5131 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5132 " Test 76: Errors, interrupts, :throw during expression evaluation {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5133 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5134 " When a function call made during expression evaluation is aborted
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5135 " due to an error inside a :try/:endtry region or due to an interrupt
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5136 " or a :throw, the expression evaluation is aborted as well. No
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5137 " message is displayed for the cancelled expression evaluation. On an
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5138 " error not inside :try/:endtry, the expression evaluation continues.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5139 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5140
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5141 func Test_expr_eval_error()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5142 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5143 let taken = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5144
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5145 func ERR(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5146 let g:taken = g:taken .. "E" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5147 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5148 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5149
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5150 func ERRabort(n) abort
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5151 let g:taken = g:taken .. "A" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5152 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5153 endfunc " returns -1; may cause follow-up msg for illegal var/func name
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5154
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5155 func WRAP(n, arg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5156 let g:taken = g:taken .. "W" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5157 let g:saved_errmsg = v:errmsg
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5158 return arg
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5159 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5160
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5161 func INT(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5162 let g:taken = g:taken .. "I" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5163 call interrupt()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5164 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5165
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5166 func THR(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5167 let g:taken = g:taken .. "T" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5168 throw "should not be caught"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5169 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5170
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5171 func CONT(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5172 let g:taken = g:taken .. "C" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5173 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5174
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5175 func MSG(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5176 let g:taken = g:taken .. "M" .. a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5177 let errmsg = (a:n >= 37 && a:n <= 44) ? g:saved_errmsg : v:errmsg
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5178 let msgptn = (a:n >= 10 && a:n <= 27) ? "^$" : "asdf"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5179 call assert_match(msgptn, errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5180 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5181 let g:saved_errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5182 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5183
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5184 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5185
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5186 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5187 let t = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5188 while t <= 9
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5189 Xloop 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5190 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5191 if t == 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5192 let v{ERR(t) + CONT(t)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5193 elseif t == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5194 let v{ERR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5195 elseif t == 3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5196 let var = exists('v{ERR(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5197 elseif t == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5198 unlet v{ERR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5199 elseif t == 5
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5200 function F{ERR(t) + CONT(t)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5201 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5202 elseif t == 6
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5203 function F{ERR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5204 elseif t == 7
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5205 let var = exists('*F{ERR(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5206 elseif t == 8
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5207 delfunction F{ERR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5208 elseif t == 9
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5209 let var = ERR(t) + CONT(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5210 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5211 catch /asdf/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5212 " v:errmsg is not set when the error message is converted to an
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5213 " exception. Set it to the original error message.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5214 let v:errmsg = substitute(v:exception, '^Vim:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5215 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5216 " An error exception has been thrown after the original error.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5217 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5218 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5219 call MSG(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5220 let t = t + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5221 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5222 continue " discard an aborting error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5223 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5224 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5225 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5226 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5227 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5228
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5229 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5230 let t = 10
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5231 while t <= 18
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5232 Xloop 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5233 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5234 if t == 10
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5235 let v{INT(t) + CONT(t)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5236 elseif t == 11
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5237 let v{INT(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5238 elseif t == 12
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5239 let var = exists('v{INT(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5240 elseif t == 13
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5241 unlet v{INT(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5242 elseif t == 14
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5243 function F{INT(t) + CONT(t)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5244 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5245 elseif t == 15
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5246 function F{INT(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5247 elseif t == 16
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5248 let var = exists('*F{INT(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5249 elseif t == 17
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5250 delfunction F{INT(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5251 elseif t == 18
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5252 let var = INT(t) + CONT(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5253 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5254 catch /^Vim\((\a\+)\)\=:\(Interrupt\)\@!/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5255 " An error exception has been triggered after the interrupt.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5256 let v:errmsg = substitute(v:exception, '^Vim\((\a\+)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5257 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5258 call MSG(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5259 let t = t + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5260 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5261 continue " discard interrupt
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5262 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5263 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5264 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5265 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5266 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5267
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5268 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5269 let t = 19
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5270 while t <= 27
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5271 Xloop 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5272 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5273 if t == 19
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5274 let v{THR(t) + CONT(t)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5275 elseif t == 20
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5276 let v{THR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5277 elseif t == 21
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5278 let var = exists('v{THR(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5279 elseif t == 22
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5280 unlet v{THR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5281 elseif t == 23
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5282 function F{THR(t) + CONT(t)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5283 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5284 elseif t == 24
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5285 function F{THR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5286 elseif t == 25
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5287 let var = exists('*F{THR(t) + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5288 elseif t == 26
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5289 delfunction F{THR(t) + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5290 elseif t == 27
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5291 let var = THR(t) + CONT(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5292 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5293 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5294 " An error exception has been triggered after the :throw.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5295 let v:errmsg = substitute(v:exception, '^Vim\((\a\+)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5296 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5297 call MSG(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5298 let t = t + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5299 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5300 continue " discard exception
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5301 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5302 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5303 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5304 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5305 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5306
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5307 let v{ERR(28) + CONT(28)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5308 call MSG(28)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5309 let v{ERR(29) + CONT(29)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5310 call MSG(29)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5311 let var = exists('v{ERR(30) + CONT(30)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5312 call MSG(30)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5313 unlet v{ERR(31) + CONT(31)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5314 call MSG(31)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5315 function F{ERR(32) + CONT(32)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5316 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5317 call MSG(32)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5318 function F{ERR(33) + CONT(33)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5319 call MSG(33)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5320 let var = exists('*F{ERR(34) + CONT(34)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5321 call MSG(34)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5322 delfunction F{ERR(35) + CONT(35)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5323 call MSG(35)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5324 let var = ERR(36) + CONT(36)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5325 call MSG(36)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5326
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5327 let saved_errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5328
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5329 let v{WRAP(37, ERRabort(37)) + CONT(37)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5330 call MSG(37)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5331 let v{WRAP(38, ERRabort(38)) + CONT(38)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5332 call MSG(38)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5333 let var = exists('v{WRAP(39, ERRabort(39)) + CONT(39)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5334 call MSG(39)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5335 unlet v{WRAP(40, ERRabort(40)) + CONT(40)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5336 call MSG(40)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5337 function F{WRAP(41, ERRabort(41)) + CONT(41)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5338 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5339 call MSG(41)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5340 function F{WRAP(42, ERRabort(42)) + CONT(42)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5341 call MSG(42)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5342 let var = exists('*F{WRAP(43, ERRabort(43)) + CONT(43)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5343 call MSG(43)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5344 delfunction F{WRAP(44, ERRabort(44)) + CONT(44)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5345 call MSG(44)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5346 let var = ERRabort(45) + CONT(45)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5347 call MSG(45)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5348 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5349
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5350 let expected = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5351 \ .. "E1M1E2M2E3M3E4M4E5M5E6M6E7M7E8M8E9M9"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5352 \ .. "I10M10I11M11I12M12I13M13I14M14I15M15I16M16I17M17I18M18"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5353 \ .. "T19M19T20M20T21M21T22M22T23M23T24M24T25M25T26M26T27M27"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5354 \ .. "E28C28M28E29C29M29E30C30M30E31C31M31E32C32M32E33C33M33"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5355 \ .. "E34C34M34E35C35M35E36C36M36"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5356 \ .. "A37W37C37M37A38W38C38M38A39W39C39M39A40W40C40M40A41W41C41M41"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5357 \ .. "A42W42C42M42A43W43C43M43A44W44C44M44A45C45M45"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5358 call assert_equal(expected, taken)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5359 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5360 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5361 let expected = "a1a2a3a4a5a6a7a8a9"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5362 \ .. "b10b11b12b13b14b15b16b17b18"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5363 \ .. "c19c20c21c22c23c24c25c26c27d"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5364 call assert_equal(expected, g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5365 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5366 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5367 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5368
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5369 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5370 " Test 77: Errors, interrupts, :throw in name{brace-expression} {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5371 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5372 " When a function call made during evaluation of an expression in
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5373 " braces as part of a function name after ":function" is aborted due
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5374 " to an error inside a :try/:endtry region or due to an interrupt or
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5375 " a :throw, the expression evaluation is aborted as well, and the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5376 " function definition is ignored, skipping all commands to the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5377 " ":endfunction". On an error not inside :try/:endtry, the expression
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5378 " evaluation continues and the function gets defined, and can be
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5379 " called and deleted.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5380 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5381 func Test_brace_expr_error()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5382 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5383 func ERR() abort
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5384 Xloop 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5385 asdf
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5386 endfunc " returns -1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5387
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5388 func OK()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5389 Xloop 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5390 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5391 return 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5392 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5393
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5394 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5395
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5396 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5397 func F{1 + ERR() + OK()}(arg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5398 " F0 should be defined.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5399 if exists("a:arg") && a:arg == "calling"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5400 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5401 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5402 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5403 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5404 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5405 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5406 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5407
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5408 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5409 call F{1 + ERR() + OK()}("calling")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5410 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5411 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5412
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5413 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5414 delfunction F{1 + ERR() + OK()}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5415 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5416 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5417
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5418 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5419 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5420 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5421 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5422 func G{1 + ERR() + OK()}(arg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5423 " G0 should not be defined, and the function body should be
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5424 " skipped.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5425 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5426 " Use an unmatched ":finally" to check whether the body is
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5427 " skipped when an error occurs in ERR(). This works whether or
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5428 " not the exception is converted to an exception.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5429 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5430 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5431 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5432 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5433 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5434 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5435
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5436 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5437 catch /asdf/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5438 " Jumped to when the function is not defined and the body is
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5439 " skipped.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5440 Xpath 'h'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5441 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5442 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5443 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5444 Xpath 'i'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5445 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5446 endtry " jumped to when the body is not skipped
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5447 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5448 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5449 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5450 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5451 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5452 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5453 call assert_equal('ca1b1ea2b2dfa3b3ga4hi', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5454 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5455 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5456 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5457
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5458 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5459 " Test 78: Messages on parsing errors in expression evaluation {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5460 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5461 " When an expression evaluation detects a parsing error, an error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5462 " message is given and converted to an exception, and the expression
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5463 " evaluation is aborted.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5464 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5465 func Test_expr_eval_error_msg()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5466 CheckEnglish
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5467
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5468 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5469 let taken = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5470
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5471 func F(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5472 let g:taken = g:taken . "F" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5473 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5474
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5475 func MSG(n, enr, emsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5476 let g:taken = g:taken . "M" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5477 call assert_match('^' .. a:enr .. ':', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5478 call assert_match(a:emsg, v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5479 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5480
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5481 func CONT(n)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5482 let g:taken = g:taken . "C" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5483 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5484
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5485 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5486 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5487 let t = 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5488 while t <= 14
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5489 let g:taken = g:taken . "T" . t
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5490 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5491 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5492 if t == 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5493 let v{novar + CONT(t)} = 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5494 elseif t == 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5495 let v{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5496 elseif t == 3
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5497 let var = exists('v{novar + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5498 elseif t == 4
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5499 unlet v{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5500 elseif t == 5
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5501 function F{novar + CONT(t)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5502 endfunction
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5503 elseif t == 6
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5504 function F{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5505 elseif t == 7
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5506 let var = exists('*F{novar + CONT(t)}')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5507 elseif t == 8
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5508 delfunction F{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5509 elseif t == 9
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5510 echo novar + CONT(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5511 elseif t == 10
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5512 echo v{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5513 elseif t == 11
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5514 echo F{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5515 elseif t == 12
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5516 let var = novar + CONT(t)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5517 elseif t == 13
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5518 let var = v{novar + CONT(t)}
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5519 elseif t == 14
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5520 let var = F{novar + CONT(t)}()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5521 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5522 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5523 Xloop 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5524 " v:errmsg is not set when the error message is converted to an
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5525 " exception. Set it to the original error message.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5526 let v:errmsg = substitute(v:exception, '^Vim\((\a\+)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5527 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5528 Xloop 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5529 if t <= 8 && t != 3 && t != 7
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5530 call MSG(t, 'E475', 'Invalid argument\>')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5531 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5532 call MSG(t, 'E121', "Undefined variable")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5533 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5534 let t = t + 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5535 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5536 continue " discard an aborting error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5537 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5538 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5539 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5540 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5541 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5542
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5543 func T(n, expr, enr, emsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5544 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5545 let g:taken = g:taken . "T" . a:n
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5546 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5547 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5548 execute "let var = " . a:expr
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5549 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5550 Xloop 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5551 " v:errmsg is not set when the error message is converted to an
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5552 " exception. Set it to the original error message.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5553 let v:errmsg = substitute(v:exception, '^Vim\((\a\+)\)\=:', '', "")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5554 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5555 Xloop 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5556 call MSG(a:n, a:enr, a:emsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5557 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5558 " Discard an aborting error:
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5559 return
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5560 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5561 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5562 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5563 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5564 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5565
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5566 call T(15, 'Nofunc() + CONT(15)', 'E117', "Unknown function")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5567 call T(16, 'F(1 2 + CONT(16))', 'E116', "Invalid arguments")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5568 call T(17, 'F(1, 2) + CONT(17)', 'E118', "Too many arguments")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5569 call T(18, 'F() + CONT(18)', 'E119', "Not enough arguments")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5570 call T(19, '{(1} + CONT(19)', 'E110', "Missing ')'")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5571 call T(20, '("abc"[1) + CONT(20)', 'E111', "Missing ']'")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5572 call T(21, '(1 +) + CONT(21)', 'E15', "Invalid expression")
24958
21ec48d542a8 patch 8.2.3016: confusing error when expression is followed by comma
Bram Moolenaar <Bram@vim.org>
parents: 24862
diff changeset
5573 call T(22, '1 2 + CONT(22)', 'E488', "Trailing characters: 2 +")
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5574 call T(23, '(1 ? 2) + CONT(23)', 'E109', "Missing ':' after '?'")
26606
c40554dfe03e patch 8.2.3832: test fails because of changed error message
Bram Moolenaar <Bram@vim.org>
parents: 25615
diff changeset
5575 call T(24, '("abc) + CONT(24)', 'E114', "Missing double quote")
c40554dfe03e patch 8.2.3832: test fails because of changed error message
Bram Moolenaar <Bram@vim.org>
parents: 25615
diff changeset
5576 call T(25, "('abc) + CONT(25)", 'E115', "Missing single quote")
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5577 call T(26, '& + CONT(26)', 'E112', "Option name missing")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5578 call T(27, '&asdf + CONT(27)', 'E113', "Unknown option")
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5579
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5580 let expected = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5581 \ .. "T1M1T2M2T3M3T4M4T5M5T6M6T7M7T8M8T9M9T10M10T11M11T12M12T13M13T14M14"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5582 \ .. "T15M15T16M16T17M17T18M18T19M19T20M20T21M21T22M22T23M23T24M24T25M25"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5583 \ .. "T26M26T27M27"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5584
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5585 call assert_equal(expected, taken)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5586 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5587 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5588 let expected = "a1b1a2b2a3b3a4b4a5b5a6b6a7b7a8b8a9b9a10b10a11b11a12b12"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5589 \ .. "a13b13a14b14c15d15c16d16c17d17c18d18c19d19c20d20"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5590 \ .. "c21d21c22d22c23d23c24d24c25d25c26d26c27d27"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5591 call assert_equal(expected, g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5592 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5593 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5594 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5595
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5596 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5597 " Test 79: Throwing one of several errors for the same command {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5598 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5599 " When several errors appear in a row (for instance during expression
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5600 " evaluation), the first as the most specific one is used when
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5601 " throwing an error exception. If, however, a syntax error is
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5602 " detected afterwards, this one is used for the error exception.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5603 " On a syntax error, the next command is not executed, on a normal
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5604 " error, however, it is (relevant only in a function without the
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5605 " "abort" flag). v:errmsg is not set.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5606 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5607 " If throwing error exceptions is configured off, v:errmsg is always
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5608 " set to the latest error message, that is, to the more general
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5609 " message or the syntax error, respectively.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5610 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5611 func Test_throw_multi_error()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5612 CheckEnglish
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5613
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5614 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5615 func NEXT(cmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5616 exec a:cmd . " | Xloop 'a'"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5617 endfun
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5618
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5619 call NEXT('echo novar') " (checks nextcmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5620 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5621 call NEXT('let novar #') " (skips nextcmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5622 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5623 call NEXT('unlet novar #') " (skips nextcmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5624 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5625 call NEXT('let {novar}') " (skips nextcmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5626 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5627 call NEXT('unlet{ novar}') " (skips nextcmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5628
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5629 call assert_equal('a1', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5630 XpathINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5631 XloopINIT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5632
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5633 func EXEC(cmd)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5634 exec a:cmd
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5635 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5636
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5637 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5638 while 1 " dummy loop
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5639 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5640 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5641 call EXEC('echo novar') " normal error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5642 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5643 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5644 call assert_match('E121: Undefined variable: novar', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5645 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5646 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5647 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5648 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5649 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5650 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5651
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5652 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5653 let cmd = "let"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5654 while cmd != ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5655 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5656 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5657 call EXEC(cmd . ' novar #') " normal plus syntax error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5658 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5659 Xloop 'e'
25615
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5660 if cmd =~ 'unlet'
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5661 " TODO: should get error for 'novar'
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5662 call assert_match('E488: Trailing characters', v:exception)
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5663 else
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5664 call assert_match('E121: Undefined variable: novar', v:exception)
b0f82974ddf4 patch 8.2.3344: vimscript test fails
Bram Moolenaar <Bram@vim.org>
parents: 24958
diff changeset
5665 endif
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5666 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5667 Xloop 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5668 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5669 if cmd == "let"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5670 let cmd = "unlet"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5671 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5672 let cmd = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5673 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5674 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5675 continue
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5676 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5677 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5678
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5679 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5680 let cmd = "let"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5681 while cmd != ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5682 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5683 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5684 call EXEC(cmd . ' {novar}') " normal plus syntax error
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5685 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5686 Xloop 'h'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5687 call assert_match('E475: Invalid argument: {novar}', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5688 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5689 Xloop 'i'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5690 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5691 if cmd == "let"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5692 let cmd = "unlet"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5693 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5694 let cmd = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5695 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5696 XloopNEXT
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5697 continue
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5698 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5699 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5700 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5701 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5702 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5703 Xpath 'j'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5704 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5705 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5706 call assert_equal('bcde1f1e2f2gh3i3h4i4j', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5707 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5708 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5709 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5710
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5711 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5712 " Test 80: Syntax error in expression for illegal :elseif {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5713 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5714 " If there is a syntax error in the expression after an illegal
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5715 " :elseif, an error message is given (or an error exception thrown)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5716 " for the illegal :elseif rather than the expression error.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5717 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5718 func Test_if_syntax_error()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5719 CheckEnglish
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5720
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5721 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5722 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5723 if 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5724 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5725 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5726 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5727 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5728 call assert_match('E584: :elseif after :else', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5729
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5730 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5731 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5732 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5733 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5734 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5735 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5736 call assert_match('E584: :elseif after :else', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5737
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5738 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5739 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5740 Xpath 'c'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5741 call assert_match('E582: :elseif without :if', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5742
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5743 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5744 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5745 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5746 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5747 Xpath 'd'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5748 call assert_match('E582: :elseif without :if', v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5749
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5750 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5751 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5752 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5753 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5754 if 0
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5755 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5756 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5757 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5758 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5759 Xpath 'e'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5760 call assert_match('E584: :elseif after :else', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5761 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5762 Xpath 'f'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5763 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5764 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5765 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5766 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5767 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5768 Xpath 'g'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5769 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5770 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5771 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5772
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5773 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5774 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5775 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5776 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5777 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5778 else
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5779 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5780 endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5781 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5782 Xpath 'h'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5783 call assert_match('E584: :elseif after :else', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5784 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5785 Xpath 'i'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5786 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5787 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5788 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5789 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5790 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5791 Xpath 'j'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5792 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5793 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5794 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5795
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5796 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5797 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5798 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5799 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5800 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5801 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5802 Xpath 'k'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5803 call assert_match('E582: :elseif without :if', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5804 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5805 Xpath 'l'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5806 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5807 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5808 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5809 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5810 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5811 Xpath 'm'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5812 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5813 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5814 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5815
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5816 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5817 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5818 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5819 let v:errmsg = ""
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5820 while 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5821 elseif 1 ||| 2
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5822 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5823 catch /^Vim\((\a\+)\)\=:/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5824 Xpath 'n'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5825 call assert_match('E582: :elseif without :if', v:exception)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5826 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5827 Xpath 'o'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5828 call assert_equal("", v:errmsg)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5829 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5830 catch /.*/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5831 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5832 finally
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5833 Xpath 'p'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5834 break
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5835 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5836 endwhile
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5837 Xpath 'q'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5838 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5839 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5840 call assert_equal('abcdefghijklmnopq', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5841 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5842 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5843 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5844
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5845 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5846 " Test 81: Discarding exceptions after an error or interrupt {{{1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5847 "
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5848 " When an exception is thrown from inside a :try conditional without
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5849 " :catch and :finally clauses and an error or interrupt occurs before
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5850 " the :endtry is reached, the exception is discarded.
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5851 "-------------------------------------------------------------------------------
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5852
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5853 func Test_discard_exception_after_error_1()
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5854 let test =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5855 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5856 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5857 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5858 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5859 throw "arrgh"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5860 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5861 if 1
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5862 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5863 " error after :throw: missing :endif
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5864 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5865 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5866 catch /arrgh/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5867 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5868 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5869 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5870 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5871 let verify =<< trim [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5872 call assert_equal('ab', g:Xpath)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5873 [CODE]
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5874 call RunInNewVim(test, verify)
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5875 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5876
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5877 " interrupt the code before the endtry is invoked
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5878 func Test_discard_exception_after_error_2()
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5879 XpathINIT
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5880 let lines =<< trim [CODE]
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5881 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5882 Xpath 'a'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5883 try
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5884 Xpath 'b'
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5885 throw "arrgh"
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5886 call assert_report('should not get here')
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5887 endtry " interrupt here
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5888 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5889 catch /arrgh/
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5890 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5891 endtry
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5892 call assert_report('should not get here')
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5893 [CODE]
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5894 call writefile(lines, 'Xscript')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5895
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5896 breakadd file 7 Xscript
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5897 try
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5898 let caught_intr = 0
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5899 debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5900 call feedkeys(":source Xscript\<CR>quit\<CR>", "xt")
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5901 catch /^Vim:Interrupt$/
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5902 call assert_match('Xscript, line 7', v:throwpoint)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5903 let caught_intr = 1
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5904 endtry
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5905 0debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5906 call assert_equal(1, caught_intr)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5907 call assert_equal('ab', g:Xpath)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5908 breakdel *
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5909 call delete('Xscript')
21735
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5910 endfunc
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5911
078d98fe1c65 patch 8.2.1417: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21666
diff changeset
5912 "-------------------------------------------------------------------------------
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5913 " Test 82: Ignoring :catch clauses after an error or interrupt {{{1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5914 "
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5915 " When an exception is thrown and an error or interrupt occurs before
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5916 " the matching :catch clause is reached, the exception is discarded
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5917 " and the :catch clause is ignored (also for the error or interrupt
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5918 " exception being thrown then).
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5919 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5920
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5921 func Test_ignore_catch_after_error_1()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5922 let test =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5923 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5924 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5925 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5926 throw "arrgh"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5927 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5928 if 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5929 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5930 " error after :throw: missing :endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5931 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5932 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5933 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5934 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5935 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5936 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5937 catch /arrgh/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5938 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5939 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5940 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5941 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5942 let verify =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5943 call assert_equal('a', g:Xpath)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5944 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5945 call RunInNewVim(test, verify)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5946 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5947
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5948 func Test_ignore_catch_after_error_2()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5949 let test =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5950 func E()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5951 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5952 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5953 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5954 throw "arrgh"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5955 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5956 if 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5957 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5958 " error after :throw: missing :endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5959 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5960 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5961 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5962 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5963 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5964 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5965 catch /arrgh/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5966 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5967 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5968 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5969
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5970 call E()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5971 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5972 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5973 let verify =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5974 call assert_equal('a', g:Xpath)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5975 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5976 call RunInNewVim(test, verify)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5977 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5978
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5979 " interrupt right before a catch is invoked in a script
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5980 func Test_ignore_catch_after_intr_1()
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5981 XpathINIT
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5982 let lines =<< trim [CODE]
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5983 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5984 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5985 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5986 throw "arrgh"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5987 call assert_report('should not get here')
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5988 catch /.*/ " interrupt here
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5989 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5990 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5991 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5992 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5993 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5994 catch /arrgh/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5995 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5996 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5997 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
5998 [CODE]
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
5999 call writefile(lines, 'Xscript')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6000
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6001 breakadd file 6 Xscript
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6002 try
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6003 let caught_intr = 0
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6004 debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6005 call feedkeys(":source Xscript\<CR>quit\<CR>", "xt")
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6006 catch /^Vim:Interrupt$/
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6007 call assert_match('Xscript, line 6', v:throwpoint)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6008 let caught_intr = 1
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6009 endtry
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6010 0debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6011 call assert_equal(1, caught_intr)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6012 call assert_equal('a', g:Xpath)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6013 breakdel *
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6014 call delete('Xscript')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6015 endfunc
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6016
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6017 " interrupt right before a catch is invoked inside a function.
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6018 func Test_ignore_catch_after_intr_2()
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6019 XpathINIT
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6020 func F()
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6021 try
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6022 try
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6023 Xpath 'a'
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6024 throw "arrgh"
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6025 call assert_report('should not get here')
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6026 catch /.*/ " interrupt here
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6027 call assert_report('should not get here')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6028 catch /.*/
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6029 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6030 endtry
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6031 call assert_report('should not get here')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6032 catch /arrgh/
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6033 call assert_report('should not get here')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6034 endtry
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6035 call assert_report('should not get here')
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6036 endfunc
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6037
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6038 breakadd func 6 F
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6039 try
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6040 let caught_intr = 0
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6041 debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6042 call feedkeys(":call F()\<CR>quit\<CR>", "xt")
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6043 catch /^Vim:Interrupt$/
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6044 call assert_match('\.F, line 6', v:throwpoint)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6045 let caught_intr = 1
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6046 endtry
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6047 0debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6048 call assert_equal(1, caught_intr)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6049 call assert_equal('a', g:Xpath)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6050 breakdel *
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6051 delfunc F
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6052 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6053
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6054 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6055 " Test 83: Executing :finally clauses after an error or interrupt {{{1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6056 "
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6057 " When an exception is thrown and an error or interrupt occurs before
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6058 " the :finally of the innermost :try is reached, the exception is
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6059 " discarded and the :finally clause is executed.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6060 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6061
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6062 func Test_finally_after_error()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6063 let test =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6064 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6065 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6066 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6067 Xpath 'b'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6068 throw "arrgh"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6069 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6070 if 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6071 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6072 " error after :throw: missing :endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6073 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6074 Xpath 'c'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6075 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6076 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6077 catch /arrgh/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6078 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6079 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6080 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6081 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6082 let verify =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6083 call assert_equal('abc', g:Xpath)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6084 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6085 call RunInNewVim(test, verify)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6086 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6087
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6088 " interrupt the code right before the finally is invoked
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6089 func Test_finally_after_intr()
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6090 XpathINIT
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6091 let lines =<< trim [CODE]
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6092 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6093 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6094 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6095 Xpath 'b'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6096 throw "arrgh"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6097 call assert_report('should not get here')
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6098 finally " interrupt here
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6099 Xpath 'c'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6100 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6101 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6102 catch /arrgh/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6103 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6104 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6105 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6106 [CODE]
21781
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6107 call writefile(lines, 'Xscript')
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6108
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6109 breakadd file 7 Xscript
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6110 try
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6111 let caught_intr = 0
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6112 debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6113 call feedkeys(":source Xscript\<CR>quit\<CR>", "xt")
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6114 catch /^Vim:Interrupt$/
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6115 call assert_match('Xscript, line 7', v:throwpoint)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6116 let caught_intr = 1
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6117 endtry
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6118 0debuggreedy
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6119 call assert_equal(1, caught_intr)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6120 call assert_equal('abc', g:Xpath)
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6121 breakdel *
99fe9e960207 patch 8.2.1440: debugger code insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 21741
diff changeset
6122 call delete('Xscript')
21741
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6123 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6124
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6125 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6126 " Test 84: Exceptions in autocommand sequences. {{{1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6127 "
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6128 " When an exception occurs in a sequence of autocommands for
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6129 " a specific event, the rest of the sequence is not executed. The
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6130 " command that triggered the autocommand execution aborts, and the
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6131 " exception is propagated to the caller.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6132 "
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6133 " For the FuncUndefined event under a function call expression or
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6134 " :call command, the function is not executed, even when it has
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6135 " been defined by the autocommands before the exception occurred.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6136 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6137
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6138 func Test_autocmd_exception()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6139 let test =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6140 func INT()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6141 call interrupt()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6142 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6143
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6144 aug TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6145 autocmd!
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6146
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6147 autocmd User x1 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6148 autocmd User x1 throw "x1"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6149 autocmd User x1 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6150
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6151 autocmd User x2 Xpath 'b'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6152 autocmd User x2 asdf
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6153 autocmd User x2 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6154
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6155 autocmd User x3 Xpath 'c'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6156 autocmd User x3 call INT()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6157 autocmd User x3 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6158
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6159 autocmd FuncUndefined U1 func U1()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6160 autocmd FuncUndefined U1 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6161 autocmd FuncUndefined U1 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6162 autocmd FuncUndefined U1 Xpath 'd'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6163 autocmd FuncUndefined U1 throw "U1"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6164 autocmd FuncUndefined U1 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6165
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6166 autocmd FuncUndefined U2 func U2()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6167 autocmd FuncUndefined U2 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6168 autocmd FuncUndefined U2 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6169 autocmd FuncUndefined U2 Xpath 'e'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6170 autocmd FuncUndefined U2 ASDF
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6171 autocmd FuncUndefined U2 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6172
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6173 autocmd FuncUndefined U3 func U3()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6174 autocmd FuncUndefined U3 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6175 autocmd FuncUndefined U3 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6176 autocmd FuncUndefined U3 Xpath 'f'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6177 autocmd FuncUndefined U3 call INT()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6178 autocmd FuncUndefined U3 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6179 aug END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6180
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6181 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6182 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6183 Xpath 'g'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6184 doautocmd User x1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6185 catch /x1/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6186 Xpath 'h'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6187 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6188
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6189 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6190 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6191 Xpath 'i'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6192 doautocmd User x2
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6193 catch /asdf/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6194 Xpath 'j'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6195 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6196 Xpath 'k'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6197 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6198 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6199 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6200
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6201 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6202 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6203 Xpath 'l'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6204 doautocmd User x3
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6205 catch /Vim:Interrupt/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6206 Xpath 'm'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6207 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6208 Xpath 'n'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6209 " ... but break loop for caught interrupt exception,
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6210 " or discard interrupt and break loop if $VIMNOINTTHROW
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6211 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6212 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6213 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6214
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6215 if exists("*U1") | delfunction U1 | endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6216 if exists("*U2") | delfunction U2 | endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6217 if exists("*U3") | delfunction U3 | endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6218
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6219 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6220 Xpath 'o'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6221 call U1()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6222 catch /U1/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6223 Xpath 'p'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6224 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6225
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6226 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6227 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6228 Xpath 'q'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6229 call U2()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6230 catch /ASDF/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6231 Xpath 'r'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6232 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6233 Xpath 's'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6234 " ... but break loop for caught error exception,
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6235 " or discard error and break loop if $VIMNOERRTHROW
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6236 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6237 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6238 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6239
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6240 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6241 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6242 Xpath 't'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6243 call U3()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6244 catch /Vim:Interrupt/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6245 Xpath 'u'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6246 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6247 Xpath 'v'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6248 " ... but break loop for caught interrupt exception,
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6249 " or discard interrupt and break loop if $VIMNOINTTHROW
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6250 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6251 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6252 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6253 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6254 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6255 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6256 Xpath 'w'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6257 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6258 let verify =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6259 call assert_equal('gahibjklcmnodpqerstfuvw', g:Xpath)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6260 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6261 call RunInNewVim(test, verify)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6262 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6263
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6264 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6265 " Test 85: Error exceptions in autocommands for I/O command events {{{1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6266 "
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6267 " When an I/O command is inside :try/:endtry, autocommands to be
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6268 " executed after it should be skipped on an error (exception) in the
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6269 " command itself or in autocommands to be executed before the command.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6270 " In the latter case, the I/O command should not be executed either.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6271 " Example 1: BufWritePre, :write, BufWritePost
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6272 " Example 2: FileReadPre, :read, FileReadPost.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6273 "-------------------------------------------------------------------------------
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6274
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6275 func Test_autocmd_error_io_exception()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6276 let test =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6277 " Remove the autocommands for the events specified as arguments in all used
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6278 " autogroups.
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6279 func Delete_autocommands(...)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6280 let augfile = tempname()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6281 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6282 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6283 exec "redir >" . augfile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6284 aug
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6285 redir END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6286 exec "edit" augfile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6287 g/^$/d
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6288 norm G$
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6289 let wrap = "w"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6290 while search('\%( \|^\)\@<=.\{-}\%( \)\@=', wrap) > 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6291 let wrap = "W"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6292 exec "norm y/ \n"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6293 let argno = 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6294 while argno <= a:0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6295 exec "au!" escape(@", " ") a:{argno}
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6296 let argno = argno + 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6297 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6298 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6299 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6300 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6301 bwipeout!
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6302 call delete(augfile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6303 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6304 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6305 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6306 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6307
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6308 call Delete_autocommands("BufWritePre", "BufWritePost")
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6309
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6310 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6311 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6312 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6313 let post = 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6314 aug TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6315 au! BufWritePost * let post = 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6316 aug END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6317 write /n/o/n/e/x/i/s/t/e/n/t
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6318 catch /^Vim(write):/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6319 Xpath 'a'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6320 call assert_match("E212: Can't open file for writing", v:exception)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6321 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6322 Xpath 'b'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6323 call assert_equal(0, post)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6324 au! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6325 aug! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6326 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6327 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6328 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6329 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6330 Xpath 'c'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6331 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6332 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6333 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6334
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6335 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6336 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6337 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6338 let post = 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6339 aug TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6340 au! BufWritePre * asdf
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6341 au! BufWritePost * let post = 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6342 aug END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6343 let tmpfile = tempname()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6344 exec "write" tmpfile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6345 catch /^Vim\((write)\)\=:/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6346 Xpath 'd'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6347 call assert_match('E492: Not an editor command', v:exception)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6348 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6349 Xpath 'e'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6350 if filereadable(tmpfile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6351 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6352 endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6353 call assert_equal(0, post)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6354 au! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6355 aug! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6356 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6357 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6358 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6359 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6360 Xpath 'f'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6361 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6362 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6363 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6364
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6365 call delete(tmpfile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6366
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6367 call Delete_autocommands("BufWritePre", "BufWritePost",
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6368 \ "BufReadPre", "BufReadPost", "FileReadPre", "FileReadPost")
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6369
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6370 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6371 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6372 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6373 let post = 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6374 aug TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6375 au! FileReadPost * let post = 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6376 aug END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6377 let caught = 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6378 read /n/o/n/e/x/i/s/t/e/n/t
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6379 catch /^Vim(read):/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6380 Xpath 'g'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6381 call assert_match("E484: Can't open file", v:exception)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6382 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6383 Xpath 'h'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6384 call assert_equal(0, post)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6385 au! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6386 aug! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6387 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6388 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6389 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6390 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6391 Xpath 'i'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6392 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6393 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6394 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6395
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6396 while 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6397 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6398 let infile = tempname()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6399 let tmpfile = tempname()
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6400 call writefile(["XYZ"], infile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6401 exec "edit" tmpfile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6402 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6403 Xpath 'j'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6404 try
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6405 let post = 0
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6406 aug TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6407 au! FileReadPre * asdf
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6408 au! FileReadPost * let post = 1
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6409 aug END
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6410 exec "0read" infile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6411 catch /^Vim\((read)\)\=:/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6412 Xpath 'k'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6413 call assert_match('E492: Not an editor command', v:exception)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6414 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6415 Xpath 'l'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6416 if getline("1") == "XYZ"
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6417 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6418 endif
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6419 call assert_equal(0, post)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6420 au! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6421 aug! TMP
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6422 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6423 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6424 Xpath 'm'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6425 bwipeout!
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6426 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6427 catch /.*/
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6428 call assert_report('should not get here')
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6429 finally
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6430 Xpath 'n'
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6431 break
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6432 endtry
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6433 endwhile
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6434
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6435 call delete(infile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6436 call delete(tmpfile)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6437 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6438 let verify =<< trim [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6439 call assert_equal('abcdefghijklmn', g:Xpath)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6440 [CODE]
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6441 call RunInNewVim(test, verify)
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6442 endfunc
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6443
baccf9e06efe patch 8.2.1420: test 49 is old style
Bram Moolenaar <Bram@vim.org>
parents: 21735
diff changeset
6444 "-------------------------------------------------------------------------------
18504
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6445 " Test 87 using (expr) ? funcref : funcref {{{1
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6446 "
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6447 " Vim needs to correctly parse the funcref and even when it does
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6448 " not execute the funcref, it needs to consume the trailing ()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6449 "-------------------------------------------------------------------------------
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6450
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6451 func Add2(x1, x2)
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6452 return a:x1 + a:x2
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6453 endfu
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6454
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6455 func GetStr()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6456 return "abcdefghijklmnopqrstuvwxyp"
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6457 endfu
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6458
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6459 func Test_funcref_with_condexpr()
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6460 call assert_equal(5, function('Add2')(2,3))
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6461
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6462 call assert_equal(3, 1 ? function('Add2')(1,2) : function('Add2')(2,3))
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6463 call assert_equal(5, 0 ? function('Add2')(1,2) : function('Add2')(2,3))
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6464 " Make sure, GetStr() still works.
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6465 call assert_equal('abcdefghijk', GetStr()[0:10])
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6466 endfunc
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
6467
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6468 " Test 90: Recognizing {} in variable name. {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6469 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6470
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6471 func Test_curlies()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6472 let s:var = 66
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6473 let ns = 's'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6474 call assert_equal(66, {ns}:var)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6475
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6476 let g:a = {}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6477 let g:b = 't'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6478 let g:a[g:b] = 77
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6479 call assert_equal(77, g:a['t'])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6480 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6481
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6482 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6483 " Test 91: using type(). {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6484 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6485
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6486 func Test_type()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6487 call assert_equal(0, type(0))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6488 call assert_equal(1, type(""))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6489 call assert_equal(2, type(function("tr")))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6490 call assert_equal(2, type(function("tr", [8])))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6491 call assert_equal(3, type([]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6492 call assert_equal(4, type({}))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6493 call assert_equal(5, type(0.0))
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6494 call assert_equal(6, type(v:false))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6495 call assert_equal(6, type(v:true))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6496 call assert_equal(7, type(v:none))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6497 call assert_equal(7, type(v:null))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6498 call assert_equal(8, v:t_job)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6499 call assert_equal(9, v:t_channel)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6500 call assert_equal(v:t_number, type(0))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6501 call assert_equal(v:t_string, type(""))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6502 call assert_equal(v:t_func, type(function("tr")))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6503 call assert_equal(v:t_func, type(function("tr", [8])))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6504 call assert_equal(v:t_list, type([]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6505 call assert_equal(v:t_dict, type({}))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6506 call assert_equal(v:t_float, type(0.0))
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6507 call assert_equal(v:t_bool, type(v:false))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6508 call assert_equal(v:t_bool, type(v:true))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6509 call assert_equal(v:t_none, type(v:none))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6510 call assert_equal(v:t_none, type(v:null))
20158
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6511 call assert_equal(v:t_string, type(test_null_string()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6512 call assert_equal(v:t_func, type(test_null_function()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6513 call assert_equal(v:t_func, type(test_null_partial()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6514 call assert_equal(v:t_list, type(test_null_list()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6515 call assert_equal(v:t_dict, type(test_null_dict()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6516 if has('job')
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6517 call assert_equal(v:t_job, type(test_null_job()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6518 endif
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6519 if has('channel')
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6520 call assert_equal(v:t_channel, type(test_null_channel()))
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6521 endif
94f05de75e9f patch 8.2.0634: crash with null partial and blob
Bram Moolenaar <Bram@vim.org>
parents: 20128
diff changeset
6522 call assert_equal(v:t_blob, type(test_null_blob()))
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6523
19548
9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown()
Bram Moolenaar <Bram@vim.org>
parents: 19471
diff changeset
6524 call assert_fails("call type(test_void())", 'E685:')
9a9ca0e622c8 patch 8.2.0331: internal error when using test_void() and test_unknown()
Bram Moolenaar <Bram@vim.org>
parents: 19471
diff changeset
6525 call assert_fails("call type(test_unknown())", 'E685:')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6526
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6527 call assert_equal(0, 0 + v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6528 call assert_equal(1, 0 + v:true)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6529 call assert_equal(0, 0 + v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6530 call assert_equal(0, 0 + v:null)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6531
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6532 call assert_equal('v:false', '' . v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6533 call assert_equal('v:true', '' . v:true)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6534 call assert_equal('v:none', '' . v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6535 call assert_equal('v:null', '' . v:null)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6536
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6537 call assert_true(v:false == 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6538 call assert_false(v:false != 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6539 call assert_true(v:true == 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6540 call assert_false(v:true != 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6541 call assert_false(v:true == v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6542 call assert_true(v:true != v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6543
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6544 call assert_true(v:null == 0)
27928
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number
Bram Moolenaar <Bram@vim.org>
parents: 27901
diff changeset
6545 call assert_false(v:null == 1)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6546 call assert_false(v:null != 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6547 call assert_true(v:none == 0)
27928
ca7a207d83cd patch 8.2.4489: failing test for comparing v:null with number
Bram Moolenaar <Bram@vim.org>
parents: 27901
diff changeset
6548 call assert_false(v:none == 1)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6549 call assert_false(v:none != 0)
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6550 call assert_true(v:null == 0.0)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6551 call assert_false(v:null == 0.1)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6552 call assert_false(v:null != 0.0)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6553
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6554 call assert_true(v:false is v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6555 call assert_true(v:true is v:true)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6556 call assert_true(v:none is v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6557 call assert_true(v:null is v:null)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6558
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6559 call assert_false(v:false isnot v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6560 call assert_false(v:true isnot v:true)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6561 call assert_false(v:none isnot v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6562 call assert_false(v:null isnot v:null)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6563
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6564 call assert_false(v:false is 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6565 call assert_false(v:true is 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6566 call assert_false(v:true is v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6567 call assert_false(v:none is 0)
28008
cc7d54a134e4 patch 8.2.4529: Vim9: comparing partial with function fails
Bram Moolenaar <Bram@vim.org>
parents: 27928
diff changeset
6568 call assert_false(v:none is [])
cc7d54a134e4 patch 8.2.4529: Vim9: comparing partial with function fails
Bram Moolenaar <Bram@vim.org>
parents: 27928
diff changeset
6569 call assert_false(v:none is {})
cc7d54a134e4 patch 8.2.4529: Vim9: comparing partial with function fails
Bram Moolenaar <Bram@vim.org>
parents: 27928
diff changeset
6570 call assert_false(v:none is 'text')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6571 call assert_false(v:null is 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6572 call assert_false(v:null is v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6573
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6574 call assert_true(v:false isnot 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6575 call assert_true(v:true isnot 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6576 call assert_true(v:true isnot v:false)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6577 call assert_true(v:none isnot 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6578 call assert_true(v:null isnot 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6579 call assert_true(v:null isnot v:none)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6580
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6581 call assert_equal(v:false, eval(string(v:false)))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6582 call assert_equal(v:true, eval(string(v:true)))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6583 call assert_equal(v:none, eval(string(v:none)))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6584 call assert_equal(v:null, eval(string(v:null)))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6585
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6586 call assert_equal(v:false, copy(v:false))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6587 call assert_equal(v:true, copy(v:true))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6588 call assert_equal(v:none, copy(v:none))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6589 call assert_equal(v:null, copy(v:null))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6590
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6591 call assert_equal([v:false], deepcopy([v:false]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6592 call assert_equal([v:true], deepcopy([v:true]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6593 call assert_equal([v:none], deepcopy([v:none]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6594 call assert_equal([v:null], deepcopy([v:null]))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6595
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6596 call assert_true(empty(v:false))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6597 call assert_false(empty(v:true))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6598 call assert_true(empty(v:null))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6599 call assert_true(empty(v:none))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6600
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6601 func ChangeYourMind()
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6602 try
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6603 return v:true
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6604 finally
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6605 return 'something else'
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6606 endtry
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6607 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6608
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6609 call ChangeYourMind()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6610 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6611
23594
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6612 func Test_typename()
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6613 call assert_equal('number', typename(123))
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6614 call assert_equal('string', typename('x'))
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6615 call assert_equal('list<number>', typename([123]))
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6616 call assert_equal('dict<number>', typename(#{key: 123}))
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6617 call assert_equal('list<dict<number>>', typename([#{key: 123}]))
24160
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6618
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6619 let l = []
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6620 let d = #{a: 0}
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6621 let l = [d]
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6622 let l[0].e = #{b: l}
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6623 call assert_equal('list<dict<any>>', typename(l))
e695db9a5465 patch 8.2.2621: typval2type() cannot handle recursive structures
Bram Moolenaar <Bram@vim.org>
parents: 23594
diff changeset
6624 call assert_equal('dict<any>', typename(d))
23594
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6625 endfunc
d3e064f54890 patch 8.2.2339: cannot get the type of a value as a string
Bram Moolenaar <Bram@vim.org>
parents: 23229
diff changeset
6626
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6627 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6628 " Test 92: skipping code {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6629 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6630
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6631 func Test_skip()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6632 let Fn = function('Test_type')
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6633 call assert_false(0 && Fn[1])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6634 call assert_false(0 && string(Fn))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6635 call assert_false(0 && len(Fn))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6636 let l = []
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6637 call assert_false(0 && l[1])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6638 call assert_false(0 && string(l))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6639 call assert_false(0 && len(l))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6640 let f = 1.0
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6641 call assert_false(0 && f[1])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6642 call assert_false(0 && string(f))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6643 call assert_false(0 && len(f))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6644 let sp = v:null
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6645 call assert_false(0 && sp[1])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6646 call assert_false(0 && string(sp))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6647 call assert_false(0 && len(sp))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6648
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6649 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6650
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6651 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6652 " Test 93: :echo and string() {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6653 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6654
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6655 func Test_echo_and_string()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6656 " String
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6657 let a = 'foo bar'
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6658 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6659 echo a
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6660 echo string(a)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6661 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6662 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6663 call assert_equal(["foo bar",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6664 \ "'foo bar'"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6665
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6666 " Float
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6667 let a = -1.2e0
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6668 redir => result
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6669 echo a
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6670 echo string(a)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6671 redir END
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6672 let l = split(result, "\n")
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6673 call assert_equal(["-1.2",
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6674 \ "-1.2"], l)
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6675
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6676 " Funcref
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6677 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6678 echo function('string')
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6679 echo string(function('string'))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6680 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6681 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6682 call assert_equal(["string",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6683 \ "function('string')"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6684
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6685 " Recursive dictionary
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6686 let a = {}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6687 let a["a"] = a
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6688 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6689 echo a
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6690 echo string(a)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6691 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6692 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6693 call assert_equal(["{'a': {...}}",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6694 \ "{'a': {...}}"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6695
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6696 " Recursive list
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6697 let a = [0]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6698 let a[0] = a
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6699 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6700 echo a
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6701 echo string(a)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6702 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6703 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6704 call assert_equal(["[[...]]",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6705 \ "[[...]]"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6706
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6707 " Empty dictionaries in a list
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6708 let a = {}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6709 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6710 echo [a, a, a]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6711 echo string([a, a, a])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6712 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6713 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6714 call assert_equal(["[{}, {}, {}]",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6715 \ "[{}, {}, {}]"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6716
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6717 " Empty dictionaries in a dictionary
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6718 let a = {}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6719 let b = {"a": a, "b": a}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6720 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6721 echo b
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6722 echo string(b)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6723 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6724 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6725 call assert_equal(["{'a': {}, 'b': {}}",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6726 \ "{'a': {}, 'b': {}}"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6727
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6728 " Empty lists in a list
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6729 let a = []
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6730 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6731 echo [a, a, a]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6732 echo string([a, a, a])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6733 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6734 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6735 call assert_equal(["[[], [], []]",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6736 \ "[[], [], []]"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6737
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6738 " Empty lists in a dictionary
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6739 let a = []
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6740 let b = {"a": a, "b": a}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6741 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6742 echo b
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6743 echo string(b)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6744 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6745 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6746 call assert_equal(["{'a': [], 'b': []}",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6747 \ "{'a': [], 'b': []}"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6748
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6749 " Dictionaries in a list
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6750 let a = {"one": "yes", "two": "yes", "three": "yes"}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6751 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6752 echo [a, a, a]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6753 echo string([a, a, a])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6754 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6755 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6756 call assert_equal(["[{'one': 'yes', 'two': 'yes', 'three': 'yes'}, {...}, {...}]",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6757 \ "[{'one': 'yes', 'two': 'yes', 'three': 'yes'}, {'one': 'yes', 'two': 'yes', 'three': 'yes'}, {'one': 'yes', 'two': 'yes', 'three': 'yes'}]"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6758
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6759 " Dictionaries in a dictionary
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6760 let a = {"one": "yes", "two": "yes", "three": "yes"}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6761 let b = {"a": a, "b": a}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6762 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6763 echo b
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6764 echo string(b)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6765 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6766 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6767 call assert_equal(["{'a': {'one': 'yes', 'two': 'yes', 'three': 'yes'}, 'b': {...}}",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6768 \ "{'a': {'one': 'yes', 'two': 'yes', 'three': 'yes'}, 'b': {'one': 'yes', 'two': 'yes', 'three': 'yes'}}"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6769
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6770 " Lists in a list
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6771 let a = [1, 2, 3]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6772 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6773 echo [a, a, a]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6774 echo string([a, a, a])
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6775 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6776 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6777 call assert_equal(["[[1, 2, 3], [...], [...]]",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6778 \ "[[1, 2, 3], [1, 2, 3], [1, 2, 3]]"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6779
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6780 " Lists in a dictionary
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6781 let a = [1, 2, 3]
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6782 let b = {"a": a, "b": a}
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6783 redir => result
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6784 echo b
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6785 echo string(b)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6786 redir END
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6787 let l = split(result, "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6788 call assert_equal(["{'a': [1, 2, 3], 'b': [...]}",
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6789 \ "{'a': [1, 2, 3], 'b': [1, 2, 3]}"], l)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6790
19991
f27473034f26 patch 8.2.0551: not all code for options is tested
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
6791 call assert_fails('echo &:', 'E112:')
f27473034f26 patch 8.2.0551: not all code for options is tested
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
6792 call assert_fails('echo &g:', 'E112:')
f27473034f26 patch 8.2.0551: not all code for options is tested
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
6793 call assert_fails('echo &l:', 'E112:')
f27473034f26 patch 8.2.0551: not all code for options is tested
Bram Moolenaar <Bram@vim.org>
parents: 19954
diff changeset
6794
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6795 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6796
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6797 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6798 " Test 94: 64-bit Numbers {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6799 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6800
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6801 func Test_num64()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6802 call assert_notequal( 4294967296, 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6803 call assert_notequal(-4294967296, 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6804 call assert_equal( 4294967296, 0xFFFFffff + 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6805 call assert_equal(-4294967296, -0xFFFFffff - 1)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6806
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6807 call assert_equal( 9223372036854775807, 1 / 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6808 call assert_equal(-9223372036854775807, -1 / 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6809 call assert_equal(-9223372036854775807 - 1, 0 / 0)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6810
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6811 call assert_equal( 0x7FFFffffFFFFffff, float2nr( 1.0e150))
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6812 call assert_equal(-0x7FFFffffFFFFffff, float2nr(-1.0e150))
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6813
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6814 let rng = range(0xFFFFffff, 0x100000001)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6815 call assert_equal([0xFFFFffff, 0x100000000, 0x100000001], rng)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6816 call assert_equal(0x100000001, max(rng))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6817 call assert_equal(0xFFFFffff, min(rng))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6818 call assert_equal(rng, sort(range(0x100000001, 0xFFFFffff, -1), 'N'))
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6819 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6820
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6821 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6822 " Test 95: lines of :append, :change, :insert {{{1
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6823 "-------------------------------------------------------------------------------
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6824
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6825 function! DefineFunction(name, body)
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6826 let func = join(['function! ' . a:name . '()'] + a:body + ['endfunction'], "\n")
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6827 exec func
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6828 endfunction
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6829
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6830 func Test_script_lines()
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6831 " :append
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6832 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6833 call DefineFunction('T_Append', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6834 \ 'append',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6835 \ 'py <<EOS',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6836 \ '.',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6837 \ ])
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6838 catch
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6839 call assert_report("Can't define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6840 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6841 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6842 call DefineFunction('T_Append', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6843 \ 'append',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6844 \ 'abc',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6845 \ ])
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6846 call assert_report("Shouldn't be able to define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6847 catch
23191
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
6848 call assert_exception('Vim(function):E1145: Missing heredoc end marker: .')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6849 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6850
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6851 " :change
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6852 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6853 call DefineFunction('T_Change', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6854 \ 'change',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6855 \ 'py <<EOS',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6856 \ '.',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6857 \ ])
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6858 catch
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6859 call assert_report("Can't define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6860 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6861 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6862 call DefineFunction('T_Change', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6863 \ 'change',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6864 \ 'abc',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6865 \ ])
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6866 call assert_report("Shouldn't be able to define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6867 catch
23191
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
6868 call assert_exception('Vim(function):E1145: Missing heredoc end marker: .')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6869 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6870
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6871 " :insert
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6872 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6873 call DefineFunction('T_Insert', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6874 \ 'insert',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6875 \ 'py <<EOS',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6876 \ '.',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6877 \ ])
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6878 catch
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6879 call assert_report("Can't define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6880 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6881 try
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6882 call DefineFunction('T_Insert', [
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6883 \ 'insert',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6884 \ 'abc',
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6885 \ ])
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6886 call assert_report("Shouldn't be able to define function")
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6887 catch
23191
3e7723bab4e5 patch 8.2.2141: a user command with try/catch may not catch an expression error
Bram Moolenaar <Bram@vim.org>
parents: 22087
diff changeset
6888 call assert_exception('Vim(function):E1145: Missing heredoc end marker: .')
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6889 endtry
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6890 endfunc
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6891
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
6892 "-------------------------------------------------------------------------------
11352
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6893 " Test 96: line continuation {{{1
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6894 "
15406
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6895 " Undefined behavior was detected by ubsan with line continuation
63b02fcf1361 patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents: 13351
diff changeset
6896 " after an empty line.
11352
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6897 "-------------------------------------------------------------------------------
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6898 func Test_script_emty_line_continuation()
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6899
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6900 \
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6901 endfunc
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6902
251f1833db7d patch 8.0.0561: undefined behavior when using backslash after empty line
Christian Brabandt <cb@256bit.org>
parents: 11183
diff changeset
6903 "-------------------------------------------------------------------------------
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6904 " Test 97: bitwise functions {{{1
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6905 "-------------------------------------------------------------------------------
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6906 func Test_bitwise_functions()
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6907 " and
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6908 call assert_equal(127, and(127, 127))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6909 call assert_equal(16, and(127, 16))
17783
45eca7143d7c patch 8.1.1888: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
6910 eval 127->and(16)->assert_equal(16)
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6911 call assert_equal(0, and(127, 128))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6912 call assert_fails("call and([], 1)", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6913 call assert_fails("call and({}, 1)", 'E728:')
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6914 call assert_fails("call and(1.0, 1)", 'E805:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6915 call assert_fails("call and(1, 1.0)", 'E805:')
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6916 call assert_fails("call and(1, [])", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6917 call assert_fails("call and(1, {})", 'E728:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6918 " or
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6919 call assert_equal(23, or(16, 7))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6920 call assert_equal(15, or(8, 7))
17783
45eca7143d7c patch 8.1.1888: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
6921 eval 8->or(7)->assert_equal(15)
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6922 call assert_equal(123, or(0, 123))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6923 call assert_fails("call or([], 1)", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6924 call assert_fails("call or({}, 1)", 'E728:')
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6925 call assert_fails("call or(1.0, 1)", 'E805:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6926 call assert_fails("call or(1, 1.0)", 'E805:')
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6927 call assert_fails("call or(1, [])", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6928 call assert_fails("call or(1, {})", 'E728:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6929 " xor
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6930 call assert_equal(0, xor(127, 127))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6931 call assert_equal(111, xor(127, 16))
17783
45eca7143d7c patch 8.1.1888: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
6932 eval 127->xor(16)->assert_equal(111)
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6933 call assert_equal(255, xor(127, 128))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6934 call assert_fails("call xor(1.0, 1)", 'E805:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6935 call assert_fails("call xor(1, 1.0)", 'E805:')
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6936 call assert_fails("call xor([], 1)", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6937 call assert_fails("call xor({}, 1)", 'E728:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6938 call assert_fails("call xor(1, [])", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6939 call assert_fails("call xor(1, {})", 'E728:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6940 " invert
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6941 call assert_equal(65408, and(invert(127), 65535))
17783
45eca7143d7c patch 8.1.1888: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17698
diff changeset
6942 eval 127->invert()->and(65535)->assert_equal(65408)
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6943 call assert_equal(65519, and(invert(16), 65535))
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6944 call assert_equal(65407, and(invert(128), 65535))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
6945 call assert_fails("call invert(1.0)", 'E805:')
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6946 call assert_fails("call invert([])", 'E745:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6947 call assert_fails("call invert({})", 'E728:')
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6948 endfunc
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
6949
11547
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6950 " Test using bang after user command {{{1
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6951 func Test_user_command_with_bang()
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6952 command -bang Nieuw let nieuw = 1
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6953 Ni!
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6954 call assert_equal(1, nieuw)
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6955 unlet nieuw
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6956 delcommand Nieuw
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6957 endfunc
3d03ed329a54 patch 8.0.0656: cannot use ! after some user commands
Christian Brabandt <cb@256bit.org>
parents: 11545
diff changeset
6958
19035
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6959 func Test_script_expand_sfile()
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6960 let lines =<< trim END
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6961 func s:snr()
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6962 return expand('<sfile>')
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6963 endfunc
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6964 let g:result = s:snr()
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6965 END
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6966 call writefile(lines, 'Xexpand')
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6967 source Xexpand
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6968 call assert_match('<SNR>\d\+_snr', g:result)
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6969 source Xexpand
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6970 call assert_match('<SNR>\d\+_snr', g:result)
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6971
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6972 call delete('Xexpand')
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6973 unlet g:result
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6974 endfunc
b920ae62c7b1 patch 8.2.0078: expanding <sfile> works differently the second time
Bram Moolenaar <Bram@vim.org>
parents: 18556
diff changeset
6975
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6976 func Test_compound_assignment_operators()
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6977 " Test for number
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6978 let x = 1
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6979 let x += 10
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6980 call assert_equal(11, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6981 let x -= 5
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6982 call assert_equal(6, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6983 let x *= 4
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6984 call assert_equal(24, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6985 let x /= 3
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6986 call assert_equal(8, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6987 let x %= 3
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6988 call assert_equal(2, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6989 let x .= 'n'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6990 call assert_equal('2n', x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
6991
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6992 " Test special cases: division or modulus with 0.
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6993 let x = 1
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6994 let x /= 0
19427
fdfe44ac6a1a patch 8.2.0271: the "num64" feature is available everywhere
Bram Moolenaar <Bram@vim.org>
parents: 19425
diff changeset
6995 call assert_equal(0x7FFFFFFFFFFFFFFF, x)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6996
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6997 let x = -1
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
6998 let x /= 0
19427
fdfe44ac6a1a patch 8.2.0271: the "num64" feature is available everywhere
Bram Moolenaar <Bram@vim.org>
parents: 19425
diff changeset
6999 call assert_equal(-0x7FFFFFFFFFFFFFFF, x)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7000
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7001 let x = 0
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7002 let x /= 0
19427
fdfe44ac6a1a patch 8.2.0271: the "num64" feature is available everywhere
Bram Moolenaar <Bram@vim.org>
parents: 19425
diff changeset
7003 call assert_equal(-0x7FFFFFFFFFFFFFFF - 1, x)
15969
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7004
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7005 let x = 1
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7006 let x %= 0
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7007 call assert_equal(0, x)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7008
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7009 let x = -1
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7010 let x %= 0
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7011 call assert_equal(0, x)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7012
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7013 let x = 0
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7014 let x %= 0
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7015 call assert_equal(0, x)
9cc42db77a54 patch 8.1.0990: floating point exception with "%= 0" and "/= 0"
Bram Moolenaar <Bram@vim.org>
parents: 15790
diff changeset
7016
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7017 " Test for string
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7018 let x = 'str'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7019 let x .= 'ing'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7020 call assert_equal('string', x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7021 let x += 1
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7022 call assert_equal(1, x)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7023
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7024 " Test for float
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7025 let x -= 1.5
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7026 call assert_equal(-0.5, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7027 let x = 0.5
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7028 let x += 4.5
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7029 call assert_equal(5.0, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7030 let x -= 1.5
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7031 call assert_equal(3.5, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7032 let x *= 3.0
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7033 call assert_equal(10.5, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7034 let x /= 2.5
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7035 call assert_equal(4.2, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7036 call assert_fails('let x %= 0.5', 'E734:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7037 call assert_fails('let x .= "f"', 'E734:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7038 let x = !3.14
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7039 call assert_equal(0.0, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7040
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7041 " integer and float operations
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7042 let x = 1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7043 let x *= 2.1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7044 call assert_equal(2.1, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7045 let x = 1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7046 let x /= 0.25
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7047 call assert_equal(4.0, x)
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7048 let x = 1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7049 call assert_fails('let x %= 0.25', 'E734:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7050 let x = 1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7051 call assert_fails('let x .= 0.25', 'E734:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7052 let x = 1.0
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7053 call assert_fails('let x += [1.1]', 'E734:')
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7054
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7055 " Test for environment variable
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7056 let $FOO = 1
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7057 call assert_fails('let $FOO += 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7058 call assert_fails('let $FOO -= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7059 call assert_fails('let $FOO *= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7060 call assert_fails('let $FOO /= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7061 call assert_fails('let $FOO %= 1', 'E734:')
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7062 let $FOO .= 's'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7063 call assert_equal('1s', $FOO)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7064 unlet $FOO
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7065
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7066 " Test for option variable (type: number)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7067 let &scrolljump = 1
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7068 let &scrolljump += 5
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7069 call assert_equal(6, &scrolljump)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7070 let &scrolljump -= 2
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7071 call assert_equal(4, &scrolljump)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7072 let &scrolljump *= 3
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7073 call assert_equal(12, &scrolljump)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7074 let &scrolljump /= 2
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7075 call assert_equal(6, &scrolljump)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7076 let &scrolljump %= 5
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7077 call assert_equal(1, &scrolljump)
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7078 call assert_fails('let &scrolljump .= "j"', 'E734:')
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7079 set scrolljump&vim
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7080
24862
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7081 let &foldlevelstart = 2
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7082 let &foldlevelstart -= 1
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7083 call assert_equal(1, &foldlevelstart)
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7084 let &foldlevelstart -= 1
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7085 call assert_equal(0, &foldlevelstart)
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7086 let &foldlevelstart = 2
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7087 let &foldlevelstart -= 2
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7088 call assert_equal(0, &foldlevelstart)
f1a390885192 patch 8.2.2969: subtracting from number option fails when result is zero
Bram Moolenaar <Bram@vim.org>
parents: 24234
diff changeset
7089
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7090 " Test for register
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7091 let @/ = 1
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7092 call assert_fails('let @/ += 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7093 call assert_fails('let @/ -= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7094 call assert_fails('let @/ *= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7095 call assert_fails('let @/ /= 1', 'E734:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7096 call assert_fails('let @/ %= 1', 'E734:')
15790
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7097 let @/ .= 's'
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7098 call assert_equal('1s', @/)
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7099 let @/ = ''
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7100 endfunc
05d836c8f1c4 patch 8.1.0902: incomplete set of assignment operators
Bram Moolenaar <Bram@vim.org>
parents: 15406
diff changeset
7101
20093
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7102 func Test_unlet_env()
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7103 let $TESTVAR = 'yes'
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7104 call assert_equal('yes', $TESTVAR)
22087
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7105 call assert_fails('lockvar $TESTVAR', 'E940:')
ff21e2962490 patch 8.2.1593: tests do not check the error number properly
Bram Moolenaar <Bram@vim.org>
parents: 21925
diff changeset
7106 call assert_fails('unlockvar $TESTVAR', 'E940:')
20093
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7107 call assert_equal('yes', $TESTVAR)
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7108 if 0
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7109 unlet $TESTVAR
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7110 endif
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7111 call assert_equal('yes', $TESTVAR)
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7112 unlet $TESTVAR
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7113 call assert_equal('', $TESTVAR)
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7114 endfunc
646c53fa5781 patch 8.2.0602: :unlet $VAR does not work properly
Bram Moolenaar <Bram@vim.org>
parents: 19991
diff changeset
7115
16078
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7116 func Test_refcount()
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7117 " Immediate values
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7118 call assert_equal(-1, test_refcount(1))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7119 call assert_equal(-1, test_refcount('s'))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7120 call assert_equal(-1, test_refcount(v:true))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7121 call assert_equal(0, test_refcount([]))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7122 call assert_equal(0, test_refcount({}))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7123 call assert_equal(0, test_refcount(0zff))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7124 call assert_equal(0, test_refcount({-> line('.')}))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7125 call assert_equal(-1, test_refcount(0.1))
16078
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7126 if has('job')
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7127 call assert_equal(0, test_refcount(job_start([&shell, &shellcmdflag, 'echo .'])))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7128 endif
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7129
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7130 " No refcount types
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7131 let x = 1
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7132 call assert_equal(-1, test_refcount(x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7133 let x = 's'
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7134 call assert_equal(-1, test_refcount(x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7135 let x = v:true
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7136 call assert_equal(-1, test_refcount(x))
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7137 let x = 0.1
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7138 call assert_equal(-1, test_refcount(x))
16078
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7139
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7140 " Check refcount
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7141 let x = []
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7142 call assert_equal(1, test_refcount(x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7143
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7144 let x = {}
18031
8a2fb21c23c0 patch 8.1.2011: more functions can be used as methods
Bram Moolenaar <Bram@vim.org>
parents: 17849
diff changeset
7145 call assert_equal(1, x->test_refcount())
16078
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7146
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7147 let x = 0zff
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7148 call assert_equal(1, test_refcount(x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7149
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7150 let X = {-> line('.')}
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7151 call assert_equal(1, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7152 let Y = X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7153 call assert_equal(2, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7154
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7155 if has('job')
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7156 let job = job_start([&shell, &shellcmdflag, 'echo .'])
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7157 call assert_equal(1, test_refcount(job))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7158 call assert_equal(1, test_refcount(job_getchannel(job)))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7159 call assert_equal(1, test_refcount(job))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7160 endif
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7161
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7162 " Function arguments, copying and unassigning
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7163 func ExprCheck(x, i)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7164 let i = a:i + 1
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7165 call assert_equal(i, test_refcount(a:x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7166 let Y = a:x
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7167 call assert_equal(i + 1, test_refcount(a:x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7168 call assert_equal(test_refcount(a:x), test_refcount(Y))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7169 let Y = 0
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7170 call assert_equal(i, test_refcount(a:x))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7171 endfunc
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7172 call ExprCheck([], 0)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7173 call ExprCheck({}, 0)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7174 call ExprCheck(0zff, 0)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7175 call ExprCheck({-> line('.')}, 0)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7176 if has('job')
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7177 call ExprCheck(job, 1)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7178 call ExprCheck(job_getchannel(job), 1)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7179 call job_stop(job)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7180 endif
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7181 delfunc ExprCheck
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7182
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7183 " Regarding function
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7184 func Func(x) abort
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7185 call assert_equal(2, test_refcount(function('Func')))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7186 call assert_equal(0, test_refcount(funcref('Func')))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7187 endfunc
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7188 call assert_equal(1, test_refcount(function('Func')))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7189 call assert_equal(0, test_refcount(function('Func', [1])))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7190 call assert_equal(0, test_refcount(funcref('Func')))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7191 call assert_equal(0, test_refcount(funcref('Func', [1])))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7192 let X = function('Func')
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7193 let Y = X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7194 call assert_equal(1, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7195 let X = function('Func', [1])
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7196 let Y = X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7197 call assert_equal(2, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7198 let X = funcref('Func')
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7199 let Y = X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7200 call assert_equal(2, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7201 let X = funcref('Func', [1])
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7202 let Y = X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7203 call assert_equal(2, test_refcount(X))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7204 unlet X
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7205 unlet Y
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7206 call Func(1)
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7207 delfunc Func
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7208
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7209 " Function with dict
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7210 func DictFunc() dict
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7211 call assert_equal(3, test_refcount(self))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7212 endfunc
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7213 let d = {'Func': function('DictFunc')}
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7214 call assert_equal(1, test_refcount(d))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7215 call assert_equal(0, test_refcount(d.Func))
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7216 call d.Func()
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7217 unlet d
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7218 delfunc DictFunc
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7219 endfunc
d13aa9c5a1d1 patch 8.1.1044: no way to check the reference count of objects
Bram Moolenaar <Bram@vim.org>
parents: 15969
diff changeset
7220
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7221 " Test for missing :endif, :endfor, :endwhile and :endtry {{{1
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7222 func Test_missing_end()
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7223 call writefile(['if 2 > 1', 'echo ">"'], 'Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7224 call assert_fails('source Xscript', 'E171:')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7225 call writefile(['for i in range(5)', 'echo i'], 'Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7226 call assert_fails('source Xscript', 'E170:')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7227 call writefile(['while v:true', 'echo "."'], 'Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7228 call assert_fails('source Xscript', 'E170:')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7229 call writefile(['try', 'echo "."'], 'Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7230 call assert_fails('source Xscript', 'E600:')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7231 call delete('Xscript')
19471
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7232
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7233 " Using endfor with :while
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7234 let caught_e732 = 0
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7235 try
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7236 while v:true
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7237 endfor
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7238 catch /E732:/
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7239 let caught_e732 = 1
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7240 endtry
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7241 call assert_equal(1, caught_e732)
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7242
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7243 " Using endwhile with :for
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7244 let caught_e733 = 0
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7245 try
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7246 for i in range(1)
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7247 endwhile
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7248 catch /E733:/
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7249 let caught_e733 = 1
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7250 endtry
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7251 call assert_equal(1, caught_e733)
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7252
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7253 " Using endfunc with :if
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7254 call assert_fails('exe "if 1 | endfunc | endif"', 'E193:')
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7255
19471
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7256 " Missing 'in' in a :for statement
cb73f4ae6b7c patch 8.2.0293: various Ex commands not sufficiently tested
Bram Moolenaar <Bram@vim.org>
parents: 19427
diff changeset
7257 call assert_fails('for i range(1) | endfor', 'E690:')
20128
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
7258
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
7259 " Incorrect number of variables in for
0b35a7ffceb2 patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents: 20109
diff changeset
7260 call assert_fails('for [i,] in range(3) | endfor', 'E475:')
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7261 endfunc
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7262
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7263 " Test for deep nesting of if/for/while/try statements {{{1
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7264 func Test_deep_nest()
20625
116c7bd5e980 patch 8.2.0866: not enough tests for buffer writing
Bram Moolenaar <Bram@vim.org>
parents: 20158
diff changeset
7265 CheckRunVimInTerminal
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7266
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7267 let lines =<< trim [SCRIPT]
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7268 " Deep nesting of if ... endif
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7269 func Test1()
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7270 let @a = join(repeat(['if v:true'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7271 let @a ..= "\n"
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7272 let @a ..= join(repeat(['endif'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7273 @a
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7274 let @a = ''
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7275 endfunc
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7276
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7277 " Deep nesting of for ... endfor
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7278 func Test2()
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7279 let @a = join(repeat(['for i in [1]'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7280 let @a ..= "\n"
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7281 let @a ..= join(repeat(['endfor'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7282 @a
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7283 let @a = ''
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7284 endfunc
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7285
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7286 " Deep nesting of while ... endwhile
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7287 func Test3()
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7288 let @a = join(repeat(['while v:true'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7289 let @a ..= "\n"
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7290 let @a ..= join(repeat(['endwhile'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7291 @a
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7292 let @a = ''
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7293 endfunc
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7294
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7295 " Deep nesting of try ... endtry
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7296 func Test4()
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7297 let @a = join(repeat(['try'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7298 let @a ..= "\necho v:true\n"
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7299 let @a ..= join(repeat(['endtry'], 51), "\n")
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7300 @a
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7301 let @a = ''
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7302 endfunc
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7303
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7304 " Deep nesting of function ... endfunction
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7305 func Test5()
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7306 let @a = join(repeat(['function X()'], 51), "\n")
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7307 let @a ..= "\necho v:true\n"
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7308 let @a ..= join(repeat(['endfunction'], 51), "\n")
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7309 @a
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7310 let @a = ''
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7311 endfunc
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7312 [SCRIPT]
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7313 call writefile(lines, 'Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7314
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7315 let buf = RunVimInTerminal('-S Xscript', {'rows': 6})
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7316
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7317 " Deep nesting of if ... endif
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7318 call term_sendkeys(buf, ":call Test1()\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7319 call TermWait(buf)
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7320 call WaitForAssert({-> assert_match('^E579:', term_getline(buf, 5))})
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7321
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7322 " Deep nesting of for ... endfor
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7323 call term_sendkeys(buf, ":call Test2()\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7324 call TermWait(buf)
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7325 call WaitForAssert({-> assert_match('^E585:', term_getline(buf, 5))})
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7326
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7327 " Deep nesting of while ... endwhile
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7328 call term_sendkeys(buf, ":call Test3()\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7329 call TermWait(buf)
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7330 call WaitForAssert({-> assert_match('^E585:', term_getline(buf, 5))})
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7331
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7332 " Deep nesting of try ... endtry
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7333 call term_sendkeys(buf, ":call Test4()\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7334 call TermWait(buf)
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7335 call WaitForAssert({-> assert_match('^E601:', term_getline(buf, 5))})
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7336
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7337 " Deep nesting of function ... endfunction
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7338 call term_sendkeys(buf, ":call Test5()\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7339 call TermWait(buf)
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7340 call WaitForAssert({-> assert_match('^E1058:', term_getline(buf, 4))})
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7341 call term_sendkeys(buf, "\<C-C>\n")
19954
c087099e9163 patch 8.2.0533: tests using term_wait() can still be flaky
Bram Moolenaar <Bram@vim.org>
parents: 19950
diff changeset
7342 call TermWait(buf)
19932
2c4d9ca33769 patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents: 19724
diff changeset
7343
19370
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7344 "let l = ''
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7345 "for i in range(1, 6)
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7346 " let l ..= term_getline(buf, i) . "\n"
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7347 "endfor
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7348 "call assert_report(l)
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7349
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7350 call StopVimInTerminal(buf)
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7351 call delete('Xscript')
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7352 endfunc
02111977dd05 patch 8.2.0243: insufficient code coverage for ex_docmd.c functions
Bram Moolenaar <Bram@vim.org>
parents: 19249
diff changeset
7353
19724
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
7354 " Test for errors in converting to float from various types {{{1
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
7355 func Test_float_conversion_errors()
30310
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7356 call assert_fails('let x = 4.0 % 2.0', 'E804:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7357 call assert_fails('echo 1.1[0]', 'E806:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7358 call assert_fails('echo sort([function("min"), 1], "f")', 'E891:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7359 call assert_fails('echo 3.2 == "vim"', 'E892:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7360 call assert_fails('echo sort([[], 1], "f")', 'E893:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7361 call assert_fails('echo sort([{}, 1], "f")', 'E894:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7362 call assert_fails('echo 3.2 == v:true', 'E362:')
029c59bf78f1 patch 9.0.0491: no good reason to build without the float feature
Bram Moolenaar <Bram@vim.org>
parents: 29305
diff changeset
7363 call assert_fails('echo 3.2 == v:none', 'E907:')
19724
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
7364 endfunc
b3e93a05c3ca patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents: 19689
diff changeset
7365
21110
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7366 " invalid function names {{{1
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7367 func Test_invalid_function_names()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7368 " function name not starting with capital
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7369 let caught_e128 = 0
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7370 try
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7371 func! g:test()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7372 echo "test"
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7373 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7374 catch /E128:/
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7375 let caught_e128 = 1
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7376 endtry
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7377 call assert_equal(1, caught_e128)
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7378
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7379 " function name includes a colon
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7380 let caught_e884 = 0
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7381 try
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7382 func! b:test()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7383 echo "test"
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7384 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7385 catch /E884:/
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7386 let caught_e884 = 1
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7387 endtry
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7388 call assert_equal(1, caught_e884)
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7389
23229
b545334ae654 patch 8.2.2160: various typos
Bram Moolenaar <Bram@vim.org>
parents: 23191
diff changeset
7390 " function name followed by #
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7391 let caught_e128 = 0
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7392 try
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7393 func! test2() "#
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7394 echo "test2"
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7395 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7396 catch /E128:/
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7397 let caught_e128 = 1
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7398 endtry
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7399 call assert_equal(1, caught_e128)
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7400
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7401 " function name starting with/without "g:", buffer-local funcref.
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7402 function! g:Foo(n)
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7403 return 'called Foo(' . a:n . ')'
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7404 endfunction
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7405 let b:my_func = function('Foo')
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7406 call assert_equal('called Foo(1)', b:my_func(1))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7407 call assert_equal('called Foo(2)', g:Foo(2))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7408 call assert_equal('called Foo(3)', Foo(3))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7409 delfunc g:Foo
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7410
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7411 " script-local function used in Funcref must exist.
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7412 let lines =<< trim END
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7413 func s:Testje()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7414 return "foo"
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7415 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7416 let Bar = function('s:Testje')
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7417 call assert_equal(0, exists('s:Testje'))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7418 call assert_equal(1, exists('*s:Testje'))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7419 call assert_equal(1, exists('Bar'))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7420 call assert_equal(1, exists('*Bar'))
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7421 END
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7422 call writefile(lines, 'Xscript')
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7423 source Xscript
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7424 call delete('Xscript')
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7425 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7426
21110
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7427 " substring and variable name {{{1
20109
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7428 func Test_substring_var()
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7429 let str = 'abcdef'
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7430 let n = 3
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7431 call assert_equal('def', str[n:])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7432 call assert_equal('abcd', str[:n])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7433 call assert_equal('d', str[n:n])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7434 unlet n
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7435 let nn = 3
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7436 call assert_equal('def', str[nn:])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7437 call assert_equal('abcd', str[:nn])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7438 call assert_equal('d', str[nn:nn])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7439 unlet nn
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7440 let b:nn = 4
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7441 call assert_equal('ef', str[b:nn:])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7442 call assert_equal('abcde', str[:b:nn])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7443 call assert_equal('e', str[b:nn:b:nn])
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7444 unlet b:nn
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7445 endfunc
e82996ad131f patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents: 20093
diff changeset
7446
21110
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7447 " Test using s: with a typed command {{{1
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7448 func Test_typed_script_var()
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7449 CheckRunVimInTerminal
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7450
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7451 let buf = RunVimInTerminal('', {'rows': 6})
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7452
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7453 " Deep nesting of if ... endif
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7454 call term_sendkeys(buf, ":echo get(s:, 'foo', 'x')\n")
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7455 call TermWait(buf)
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7456 call WaitForAssert({-> assert_match('^E116:', term_getline(buf, 5))})
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7457
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7458 call StopVimInTerminal(buf)
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7459 endfunc
8fb0e507491d patch 8.2.1106: crash when trying to use s: variable in typed command
Bram Moolenaar <Bram@vim.org>
parents: 20625
diff changeset
7460
21925
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7461 " Test for issue6776 {{{1
27901
dd7d94b911fa patch 8.2.4476: operator name spelled wrong
Bram Moolenaar <Bram@vim.org>
parents: 26606
diff changeset
7462 func Test_ternary_expression()
21925
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7463 try
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7464 call eval('0 ? 0')
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7465 catch
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7466 endtry
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7467 " previous failure should not cause next expression to fail
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7468 call assert_equal(v:false, eval(string(v:false)))
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7469
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7470 try
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7471 call eval('0 ? "burp')
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7472 catch
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7473 endtry
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7474 " previous failure should not cause next expression to fail
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7475 call assert_equal(v:false, eval(string(v:false)))
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7476
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7477 try
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7478 call eval('1 ? 0 : "burp')
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7479 catch
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7480 endtry
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7481 " previous failure should not cause next expression to fail
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7482 call assert_equal(v:false, eval(string(v:false)))
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7483 endfunction
51d591dbb8df patch 8.2.1512: failure after trinary expression fails
Bram Moolenaar <Bram@vim.org>
parents: 21781
diff changeset
7484
24234
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7485 func Test_for_over_string()
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7486 let res = ''
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7487 for c in 'aéc̀d'
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7488 let res ..= c .. '-'
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7489 endfor
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7490 call assert_equal('a-é-c̀-d-', res)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7491
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7492 let res = ''
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7493 for c in ''
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7494 let res ..= c .. '-'
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7495 endfor
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7496 call assert_equal('', res)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7497
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7498 let res = ''
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7499 for c in test_null_string()
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7500 let res ..= c .. '-'
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7501 endfor
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7502 call assert_equal('', res)
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7503 endfunc
7ffc795288dd patch 8.2.2658: :for cannot loop over a string
Bram Moolenaar <Bram@vim.org>
parents: 24160
diff changeset
7504
29305
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7505 " Test for deeply nested :source command {{{1
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7506 func Test_deeply_nested_source()
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7507 let lines =<< trim END
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7508
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7509 so
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7510 sil 0scr
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7511 delete
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7512 so
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7513 0
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7514 END
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7515 call writefile(["vim9 silent! @0 \n/"] + lines, 'Xnested.vim')
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7516
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7517 " this must not crash
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7518 let cmd = GetVimCommand() .. " -e -s -S Xnested.vim -c qa!"
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7519 call system(cmd)
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7520
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7521 call delete('Xnested.vim')
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7522 endfunc
949e8978ea43 patch 8.2.5169: nested :source may use NULL pointer
Bram Moolenaar <Bram@vim.org>
parents: 28735
diff changeset
7523
11461
5be73ebf6a15 patch 8.0.0614: float2nr() is not exactly right
Christian Brabandt <cb@256bit.org>
parents: 11352
diff changeset
7524 "-------------------------------------------------------------------------------
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7525 " Modelines {{{1
18504
ece46bd3c9af patch 8.1.2246: some tests are still in old style
Bram Moolenaar <Bram@vim.org>
parents: 18031
diff changeset
7526 " vim: ts=8 sw=2 sts=2 expandtab tw=80 fdm=marker
10942
e05695e59f6d patch 8.0.0360: sometimes VimL is used instead of "Vim script"
Christian Brabandt <cb@256bit.org>
parents:
diff changeset
7527 "-------------------------------------------------------------------------------