OILS / spec / ysh-list.test.sh View on Github | oils.pub

270 lines, 149 significant
1## our_shell: ysh
2## oils_failures_allowed: 0
3
4#### shell array :| a 'b c' |
5shopt -s parse_at
6var x = :| a 'b c' |
7var empty = %()
8argv.py / @x @empty /
9
10## STDOUT:
11['/', 'a', 'b c', '/']
12## END
13
14#### empty array and simple_word_eval (regression test)
15shopt -s parse_at simple_word_eval
16var empty = :| |
17echo len=$[len(empty)]
18argv.py / @empty /
19
20## STDOUT:
21len=0
22['/', '/']
23## END
24
25#### Empty array and assignment builtin (regression)
26# Bug happens with shell arrays too
27empty=()
28declare z=1 "${empty[@]}"
29echo z=$z
30## STDOUT:
31z=1
32## END
33
34#### Shell arrays support tilde detection, static globbing, brace detection
35shopt -s parse_at simple_word_eval
36touch {foo,bar}.py
37
38# could this also be __defaults__.HOME or DEF.HOME?
39setglobal ENV.HOME = '/home/bob'
40no_dynamic_glob='*.py'
41
42var x = :| ~/src *.py {andy,bob}@example.com $no_dynamic_glob |
43argv.py @x
44## STDOUT:
45['/home/bob/src', 'bar.py', 'foo.py', 'andy@example.com', 'bob@example.com', '*.py']
46## END
47
48#### Basic List, a[42] a['42'] allowed
49
50var x = :| 1 2 3 |
51write len=$[len(x)]
52
53pp test_ (x[1])
54
55# Can be int-looking string
56pp test_ (x['2'])
57
58# Not allowed
59pp test_ (x['zz'])
60
61## status: 3
62## STDOUT:
63len=3
64(Str) "2"
65(Str) "3"
66## END
67
68#### Mutate List entries, a[42] a['42'] allowed
69
70var a = :| 2 3 4 |
71
72setvar a[1] = 1
73pp test_ (a)
74
75setvar a['2'] += 5
76pp test_ (a)
77
78# Can be int-looking string
79setvar a['2'] = 99
80pp test_ (a)
81
82# Not allowed
83setvar a['zz'] = 101
84
85## status: 3
86## STDOUT:
87(List) ["2",1,"4"]
88(List) ["2",1,9]
89(List) ["2",1,99]
90## END
91
92
93#### string array with command sub, varsub, etc.
94shopt -s ysh:all
95
96var x = 1
97var a = :| $x $(write hi) 'sq' "dq $x" |
98write len=$[len(a)]
99write @a
100## STDOUT:
101len=4
1021
103hi
104sq
105dq 1
106## END
107
108#### Can print type of List with pp
109
110var b = :|true| # this is a string
111pp test_ (b)
112
113# = b
114
115var empty = :||
116pp test_ (empty)
117
118# = empty
119
120## STDOUT:
121(List) ["true"]
122(List) []
123## END
124
125#### splice and stringify array
126
127shopt -s parse_at
128
129var x = :| 'a b' c |
130
131declare -a array=( @x )
132
133argv.py "${array[@]}" # should work
134
135echo -$array- # fails because of strict_arraywith type error
136
137echo -$x- # fails with type error
138
139## status: 1
140## STDOUT:
141['a b', 'c']
142## END
143
144#### List->extend()
145var l = list(1..<3)
146echo $[len(l)]
147call l->extend(list(3..<6))
148echo $[len(l)]
149## STDOUT:
1502
1515
152## END
153
154#### List append()/extend() should return null
155shopt -s ysh:all
156var l = list(1..<3)
157
158var result = l->extend(list(3..<6))
159assert [null === result]
160
161setvar result = l->append(6)
162assert [null === result]
163
164echo pass
165## STDOUT:
166pass
167## END
168
169#### List pop()
170shopt -s ysh:all
171var l = list(1..<5)
172assert [4 === l->pop()]
173assert [3 === l->pop()]
174assert [2 === l->pop()]
175assert [1 === l->pop()]
176echo pass
177## STDOUT:
178pass
179## END
180
181#### List remove()
182shopt -s ysh:all
183var l = list(1..=3)
184call l->remove(2)
185var want = [1, 3]
186assert [l === want]
187var l = :|foo bar baz|
188call l->remove("foo")
189var want = :|bar baz|
190assert [l === want]
191echo pass
192## STDOUT:
193pass
194## END
195
196#### List remove() removes first instance only
197shopt -s ysh:all
198var l = :| foo bar foo baz bat foo |
199call l->remove("foo")
200var want = :| bar foo baz bat foo |
201assert [l === want]
202echo pass
203## STDOUT:
204pass
205## END
206
207#### List remove() does nothing if element does not exist
208shopt -s ysh:all
209var l = :| a b c |
210call l->remove("d")
211var want = :| a b c |
212assert [l === want]
213echo pass
214## STDOUT:
215pass
216## END
217
218#### List insert()
219shopt -s ysh:all
220var l = :| foo bar |
221call l->insert(0, "baz")
222var want = :| baz foo bar |
223assert [l === want]
224call l->insert(2, "bat")
225var want = :| baz foo bat bar |
226assert [l === want]
227echo pass
228## STDOUT:
229pass
230## END
231
232#### List insert() overflow
233shopt -s ysh:all
234var l = :| foo bar baz |
235call l->insert(123, "bat")
236call l->insert(123, "bam")
237var want = :| foo bar baz bat bam |
238assert [l === want]
239echo pass
240## STDOUT:
241pass
242## END
243
244#### List insert() negative
245shopt -s ysh:all
246var l = :| foo bar |
247call l->insert(-1, "baz")
248var want = :| foo bar baz |
249assert [l === want]
250call l->insert(-4, "bat")
251var want = :| bat foo bar baz |
252assert [l === want]
253echo pass
254## STDOUT:
255pass
256## END
257
258#### List insert() negative overflow
259shopt -s ysh:all
260var l = :| foo bar |
261call l->insert(-100, "baz")
262var want = :| baz foo bar |
263assert [l === want]
264call l->insert(-100, "bat")
265var want = :| bat baz foo bar |
266assert [l === want]
267echo pass
268## STDOUT:
269pass
270## END