Mercurial > vim
annotate src/testdir/test_listdict.vim @ 20136:fdf94ab9929b v8.2.0623
patch 8.2.0623: typo in test comment
Commit: https://github.com/vim/vim/commit/f7b398c6a9476a2004a42555b731ebf47b866408
Author: Bram Moolenaar <Bram@vim.org>
Date: Thu Apr 23 15:46:35 2020 +0200
patch 8.2.0623: typo in test comment
Problem: Typo in test comment. (Christ van Willegen)
Solution: Avoid mixing up a data structure with a body part.
author | Bram Moolenaar <Bram@vim.org> |
---|---|
date | Thu, 23 Apr 2020 16:15:05 +0200 |
parents | 0b35a7ffceb2 |
children | 49694eceaa55 |
rev | line source |
---|---|
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
1 " Tests for the List and Dict types |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
3 func TearDown() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
4 " Run garbage collection after every test |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
5 call test_garbagecollect_now() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
6 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
7 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
8 " Tests for List type |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
9 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
10 " List creation |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
11 func Test_list_create() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
12 " Creating List directly with different types |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
13 let l = [1, 'as''d', [1, 2, function("strlen")], {'a': 1},] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
14 call assert_equal("[1, 'as''d', [1, 2, function('strlen')], {'a': 1}]", string(l)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
15 call assert_equal({'a' : 1}, l[-1]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
16 call assert_equal(1, l[-4]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
17 let x = 10 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
18 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
19 let x = l[-5] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
20 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
21 call assert_match('E684:', v:exception) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
22 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
23 call assert_equal(10, x) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
24 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
25 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
26 " List slices |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
27 func Test_list_slice() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
28 let l = [1, 'as''d', [1, 2, function("strlen")], {'a': 1},] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
29 call assert_equal([1, 'as''d', [1, 2, function('strlen')], {'a': 1}], l[:]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
30 call assert_equal(['as''d', [1, 2, function('strlen')], {'a': 1}], l[1:]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
31 call assert_equal([1, 'as''d', [1, 2, function('strlen')]], l[:-2]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
32 call assert_equal([1, 'as''d', [1, 2, function('strlen')], {'a': 1}], l[0:8]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
33 call assert_equal([], l[8:-1]) |
19724
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
34 call assert_equal([], l[0:-10]) |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
35 " perform an operation on a list slice |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
36 let l = [1, 2, 3] |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
37 let l[:1] += [1, 2] |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
38 let l[2:] -= [1] |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
39 call assert_equal([2, 4, 2], l) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
40 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
41 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
42 " List identity |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
43 func Test_list_identity() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
44 let l = [1, 'as''d', [1, 2, function("strlen")], {'a': 1},] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
45 let ll = l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
46 let lx = copy(l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
47 call assert_true(l == ll) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
48 call assert_false(l isnot ll) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
49 call assert_true(l is ll) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
50 call assert_true(l == lx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
51 call assert_false(l is lx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
52 call assert_true(l isnot lx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
53 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
54 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
55 " removing items with :unlet |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
56 func Test_list_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
57 let l = [1, 'as''d', [1, 2, function("strlen")], {'a': 1},] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
58 unlet l[2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
59 call assert_equal([1, 'as''d', {'a': 1}], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
60 let l = range(8) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
61 unlet l[:3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
62 unlet l[1:] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
63 call assert_equal([4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
64 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
65 " removing items out of range: silently skip items that don't exist |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
66 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
67 call assert_fails('unlet l[2:1]', 'E684') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
68 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
69 unlet l[2:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
70 call assert_equal([0, 1, 3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
71 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
72 unlet l[2:3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
73 call assert_equal([0, 1], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
74 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
75 unlet l[2:4] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
76 call assert_equal([0, 1], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
77 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
78 unlet l[2:5] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
79 call assert_equal([0, 1], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
80 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
81 call assert_fails('unlet l[-1:2]', 'E684') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
82 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
83 unlet l[-2:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
84 call assert_equal([0, 1, 3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
85 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
86 unlet l[-3:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
87 call assert_equal([0, 3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
88 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
89 unlet l[-4:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
90 call assert_equal([3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
91 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
92 unlet l[-5:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
93 call assert_equal([3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
94 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
95 unlet l[-6:2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
96 call assert_equal([3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
97 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
98 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
99 " assignment to a list |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
100 func Test_list_assign() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
101 let l = [0, 1, 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
102 let [va, vb] = l[2:3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
103 call assert_equal([2, 3], [va, vb]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
104 call assert_fails('let [va, vb] = l', 'E687') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
105 call assert_fails('let [va, vb] = l[1:1]', 'E688') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
106 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
107 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
108 " test for range assign |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
109 func Test_list_range_assign() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
110 let l = [0] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
111 let l[:] = [1, 2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
112 call assert_equal([1, 2], l) |
19724
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
113 let l[-4:-1] = [5, 6] |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
114 call assert_equal([5, 6], l) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
115 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
116 |
14856
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
117 " Test removing items in list |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
118 func Test_list_func_remove() |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
119 " Test removing 1 element |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
120 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
121 call assert_equal(1, remove(l, 0)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
122 call assert_equal([2, 3, 4], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
123 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
124 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
125 call assert_equal(2, remove(l, 1)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
126 call assert_equal([1, 3, 4], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
127 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
128 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
129 call assert_equal(4, remove(l, -1)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
130 call assert_equal([1, 2, 3], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
131 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
132 " Test removing range of element(s) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
133 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
134 call assert_equal([3], remove(l, 2, 2)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
135 call assert_equal([1, 2, 4], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
136 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
137 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
138 call assert_equal([2, 3], remove(l, 1, 2)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
139 call assert_equal([1, 4], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
140 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
141 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
142 call assert_equal([2, 3], remove(l, -3, -2)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
143 call assert_equal([1, 4], l) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
144 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
145 " Test invalid cases |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
146 let l = [1, 2, 3, 4] |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
147 call assert_fails("call remove(l, 5)", 'E684:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
148 call assert_fails("call remove(l, 1, 5)", 'E684:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
149 call assert_fails("call remove(l, 3, 2)", 'E16:') |
15571
4af72c724093
patch 8.1.0793: incorrect error messages for functions that take a Blob
Bram Moolenaar <Bram@vim.org>
parents:
15406
diff
changeset
|
150 call assert_fails("call remove(1, 0)", 'E896:') |
14856
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
151 call assert_fails("call remove(l, l)", 'E745:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
152 endfunc |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
153 |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
154 " List add() function |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
155 func Test_list_add() |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
156 let l = [] |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
157 call add(l, 1) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
158 call add(l, [2, 3]) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
159 call add(l, []) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
160 call add(l, test_null_list()) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
161 call add(l, {'k' : 3}) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
162 call add(l, {}) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
163 call add(l, test_null_dict()) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
164 call assert_equal([1, [2, 3], [], [], {'k' : 3}, {}, {}], l) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
165 call assert_equal(1, add(test_null_list(), 4)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
166 endfunc |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
167 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
168 " Tests for Dictionary type |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
169 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
170 func Test_dict() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
171 " Creating Dictionary directly with different types |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
172 let d = {001: 'asd', 'b': [1, 2, function('strlen')], -1: {'a': 1},} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
173 call assert_equal("{'1': 'asd', 'b': [1, 2, function('strlen')], '-1': {'a': 1}}", string(d)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
174 call assert_equal('asd', d.1) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
175 call assert_equal(['-1', '1', 'b'], sort(keys(d))) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
176 call assert_equal(['asd', [1, 2, function('strlen')], {'a': 1}], values(d)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
177 let v = [] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
178 for [key, val] in items(d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
179 call extend(v, [key, val]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
180 unlet key val |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
181 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
182 call assert_equal(['1','asd','b',[1, 2, function('strlen')],'-1',{'a': 1}], v) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
183 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
184 call extend(d, {3:33, 1:99}) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
185 call extend(d, {'b':'bbb', 'c':'ccc'}, "keep") |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
186 call assert_fails("call extend(d, {3:333,4:444}, 'error')", 'E737') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
187 call assert_equal({'c': 'ccc', '1': 99, 'b': [1, 2, function('strlen')], '3': 33, '-1': {'a': 1}}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
188 call filter(d, 'v:key =~ ''[ac391]''') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
189 call assert_equal({'c': 'ccc', '1': 99, '3': 33, '-1': {'a': 1}}, d) |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
190 |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
191 " duplicate key |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
192 call assert_fails("let d = {'k' : 10, 'k' : 20}", 'E721:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
193 " missing comma |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
194 call assert_fails("let d = {'k' : 10 'k' : 20}", 'E722:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
195 " missing curly brace |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
196 call assert_fails("let d = {'k' : 10,", 'E723:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
197 " invalid key |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
198 call assert_fails('let d = #{++ : 10}', 'E15:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
199 " wrong type for key |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
200 call assert_fails('let d={[] : 10}', 'E730:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
201 " undefined variable as value |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
202 call assert_fails("let d={'k' : i}", 'E121:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
203 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
204 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
205 " Dictionary identity |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
206 func Test_dict_identity() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
207 let d = {001: 'asd', 'b': [1, 2, function('strlen')], -1: {'a': 1},} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
208 let dd = d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
209 let dx = copy(d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
210 call assert_true(d == dd) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
211 call assert_false(d isnot dd) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
212 call assert_true(d is dd) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
213 call assert_true(d == dx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
214 call assert_false(d is dx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
215 call assert_true(d isnot dx) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
216 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
217 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
218 " removing items with :unlet |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
219 func Test_dict_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
220 let d = {'b':'bbb', '1': 99, '3': 33, '-1': {'a': 1}} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
221 unlet d.b |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
222 unlet d[-1] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
223 call assert_equal({'1': 99, '3': 33}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
224 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
225 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
226 " manipulating a big Dictionary (hashtable.c has a border of 1000 entries) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
227 func Test_dict_big() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
228 let d = {} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
229 for i in range(1500) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
230 let d[i] = 3000 - i |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
231 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
232 call assert_equal([3000, 2900, 2001, 1600, 1501], [d[0], d[100], d[999], d[1400], d[1499]]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
233 let str = '' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
234 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
235 let n = d[1500] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
236 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
237 let str=substitute(v:exception, '\v(.{14}).*( \d{4}).*', '\1\2', '') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
238 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
239 call assert_equal('Vim(let):E716: 1500', str) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
240 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
241 " lookup each items |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
242 for i in range(1500) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
243 call assert_equal(3000 - i, d[i]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
244 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
245 let i += 1 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
246 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
247 " delete even items |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
248 while i >= 2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
249 let i -= 2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
250 unlet d[i] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
251 endwhile |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
252 call assert_equal('NONE', get(d, 1500 - 100, 'NONE')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
253 call assert_equal(2999, d[1]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
254 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
255 " delete odd items, checking value, one intentionally wrong |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
256 let d[33] = 999 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
257 let i = 1 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
258 while i < 1500 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
259 if i != 33 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
260 call assert_equal(3000 - i, d[i]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
261 else |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
262 call assert_equal(999, d[i]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
263 endif |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
264 unlet d[i] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
265 let i += 2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
266 endwhile |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
267 call assert_equal({}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
268 unlet d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
269 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
270 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
271 " Dictionary function |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
272 func Test_dict_func() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
273 let d = {} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
274 func d.func(a) dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
275 return a:a . len(self.data) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
276 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
277 let d.data = [1,2,3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
278 call assert_equal('len: 3', d.func('len: ')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
279 let x = d.func('again: ') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
280 call assert_equal('again: 3', x) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
281 let Fn = d.func |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
282 call assert_equal('xxx3', Fn('xxx')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
283 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
284 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
285 " Function in script-local List or Dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
286 func Test_script_local_dict_func() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
287 let g:dict = {} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
288 function g:dict.func() dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
289 return 'g:dict.func' . self.foo[1] . self.foo[0]('asdf') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
290 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
291 let g:dict.foo = ['-', 2, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
292 call insert(g:dict.foo, function('strlen')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
293 call assert_equal('g:dict.func-4', g:dict.func()) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
294 unlet g:dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
295 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
296 |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
297 " Test removing items in a dictionary |
14856
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
298 func Test_dict_func_remove() |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
299 let d = {1:'a', 2:'b', 3:'c'} |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
300 call assert_equal('b', remove(d, 2)) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
301 call assert_equal({1:'a', 3:'c'}, d) |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
302 |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
303 call assert_fails("call remove(d, 1, 2)", 'E118:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
304 call assert_fails("call remove(d, 'a')", 'E716:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
305 call assert_fails("call remove(d, [])", 'E730:') |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
306 endfunc |
c5a2fb8b221d
patch 8.1.0440: remove() with a range not sufficiently tested
Christian Brabandt <cb@256bit.org>
parents:
12788
diff
changeset
|
307 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
308 " Nasty: remove func from Dict that's being called (works) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
309 func Test_dict_func_remove_in_use() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
310 let d = {1:1} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
311 func d.func(a) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
312 return "a:" . a:a |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
313 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
314 let expected = 'a:' . string(get(d, 'func')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
315 call assert_equal(expected, d.func(string(remove(d, 'func')))) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
316 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
317 |
17368
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
15949
diff
changeset
|
318 func Test_dict_literal_keys() |
17413
40417757dffd
patch 8.1.1705: using ~{} for a literal dict is not nice
Bram Moolenaar <Bram@vim.org>
parents:
17387
diff
changeset
|
319 call assert_equal({'one': 1, 'two2': 2, '3three': 3, '44': 4}, #{one: 1, two2: 2, 3three: 3, 44: 4},) |
17387
2558f90045e5
patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents:
17375
diff
changeset
|
320 |
2558f90045e5
patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents:
17375
diff
changeset
|
321 " why *{} cannot be used |
2558f90045e5
patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents:
17375
diff
changeset
|
322 let blue = 'blue' |
2558f90045e5
patch 8.1.1692: using *{} for literal dict is not backwards compatible
Bram Moolenaar <Bram@vim.org>
parents:
17375
diff
changeset
|
323 call assert_equal('6', trim(execute('echo 2 *{blue: 3}.blue'))) |
17368
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
15949
diff
changeset
|
324 endfunc |
6604ecb7a615
patch 8.1.1683: dictionary with string keys is longer than needed
Bram Moolenaar <Bram@vim.org>
parents:
15949
diff
changeset
|
325 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
326 " Nasty: deepcopy() dict that refers to itself (fails when noref used) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
327 func Test_dict_deepcopy() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
328 let d = {1:1, 2:2} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
329 let l = [4, d, 6] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
330 let d[3] = l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
331 let dc = deepcopy(d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
332 call assert_fails('call deepcopy(d, 1)', 'E698') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
333 let l2 = [0, l, l, 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
334 let l[1] = l2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
335 let l3 = deepcopy(l2) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
336 call assert_true(l3[1] is l3[2]) |
19783
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
337 call assert_fails("call deepcopy([1, 2], 2)", 'E474:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
338 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
339 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
340 " Locked variables |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
341 func Test_list_locked_var() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
342 let expected = [ |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
343 \ [['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
344 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
345 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
346 \ [['1000-000', 'ppppppF'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
347 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
348 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
349 \ [['1100-100', 'ppFppFF'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
350 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
351 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
352 \ [['1110-110', 'pFFpFFF'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
353 \ ['0010-010', 'pFppFpp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
354 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
355 \ [['1111-111', 'FFFFFFF'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
356 \ ['0011-011', 'FFpFFpp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
357 \ ['0000-000', 'ppppppp']] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
358 \ ] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
359 for depth in range(5) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
360 for u in range(3) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
361 unlet! l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
362 let l = [0, [1, [2, 3]], {4: 5, 6: {7: 8}}] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
363 exe "lockvar " . depth . " l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
364 if u == 1 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
365 exe "unlockvar l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
366 elseif u == 2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
367 exe "unlockvar " . depth . " l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
368 endif |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
369 let ps = islocked("l").islocked("l[1]").islocked("l[1][1]").islocked("l[1][1][0]").'-'.islocked("l[2]").islocked("l[2]['6']").islocked("l[2]['6'][7]") |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
370 call assert_equal(expected[depth][u][0], ps) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
371 let ps = '' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
372 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
373 let l[1][1][0] = 99 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
374 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
375 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
376 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
377 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
378 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
379 let l[1][1] = [99] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
380 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
381 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
382 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
383 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
384 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
385 let l[1] = [99] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
386 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
387 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
388 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
389 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
390 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
391 let l[2]['6'][7] = 99 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
392 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
393 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
394 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
395 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
396 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
397 let l[2][6] = {99: 99} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
398 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
399 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
400 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
401 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
402 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
403 let l[2] = {99: 99} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
404 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
405 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
406 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
407 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
408 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
409 let l = [99] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
410 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
411 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
412 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
413 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
414 call assert_equal(expected[depth][u][1], ps) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
415 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
416 endfor |
19783
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
417 call assert_fails("let x=islocked('a b')", 'E488:') |
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
418 let mylist = [1, 2, 3] |
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
419 call assert_fails("let x = islocked('mylist[1:2]')", 'E786:') |
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
420 let mydict = {'k' : 'v'} |
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
421 call assert_fails("let x = islocked('mydict.a')", 'E716:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
422 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
423 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
424 " Unletting locked variables |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
425 func Test_list_locked_var_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
426 let expected = [ |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
427 \ [['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
428 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
429 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
430 \ [['1000-000', 'ppFppFp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
431 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
432 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
433 \ [['1100-100', 'pFFpFFp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
434 \ ['0000-000', 'ppppppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
435 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
436 \ [['1110-110', 'FFFFFFp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
437 \ ['0010-010', 'FppFppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
438 \ ['0000-000', 'ppppppp']], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
439 \ [['1111-111', 'FFFFFFp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
440 \ ['0011-011', 'FppFppp'], |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
441 \ ['0000-000', 'ppppppp']] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
442 \ ] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
443 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
444 for depth in range(5) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
445 for u in range(3) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
446 unlet! l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
447 let l = [0, [1, [2, 3]], {4: 5, 6: {7: 8}}] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
448 exe "lockvar " . depth . " l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
449 if u == 1 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
450 exe "unlockvar l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
451 elseif u == 2 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
452 exe "unlockvar " . depth . " l" |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
453 endif |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
454 let ps = islocked("l").islocked("l[1]").islocked("l[1][1]").islocked("l[1][1][0]").'-'.islocked("l[2]").islocked("l[2]['6']").islocked("l[2]['6'][7]") |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
455 call assert_equal(expected[depth][u][0], ps) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
456 let ps = '' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
457 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
458 unlet l[2]['6'][7] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
459 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
460 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
461 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
462 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
463 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
464 unlet l[2][6] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
465 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
466 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
467 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
468 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
469 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
470 unlet l[2] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
471 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
472 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
473 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
474 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
475 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
476 unlet l[1][1][0] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
477 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
478 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
479 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
480 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
481 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
482 unlet l[1][1] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
483 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
484 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
485 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
486 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
487 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
488 unlet l[1] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
489 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
490 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
491 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
492 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
493 try |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
494 unlet l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
495 let ps .= 'p' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
496 catch |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
497 let ps .= 'F' |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
498 endtry |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
499 call assert_equal(expected[depth][u][1], ps) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
500 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
501 endfor |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
502 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
503 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
504 " Locked variables and :unlet or list / dict functions |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
505 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
506 " No :unlet after lock on dict: |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
507 func Test_dict_lock_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
508 unlet! d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
509 let d = {'a': 99, 'b': 100} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
510 lockvar 1 d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
511 call assert_fails('unlet d.a', 'E741') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
512 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
513 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
514 " unlet after lock on dict item |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
515 func Test_dict_item_lock_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
516 unlet! d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
517 let d = {'a': 99, 'b': 100} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
518 lockvar d.a |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
519 unlet d.a |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
520 call assert_equal({'b' : 100}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
521 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
522 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
523 " filter() after lock on dict item |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
524 func Test_dict_lock_filter() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
525 unlet! d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
526 let d = {'a': 99, 'b': 100} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
527 lockvar d.a |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
528 call filter(d, 'v:key != "a"') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
529 call assert_equal({'b' : 100}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
530 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
531 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
532 " map() after lock on dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
533 func Test_dict_lock_map() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
534 unlet! d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
535 let d = {'a': 99, 'b': 100} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
536 lockvar 1 d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
537 call map(d, 'v:val + 200') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
538 call assert_equal({'a' : 299, 'b' : 300}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
539 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
540 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
541 " No extend() after lock on dict item |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
542 func Test_dict_lock_extend() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
543 unlet! d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
544 let d = {'a': 99, 'b': 100} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
545 lockvar d.a |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
546 call assert_fails("call extend(d, {'a' : 123})", 'E741') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
547 call assert_equal({'a': 99, 'b': 100}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
548 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
549 |
20136
fdf94ab9929b
patch 8.2.0623: typo in test comment
Bram Moolenaar <Bram@vim.org>
parents:
20128
diff
changeset
|
550 " Cannot use += with a locked dict |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
551 func Test_dict_lock_operator() |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
552 unlet! d |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
553 let d = {} |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
554 lockvar d |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
555 call assert_fails("let d += {'k' : 10}", 'E741:') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
556 unlockvar d |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
557 endfunc |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
558 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
559 " No remove() of write-protected scope-level variable |
15406
63b02fcf1361
patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents:
14856
diff
changeset
|
560 func Tfunc1(this_is_a_long_parameter_name) |
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
561 call assert_fails("call remove(a:, 'this_is_a_long_parameter_name')", 'E742') |
15406
63b02fcf1361
patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents:
14856
diff
changeset
|
562 endfunc |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
563 func Test_dict_scope_var_remove() |
15406
63b02fcf1361
patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents:
14856
diff
changeset
|
564 call Tfunc1('testval') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
565 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
566 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
567 " No extend() of write-protected scope-level variable |
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
568 func Test_dict_scope_var_extend() |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
569 call assert_fails("call extend(a:, {'this_is_a_long_parameter_name': 1234})", 'E742') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
570 endfunc |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
571 |
15406
63b02fcf1361
patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents:
14856
diff
changeset
|
572 func Tfunc2(this_is_a_long_parameter_name) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
573 call assert_fails("call extend(a:, {'this_is_a_long_parameter_name': 1234})", 'E742') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
574 endfunc |
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
575 func Test_dict_scope_var_extend_overwrite() |
15406
63b02fcf1361
patch 8.1.0711: test files still use function!
Bram Moolenaar <Bram@vim.org>
parents:
14856
diff
changeset
|
576 call Tfunc2('testval') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
577 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
578 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
579 " No :unlet of variable in locked scope |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
580 func Test_lock_var_unlet() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
581 let b:testvar = 123 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
582 lockvar 1 b: |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
583 call assert_fails('unlet b:testvar', 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
584 unlockvar 1 b: |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
585 unlet! b:testvar |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
586 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
587 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
588 " No :let += of locked list variable |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
589 func Test_let_lock_list() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
590 let l = ['a', 'b', 3] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
591 lockvar 1 l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
592 call assert_fails("let l += ['x']", 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
593 call assert_equal(['a', 'b', 3], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
594 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
595 unlet l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
596 let l = [1, 2, 3, 4] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
597 lockvar! l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
598 call assert_equal([1, 2, 3, 4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
599 unlockvar l[1] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
600 call assert_fails('unlet l[0:1]', 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
601 call assert_equal([1, 2, 3, 4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
602 call assert_fails('unlet l[1:2]', 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
603 call assert_equal([1, 2, 3, 4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
604 unlockvar l[1] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
605 call assert_fails('let l[0:1] = [0, 1]', 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
606 call assert_equal([1, 2, 3, 4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
607 call assert_fails('let l[1:2] = [0, 1]', 'E741:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
608 call assert_equal([1, 2, 3, 4], l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
609 unlet l |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
610 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
611 |
19689
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
612 " Locking part of the list |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
613 func Test_let_lock_list_items() |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
614 let l = [1, 2, 3, 4] |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
615 lockvar l[2:] |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
616 call assert_equal(0, islocked('l[0]')) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
617 call assert_equal(1, islocked('l[2]')) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
618 call assert_equal(1, islocked('l[3]')) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
619 call assert_fails('let l[2] = 10', 'E741:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
620 call assert_fails('let l[3] = 20', 'E741:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
621 unlet l |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
622 endfunc |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
623 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
624 " lockvar/islocked() triggering script autoloading |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
625 func Test_lockvar_script_autoload() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
626 let old_rtp = &rtp |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
627 set rtp+=./sautest |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
628 lockvar g:footest#x |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
629 unlockvar g:footest#x |
17914
af3d441845cd
patch 8.1.1953: more functions can be used as a method
Bram Moolenaar <Bram@vim.org>
parents:
17413
diff
changeset
|
630 call assert_equal(-1, 'g:footest#x'->islocked()) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
631 call assert_equal(0, exists('g:footest#x')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
632 call assert_equal(1, g:footest#x) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
633 let &rtp = old_rtp |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
634 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
635 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
636 " a:000 function argument test |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
637 func s:arg_list_test(...) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
638 call assert_fails('let a:000 = [1, 2]', 'E46:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
639 call assert_fails('let a:000[0] = 9', 'E742:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
640 call assert_fails('let a:000[2] = [9, 10]', 'E742:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
641 call assert_fails('let a:000[3] = {9 : 10}', 'E742:') |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
642 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
643 " now the tests that should pass |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
644 let a:000[2][1] = 9 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
645 call extend(a:000[2], [5, 6]) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
646 let a:000[3][5] = 8 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
647 let a:000[3]['a'] = 12 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
648 call assert_equal([1, 2, [3, 9, 5, 6], {'a': 12, '5': 8}], a:000) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
649 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
650 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
651 func Test_func_arg_list() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
652 call s:arg_list_test(1, 2, [3, 4], {5: 6}) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
653 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
654 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
655 " Tests for reverse(), sort(), uniq() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
656 func Test_reverse_sort_uniq() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
657 let l = ['-0', 'A11', 2, 2, 'xaaa', 4, 'foo', 'foo6', 'foo', [0, 1, 2], 'x8', [0, 1, 2], 1.5] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
658 call assert_equal(['-0', 'A11', 2, 'xaaa', 4, 'foo', 'foo6', 'foo', [0, 1, 2], 'x8', [0, 1, 2], 1.5], uniq(copy(l))) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
659 call assert_equal([1.5, [0, 1, 2], 'x8', [0, 1, 2], 'foo', 'foo6', 'foo', 4, 'xaaa', 2, 2, 'A11', '-0'], reverse(l)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
660 call assert_equal([1.5, [0, 1, 2], 'x8', [0, 1, 2], 'foo', 'foo6', 'foo', 4, 'xaaa', 2, 2, 'A11', '-0'], reverse(reverse(l))) |
19249
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
661 if has('float') |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
662 call assert_equal(['-0', 'A11', 'foo', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 2, 4, [0, 1, 2], [0, 1, 2]], sort(l)) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
663 call assert_equal([[0, 1, 2], [0, 1, 2], 4, 2, 2, 1.5, 'xaaa', 'x8', 'foo6', 'foo', 'foo', 'A11', '-0'], reverse(sort(l))) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
664 call assert_equal(['-0', 'A11', 'foo', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 2, 4, [0, 1, 2], [0, 1, 2]], sort(reverse(sort(l)))) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
665 call assert_equal(['-0', 'A11', 'foo', 'foo6', 'x8', 'xaaa', 1.5, 2, 4, [0, 1, 2]], uniq(sort(l))) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
666 |
19249
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
667 let l = [7, 9, 'one', 18, 12, 22, 'two', 10.0e-16, -1, 'three', 0xff, 0.22, 'four'] |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
668 call assert_equal([-1, 'one', 'two', 'three', 'four', 1.0e-15, 0.22, 7, 9, 12, 18, 22, 255], sort(copy(l), 'n')) |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
669 |
19249
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
670 let l = [7, 9, 18, 12, 22, 10.0e-16, -1, 0xff, 0, -0, 0.22, 'bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', {}, []] |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
671 call assert_equal(['bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}], sort(copy(l), 1)) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
672 call assert_equal(['bar', 'BAR', 'Bar', 'Foo', 'FOO', 'foo', 'FOOBAR', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}], sort(copy(l), 'i')) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
673 call assert_equal(['BAR', 'Bar', 'FOO', 'FOOBAR', 'Foo', 'bar', 'foo', -1, 0, 0, 0.22, 1.0e-15, 12, 18, 22, 255, 7, 9, [], {}], sort(copy(l))) |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
674 endif |
15571
4af72c724093
patch 8.1.0793: incorrect error messages for functions that take a Blob
Bram Moolenaar <Bram@vim.org>
parents:
15406
diff
changeset
|
675 |
15579
391ac26c9412
patch 8.1.0797: error E898 is used twice
Bram Moolenaar <Bram@vim.org>
parents:
15571
diff
changeset
|
676 call assert_fails('call reverse("")', 'E899:') |
19932
2c4d9ca33769
patch 8.2.0522: several errors are not tested for
Bram Moolenaar <Bram@vim.org>
parents:
19783
diff
changeset
|
677 call assert_fails('call uniq([1, 2], {x, y -> []})', 'E882:') |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
678 call assert_fails("call sort([1, 2], function('min'), 1)", "E715:") |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
679 call assert_fails("call sort([1, 2], function('invalid_func'))", "E700:") |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
680 call assert_fails("call sort([1, 2], function('min'))", "E702:") |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
681 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
682 |
19783
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
683 " splitting a string to a List using split() |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
684 func Test_str_split() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
685 call assert_equal(['aa', 'bb'], split(' aa bb ')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
686 call assert_equal(['aa', 'bb'], split(' aa bb ', '\W\+', 0)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
687 call assert_equal(['', 'aa', 'bb', ''], split(' aa bb ', '\W\+', 1)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
688 call assert_equal(['', '', 'aa', '', 'bb', '', ''], split(' aa bb ', '\W', 1)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
689 call assert_equal(['aa', '', 'bb'], split(':aa::bb:', ':', 0)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
690 call assert_equal(['', 'aa', '', 'bb', ''], split(':aa::bb:', ':', 1)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
691 call assert_equal(['aa', '', 'bb', 'cc', ''], split('aa,,bb, cc,', ',\s*', 1)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
692 call assert_equal(['a', 'b', 'c'], split('abc', '\zs')) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
693 call assert_equal(['', 'a', '', 'b', '', 'c', ''], split('abc', '\zs', 1)) |
19783
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
694 call assert_fails("call split('abc', [])", 'E730:') |
546bdeef35f1
patch 8.2.0448: various functions not properly tested
Bram Moolenaar <Bram@vim.org>
parents:
19724
diff
changeset
|
695 call assert_fails("call split('abc', 'b', [])", 'E745:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
696 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
697 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
698 " compare recursively linked list and dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
699 func Test_listdict_compare() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
700 let l = [1, 2, 3, 4] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
701 let d = {'1': 1, '2': l, '3': 3} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
702 let l[1] = d |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
703 call assert_true(l == l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
704 call assert_true(d == d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
705 call assert_false(l != deepcopy(l)) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
706 call assert_false(d != deepcopy(d)) |
19724
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
707 |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
708 " comparison errors |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
709 call assert_fails('echo [1, 2] =~ {}', 'E691:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
710 call assert_fails('echo [1, 2] =~ [1, 2]', 'E692:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
711 call assert_fails('echo {} =~ 5', 'E735:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
712 call assert_fails('echo {} =~ {}', 'E736:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
713 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
714 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
715 " compare complex recursively linked list and dict |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
716 func Test_listdict_compare_complex() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
717 let l = [] |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
718 call add(l, l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
719 let dict4 = {"l": l} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
720 call add(dict4.l, dict4) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
721 let lcopy = deepcopy(l) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
722 let dict4copy = deepcopy(dict4) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
723 call assert_true(l == lcopy) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
724 call assert_true(dict4 == dict4copy) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
725 endfunc |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
726 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
727 func Test_listdict_extend() |
15949
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
728 " Test extend() with lists |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
729 |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
730 " Pass the same List to extend() |
15949
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
731 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
732 call assert_equal([1, 2, 3, 1, 2, 3], extend(l, l)) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
733 call assert_equal([1, 2, 3, 1, 2, 3], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
734 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
735 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
736 call assert_equal([1, 2, 3, 4, 5, 6], extend(l, [4, 5, 6])) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
737 call assert_equal([1, 2, 3, 4, 5, 6], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
738 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
739 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
740 call extend(l, [4, 5, 6], 0) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
741 call assert_equal([4, 5, 6, 1, 2, 3], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
742 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
743 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
744 call extend(l, [4, 5, 6], 1) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
745 call assert_equal([1, 4, 5, 6, 2, 3], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
746 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
747 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
748 call extend(l, [4, 5, 6], 3) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
749 call assert_equal([1, 2, 3, 4, 5, 6], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
750 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
751 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
752 call extend(l, [4, 5, 6], -1) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
753 call assert_equal([1, 2, 4, 5, 6, 3], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
754 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
755 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
756 call extend(l, [4, 5, 6], -3) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
757 call assert_equal([4, 5, 6, 1, 2, 3], l) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
758 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
759 let l = [1, 2, 3] |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
760 call assert_fails("call extend(l, [4, 5, 6], 4)", 'E684:') |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
761 call assert_fails("call extend(l, [4, 5, 6], -4)", 'E684:') |
19249
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
762 if has('float') |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
763 call assert_fails("call extend(l, [4, 5, 6], 1.2)", 'E805:') |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
764 endif |
15949
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
765 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
766 " Test extend() with dictionaries. |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
767 |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
768 " Pass the same Dict to extend() |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
769 let d = { 'a': {'b': 'B'}} |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
770 call extend(d, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
771 call assert_equal({'a': {'b': 'B'}}, d) |
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
772 |
15949
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
773 let d = {'a': 'A', 'b': 'B'} |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
774 call assert_equal({'a': 'A', 'b': 0, 'c': 'C'}, extend(d, {'b': 0, 'c':'C'})) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
775 call assert_equal({'a': 'A', 'b': 0, 'c': 'C'}, d) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
776 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
777 let d = {'a': 'A', 'b': 'B'} |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
778 call extend(d, {'a': 'A', 'b': 0, 'c': 'C'}, "force") |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
779 call assert_equal({'a': 'A', 'b': 0, 'c': 'C'}, d) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
780 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
781 let d = {'a': 'A', 'b': 'B'} |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
782 call extend(d, {'b': 0, 'c':'C'}, "keep") |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
783 call assert_equal({'a': 'A', 'b': 'B', 'c': 'C'}, d) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
784 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
785 let d = {'a': 'A', 'b': 'B'} |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
786 call assert_fails("call extend(d, {'b': 0, 'c':'C'}, 'error')", 'E737:') |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
787 call assert_fails("call extend(d, {'b': 0, 'c':'C'}, 'xxx')", 'E475:') |
19249
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
788 if has('float') |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
789 call assert_fails("call extend(d, {'b': 0, 'c':'C'}, 1.2)", 'E806:') |
2a017e9dc6da
patch 8.2.0183: tests fail when the float feature is disabled
Bram Moolenaar <Bram@vim.org>
parents:
17914
diff
changeset
|
790 endif |
15949
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
791 call assert_equal({'a': 'A', 'b': 'B'}, d) |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
792 |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
793 call assert_fails("call extend([1, 2], 1)", 'E712:') |
d8ab4fa99341
patch 8.1.0980: extend() insufficiently tested
Bram Moolenaar <Bram@vim.org>
parents:
15762
diff
changeset
|
794 call assert_fails("call extend([1, 2], {})", 'E712:') |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
795 |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
796 " Extend g: dictionary with an invalid variable name |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
797 call assert_fails("call extend(g:, {'-!' : 10})", 'E461:') |
12788
cb9b2774f21f
patch 8.0.1271: still too many old style tests
Christian Brabandt <cb@256bit.org>
parents:
diff
changeset
|
798 endfunc |
15762
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
799 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
800 func s:check_scope_dict(x, fixed) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
801 func s:gen_cmd(cmd, x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
802 return substitute(a:cmd, '\<x\ze:', a:x, 'g') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
803 endfunc |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
804 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
805 let cmd = s:gen_cmd('let x:foo = 1', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
806 if a:fixed |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
807 call assert_fails(cmd, 'E461') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
808 else |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
809 exe cmd |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
810 exe s:gen_cmd('call assert_equal(1, x:foo)', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
811 endif |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
812 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
813 let cmd = s:gen_cmd('let x:["bar"] = 2', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
814 if a:fixed |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
815 call assert_fails(cmd, 'E461') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
816 else |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
817 exe cmd |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
818 exe s:gen_cmd('call assert_equal(2, x:bar)', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
819 endif |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
820 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
821 let cmd = s:gen_cmd('call extend(x:, {"baz": 3})', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
822 if a:fixed |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
823 call assert_fails(cmd, 'E742') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
824 else |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
825 exe cmd |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
826 exe s:gen_cmd('call assert_equal(3, x:baz)', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
827 endif |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
828 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
829 if a:fixed |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
830 if a:x ==# 'a' |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
831 call assert_fails('unlet a:x', 'E795') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
832 call assert_fails('call remove(a:, "x")', 'E742') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
833 elseif a:x ==# 'v' |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
834 call assert_fails('unlet v:count', 'E795') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
835 call assert_fails('call remove(v:, "count")', 'E742') |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
836 endif |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
837 else |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
838 exe s:gen_cmd('unlet x:foo', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
839 exe s:gen_cmd('unlet x:bar', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
840 exe s:gen_cmd('call remove(x:, "baz")', a:x) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
841 endif |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
842 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
843 delfunc s:gen_cmd |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
844 endfunc |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
845 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
846 func Test_scope_dict() |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
847 " Test for g: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
848 call s:check_scope_dict('g', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
849 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
850 " Test for s: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
851 call s:check_scope_dict('s', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
852 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
853 " Test for l: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
854 call s:check_scope_dict('l', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
855 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
856 " Test for a: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
857 call s:check_scope_dict('a', v:true) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
858 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
859 " Test for b: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
860 call s:check_scope_dict('b', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
861 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
862 " Test for w: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
863 call s:check_scope_dict('w', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
864 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
865 " Test for t: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
866 call s:check_scope_dict('t', v:false) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
867 |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
868 " Test for v: |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
869 call s:check_scope_dict('v', v:true) |
dff66c4670b1
patch 8.1.0888: the a: dict is not immutable as documented
Bram Moolenaar <Bram@vim.org>
parents:
15579
diff
changeset
|
870 endfunc |
19689
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
871 |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
872 " Test for deep nesting of lists (> 100) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
873 func Test_deep_nested_list() |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
874 let deep_list = [] |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
875 let l = deep_list |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
876 for i in range(102) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
877 let newlist = [] |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
878 call add(l, newlist) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
879 let l = newlist |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
880 endfor |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
881 call add(l, 102) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
882 |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
883 call assert_fails('let m = deepcopy(deep_list)', 'E698:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
884 call assert_fails('lockvar 110 deep_list', 'E743:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
885 call assert_fails('unlockvar 110 deep_list', 'E743:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
886 call assert_fails('let x = execute("echo deep_list")', 'E724:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
887 call test_garbagecollect_now() |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
888 unlet deep_list |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
889 endfunc |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
890 |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
891 " Test for deep nesting of dicts (> 100) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
892 func Test_deep_nested_dict() |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
893 let deep_dict = {} |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
894 let d = deep_dict |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
895 for i in range(102) |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
896 let newdict = {} |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
897 let d.k = newdict |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
898 let d = newdict |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
899 endfor |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
900 let d.k = 'v' |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
901 |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
902 call assert_fails('let m = deepcopy(deep_dict)', 'E698:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
903 call assert_fails('lockvar 110 deep_dict', 'E743:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
904 call assert_fails('unlockvar 110 deep_dict', 'E743:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
905 call assert_fails('let x = execute("echo deep_dict")', 'E724:') |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
906 call test_garbagecollect_now() |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
907 unlet deep_dict |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
908 endfunc |
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
909 |
19724
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
910 " List and dict indexing tests |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
911 func Test_listdict_index() |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
912 call assert_fails('echo function("min")[0]', 'E695:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
913 call assert_fails('echo v:true[0]', 'E909:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
914 let d = {'k' : 10} |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
915 call assert_fails('echo d.', 'E15:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
916 call assert_fails('echo d[1:2]', 'E719:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
917 call assert_fails("let v = [4, 6][{-> 1}]", 'E729:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
918 call assert_fails("let v = range(5)[2:[]]", 'E730:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
919 call assert_fails("let v = range(5)[2:{-> 2}(]", 'E116:') |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
920 call assert_fails("let v = range(5)[2:3", 'E111:') |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
921 call assert_fails("let l = insert([1,2,3], 4, 10)", 'E684:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
922 call assert_fails("let l = insert([1,2,3], 4, -10)", 'E684:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
923 call assert_fails("let l = insert([1,2,3], 4, [])", 'E745:') |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
924 let l = [1, 2, 3] |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
925 call assert_fails("let l[i] = 3", 'E121:') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
926 call assert_fails("let l[1.1] = 4", 'E806:') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
927 call assert_fails("let l[:i] = [4, 5]", 'E121:') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
928 call assert_fails("let l[:3.2] = [4, 5]", 'E806:') |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
929 endfunc |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
930 |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
931 " Test for a null list |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
932 func Test_null_list() |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
933 let l = test_null_list() |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
934 call assert_equal(0, join(l)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
935 call assert_equal(0, len(l)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
936 call assert_equal(1, empty(l)) |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
937 call assert_fails('let s = join([1, 2], [])', 'E730:') |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
938 call assert_equal([], split(test_null_string())) |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
939 call assert_equal([], l[:2]) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
940 call assert_true([] == l) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
941 call assert_equal('[]', string(l)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
942 call assert_equal(0, sort(l)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
943 call assert_equal(0, uniq(l)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
944 call assert_fails("let k = [] + l", 'E15:') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
945 call assert_fails("let k = l + []", 'E15:') |
20109
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
946 endfunc |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
947 |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
948 " Test for a null dict |
e82996ad131f
patch 8.2.0610: some tests are still old style
Bram Moolenaar <Bram@vim.org>
parents:
19932
diff
changeset
|
949 func Test_null_dict() |
20128
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
950 call assert_equal(test_null_dict(), test_null_dict()) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
951 let d = test_null_dict() |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
952 call assert_equal({}, d) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
953 call assert_equal(0, len(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
954 call assert_equal(1, empty(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
955 call assert_equal(0, items(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
956 call assert_equal(0, keys(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
957 call assert_equal(0, values(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
958 call assert_false(has_key(d, 'k')) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
959 call assert_equal('{}', string(d)) |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
960 call assert_fails('let x = test_null_dict()[10]') |
0b35a7ffceb2
patch 8.2.0619: null dict is not handled like an empty dict
Bram Moolenaar <Bram@vim.org>
parents:
20109
diff
changeset
|
961 call assert_equal({}, {}) |
19724
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
962 endfunc |
b3e93a05c3ca
patch 8.2.0418: code in eval.c not sufficiently covered by tests
Bram Moolenaar <Bram@vim.org>
parents:
19689
diff
changeset
|
963 |
19689
da98d2ed8dc5
patch 8.2.0401: not enough test coverage for evalvars.c
Bram Moolenaar <Bram@vim.org>
parents:
19249
diff
changeset
|
964 " vim: shiftwidth=2 sts=2 expandtab |