Mercurial > vim

comparison src/testdir/test55.in @ 119:e8f07016e34d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0042
author vimboss
date Wed, 19 Jan 2005 22:18:32 +0000
parents
children f67f8a8d81ba
comparison
equal deleted inserted replaced
118:45fd0ec37cf3 119:e8f07016e34d
1 Tests for List and Dictionary types. vim: set ft=vim :
2
3 STARTTEST
4 :so small.vim
5 :fun Test()
6 :" Creating List directly with different types
7 :let l = [1, 'as''d', [1, 2, function("strlen")], {'a': 1},]
8 :$put =string(l)
9 :$put =string(l[-1])
10 :$put =string(l[-4])
11 :try
12 : $put =string(l[-5])
13 :catch
14 : $put =v:exception[:14]
15 :endtry
16 :"
17 :" List identity
18 :let ll = l
19 :let lx = copy(l)
20 :try
21 : $put =(l == ll) . (l isnot ll) . (l is ll) . (l == lx) . (l is lx) . (l isnot lx)
22 :catch
23 : $put =v:exception
24 :endtry
25 :"
26 :" Creating Dictionary directly with different types
27 :let d = {001: 'asd', 'b': [1, 2, function('strlen')], -1: {'a': 1},}
28 :$put =string(d) . d.1
29 :$put =string(sort(keys(d)))
30 :$put =string(values(d))
31 :for [key, val] in items(d)
32 : $put =key . ':' . string(val)
33 : unlet key val
34 :endfor
35 :call extend(d, {3:33, 1:99})
36 :call extend(d, {'b':'bbb', 'c':'ccc'}, "keep")
37 :try
38 : call extend(d, {3:333,4:444}, "error")
39 :catch
40 : $put =v:exception[:15] . v:exception[-1:-1]
41 :endtry
42 :$put =string(d)
43 :call filter(d, 'v:key =~ ''[ac391]''')
44 :$put =string(d)
45 :"
46 :" Dictionary identity
47 :let dd = d
48 :let dx = copy(d)
49 :try
50 : $put =(d == dd) . (d isnot dd) . (d is dd) . (d == dx) . (d is dx) . (d isnot dx)
51 :catch
52 : $put =v:exception
53 :endtry
54 :"
55 :" Changing var type should fail
56 :try
57 : let d = []
58 :catch
59 : $put =v:exception[:14] . v:exception[-1:-1]
60 :endtry
61 :try
62 : let l = {}
63 :catch
64 : $put =v:exception[:14] . v:exception[-1:-1]
65 :endtry
66 :"
67 :" removing items with :unlet
68 :unlet l[2]
69 :$put =string(l)
70 :let l = range(8)
71 :unlet l[:3]
72 :unlet l[1:]
73 :$put =string(l)
74 :"
75 :unlet d.c
76 :unlet d[-1]
77 :$put =string(d)
78 :"
79 :" manipulating a big Dictionary
80 :let d = {}
81 :for i in range(15000)
82 : let d[i] = 30000 - i
83 :endfor
84 :$put =d[0] . ' ' . d[100] . ' ' . d[999] . ' ' . d[14000] . ' ' . d[14999]
85 :try
86 : let n = d[15000]
87 :catch
88 : $put =v:exception[:14] . v:exception[-5:-1]
89 :endtry
90 :" lookup each items
91 :for i in range(15000)
92 : if d[i] != 30000 - i
93 : $put =d[i]
94 : endif
95 :endfor
96 : let i += 1
97 :" delete even items
98 :while i >= 2
99 : let i -= 2
100 : unlet d[i]
101 :endwhile
102 :$put =get(d, 15000 - 100, 'NONE') . ' ' . d[1]
103 :" delete odd items, checking value, one intentionally wrong
104 :let d[33] = 999
105 :let i = 1
106 :while i < 15000
107 : if d[i] != 30000 - i
108 : $put =i . '=' . d[i]
109 : else
110 : unlet d[i]
111 : endif
112 : let i += 2
113 :endwhile
114 :$put =string(d) " must be almost empty now
115 :unlet d
116 :"
117 :" Dictionary function
118 :let dict = {}
119 :func dict.func(a) dict
120 : $put =a:a . len(self.data)
121 :endfunc
122 :let dict.data = [1,2,3]
123 :call dict.func("len: ")
124 :echo dict.func("again: ")
125 :try
126 : let Fn = dict.func
127 : call Fn('xxx')
128 :catch
129 : $put =v:exception[:15]
130 :endtry
131 :sleep 5
132 :"
133 :" Nasty: remove func from Dict that's being called (works)
134 :let d = {1:1}
135 :func d.func(a)
136 : return "a:". a:a
137 :endfunc
138 :$put = d.func(string(remove(d, 'func')))
139 :"
140 :" Nasty: deepcopy() dict that refers to itself (fails)
141 :let d = {1:1, 2:2}
142 :let l = [4, d, 6]
143 :let d[3] = l
144 :try
145 : let x = deepcopy(d)
146 :catch
147 : $put =v:exception[:14]
148 :endtry
149 :"
150 :endfun
151 :call Test()
152 :"
153 :/^start:/,$wq! test.out
154 ENDTEST
155
156 start: