1	# Oil builtins
2
3	#### append onto a=(1 2)
4	shopt -s parse_at
5	a=(1 2)
6	append :a '3 4' '5'
7	argv.py @a
8	append -- :a 6
9	argv.py @a
10	## STDOUT:
11	['1', '2', '3 4', '5']
12	['1', '2', '3 4', '5', '6']
13	## END
14
15	#### append onto var a = %(1 2)
16	shopt -s parse_at parse_proc
17	var a = %(1 2)
18	append a '3 4' '5' # : is optional
19	argv.py @a
20	## STDOUT:
21	['1', '2', '3 4', '5']
22	## END
23
24	#### append onto var a = ['1', '2']
25	shopt -s parse_at parse_proc
26	var a = ['1', '2']
27	append a '3 4' '5' # : is optional
28	argv.py @a
29	## STDOUT:
30	['1', '2', '3 4', '5']
31	## END
32
33	#### append with invalid type
34	s=''
35	append :s a b
36	echo status=$?
37	## stdout: status=1
38
39	#### append with invalid var name
40	append - a b
41	echo status=$?
42	## stdout: status=2
43
44	#### write --sep, --end, -n, varying flag syntax
45	shopt -s oil:all
46	var a = %('a b' 'c d')
47	write @a
48	write .
49	write -- @a
50	write .
51
52	write --sep '' --end '' @a; write
53	write .
54
55	write --sep '_' -- @a
56	write --sep '_' --end $' END\n' -- @a
57
58	# with =
59	write --sep='_' --end=$' END\n' -- @a
60
61	write -n x
62	write -n y
63	write
64
65	## STDOUT:
66	a b
67	c d
68	.
69	a b
70	c d
71	.
72	a bc d
73	.
74	a b_c d
75	a b_c d END
76	a b_c d END
77	xy
78	## END
79
80	#### write --qsn
81	write --qsn foo bar
82	write __
83
84	write --qsn 'abc def' ' 123 456'
85	write __
86
87	write --qsn $'one\ttwo\n'
88
89	write __
90	write --qsn $'\u{3bc}'
91
92
93	## STDOUT:
94	foo
95	bar
96	__
97	'abc def'
98	' 123 456'
99	__
100	'one\ttwo\n'
101	__
102	'μ'
103	## END
104
105
106	#### write --qsn --unicode
107	write --qsn $'\u{3bc}'
108	write --qsn --unicode u $'\u{3bc}'
109	write --qsn --unicode x $'\u{3bc}'
110
111	## STDOUT:
112	'μ'
113	'\u{3bc}'
114	'\xce\xbc'
115	## END
116
117	#### write -e not supported
118	shopt -s oil:all
119	write -e foo
120	write status=$?
121	## stdout-json: ""
122	## status: 2
123
124	#### write syntax error
125	shopt -s oil:all
126	write ---end foo
127	write status=$?
128	## stdout-json: ""
129	## status: 2
130
131	#### write --
132	shopt -s oil:all
133	write --
134	# This is annoying
135	write -- --
136	write done
137
138	# this is a syntax error! Doh.
139	write ---
140	## status: 2
141	## STDOUT:
142
143	--
144	done
145	## END
146
147	#### read flag usage
148	read --lin
149	echo status=$?
150
151	read --line :var extra
152	echo status=$?
153	## STDOUT:
154	status=2
155	status=2
156	## END
157
158	#### read :x :y is allowed
159	shopt --set parse_proc
160
161	echo 'foo bar' | read :x :y
162	echo x=$x y=$y
163
164	proc p {
165	# If these aren't here, it will LEAK because 'read' uses DYNAMIC SCOPE.
166	# TODO: Change semantics of : to be enforce that a local exists too?
167	var x = ''
168	var y = ''
169	echo 'spam eggs' | read x :y # OPTIONAL
170	echo x=$x y=$y
171	}
172	p
173
174	echo x=$x y=$y
175
176	## STDOUT:
177	x=foo y=bar
178	x=spam y=eggs
179	x=foo y=bar
180	## END
181
182	#### Idiom for returning 'read'
183	shopt --set parse_proc
184
185	proc p(out Ref) {
186	#var tmp = ''
187
188	# We can't do read :out in Oil. I think that's OK -- there's consistency in
189	# using setref everywhere.
190	echo foo | read :tmp
191	setref out = tmp
192	}
193	p :z
194	echo z=$z
195	## STDOUT:
196	z=foo
197	## END
198
199	#### read --line --with-eol
200	shopt -s oil:upgrade
201
202	# Hm this preserves the newline?
203	seq 3 | while read --line {
204	write line=$_line # implisict
205	}
206	write a b | while read --line --with-eol :myline {
207	write --end '' line=$myline
208	}
209	## STDOUT:
210	line=1
211	line=2
212	line=3
213	line=a
214	line=b
215	## END
216
217	#### read --line --qsn
218	read --line --qsn <<EOF
219	'foo\n'
220	EOF
221	write --qsn -- "$_line"
222
223	read --line --qsn <<EOF
224	'foo\tbar hex=\x01 mu=\u{3bc}'
225	EOF
226	write --qsn --unicode u -- "$_line"
227
228	echo '$' | read --line --qsn
229	write --qsn -- "$_line"
230
231	## STDOUT:
232	'foo\n'
233	'foo\tbar hex=\u{1} mu=\u{3bc}'
234	'$'
235	## END
236
237	#### read --line --qsn accepts optional $''
238
239	# PROBLEM: is it limited to $' ? What about $3.99 ?
240	# I think you just check for those 2 chars
241
242	echo $'$\'foo\'' | read --line --qsn
243	write -- "$_line"
244	## STDOUT:
245	foo
246	## END
247
248	#### read --line --with-eol --qsn
249
250	# whitespace is allowed after closing single quote; it doesn't make a
251	# difference.
252
253	read --line --with-eol --qsn <<EOF
254	'foo\n'
255	EOF
256	write --qsn -- "$_line"
257	## STDOUT:
258	'foo\n'
259	## END
260
261	#### read --qsn usage
262	read --qsn << EOF
263	foo
264	EOF
265	echo status=$?
266
267	## STDOUT:
268	status=2
269	## END
270
271	#### read --all-lines
272	seq 3 | read --all-lines :nums
273	write --sep ' ' -- @nums
274	## STDOUT:
275	1 2 3
276	## END
277
278	#### read --all-lines --with-eol
279	seq 3 | read --all-lines --with-eol :nums
280	write --sep '' -- @nums
281	## STDOUT:
282	1
283	2
284	3
285	## END
286
287	#### read --all-lines --qsn --with-eol
288	read --all-lines --qsn --with-eol :lines << EOF
289	foo
290	bar
291	'one\ntwo'
292	EOF
293	write --sep '' -- @lines
294	## STDOUT:
295	foo
296	bar
297	one
298	two
299	## END
300
301	#### read --all
302	echo foo | read --all
303	echo "[$_all]"
304
305	echo bad > tmp.txt
306	read --all :x < tmp.txt
307	echo "[$x]"
308
309	## STDOUT:
310	[foo
311	]
312	[bad
313	]
314	## END
315
316	#### read --line from directory is an error (EISDIR)
317	mkdir -p ./dir
318	read --line < ./dir
319	echo status=$?
320	## STDOUT:
321	status=1
322	## END
323
324	#### read --all from directory is an error (EISDIR)
325	mkdir -p ./dir
326	read --all < ./dir
327	echo status=$?
328	## STDOUT:
329	status=1
330	## END
331
332	#### read -0 is like read -r -d ''
333	set -o errexit
334
335	mkdir -p read0
336	cd read0
337	touch a\\b\\c\\d
338
339	find . -type f -a -print0 | read -r -d '' name
340	echo "[$name]"
341
342	find . -type f -a -print0 | read -0
343	echo "[$REPLY]"
344
345	## STDOUT:
346	[./a\b\c\d]
347	[./a\b\c\d]
348	## END
349
350	#### simple_test_builtin
351
352	test -n "foo"
353	echo status=$?
354
355	test -n "foo" -a -n "bar"
356	echo status=$?
357
358	[ -n foo ]
359	echo status=$?
360
361	shopt --set oil:all
362	shopt --unset errexit
363
364	test -n "foo" -a -n "bar"
365	echo status=$?
366
367	[ -n foo ]
368	echo status=$?
369
370	test -z foo
371	echo status=$?
372
373	## STDOUT:
374	status=0
375	status=0
376	status=0
377	status=2
378	status=2
379	status=1
380	## END
381
382	#### long flags to test
383	# no options necessary!
384
385	test --dir /
386	echo status=$?
387
388	touch foo
389	test --file foo
390	echo status=$?
391
392	test --exists /
393	echo status=$?
394
395	test --symlink foo
396	echo status=$?
397
398	test --typo foo
399	echo status=$?
400
401	## STDOUT:
402	status=0
403	status=0
404	status=0
405	status=1
406	status=2
407	## END
408
409
410	#### push-registers
411	shopt --set oil:upgrade
412	shopt --unset errexit
413
414	status_code() {
415	return $1
416	}
417
418	[[ foo =~ (.*) ]]
419
420	status_code 42
421	push-registers {
422	status_code 43
423	echo status=$?
424
425	[[ bar =~ (.*) ]]
426	echo ${BASH_REMATCH[@]}
427	}
428	# WEIRD SEMANTIC TO REVISIT: push-registers is "SILENT" as far as exit code
429	# This is for the headless shell, but hasn't been tested.
430	# Better method: maybe we should provide a way of SETTING $?
431
432	echo status=$?
433
434	echo ${BASH_REMATCH[@]}
435	## STDOUT:
436	status=43
437	bar bar
438	status=42
439	foo foo
440	## END
441
442	#### push-registers usage
443	shopt --set parse_brace
444
445	push-registers
446	echo status=$?
447
448	push-registers a b
449	echo status=$?
450
451	push-registers a b { # hm extra args are ignored
452	echo hi
453	}
454	echo status=$?
455
456	## STDOUT:
457	status=2
458	status=2
459	hi
460	status=0
461	## END
462
463
464	#### module
465	shopt --set oil:upgrade
466
467	module 'main' || return 0
468	source $REPO_ROOT/spec/testdata/module/common.oil
469	source $REPO_ROOT/spec/testdata/module/module1.oil
470	## STDOUT:
471	common
472	module1
473	## END
474
475
476	#### runproc
477	shopt --set parse_proc
478
479	f() {
480	write -- f "$@"
481	}
482	proc p {
483	write -- p "$@"
484	}
485	runproc f 1 2
486	echo status=$?
487
488	runproc p 3 4
489	echo status=$?
490
491	runproc invalid 5 6
492	echo status=$?
493
494	runproc
495	echo status=$?
496
497	## STDOUT:
498	f
499	1
500	2
501	status=0
502	p
503	3
504	4
505	status=0
506	status=1
507	status=2
508	## END
509
510	#### runproc typed args
511	shopt --set parse_brace parse_proc
512
513	proc p {
514	echo hi
515	}
516
517	# The block is ignored for now
518	runproc p {
519	echo myblock
520	}
521	## STDOUT:
522	hi
523	## END
524
525
526	#### fopen
527	shopt --set parse_brace parse_proc
528
529	proc p {
530	echo 'proc'
531	}
532
533	fopen >out.txt {
534	p
535	echo 'builtin'
536	}
537
538	cat out.txt
539
540	echo ---
541
542	fopen <out.txt {
543	tac
544	}
545
546	# Awkward bash syntax, but we'll live with it
547	fopen {left}>left.txt {right}>right.txt {
548	echo 1 >& $left
549	echo 1 >& $right
550
551	echo 2 >& $left
552	echo 2 >& $right
553
554	echo 3 >& $left
555	}
556
557	echo ---
558	comm -23 left.txt right.txt
559
560	## STDOUT:
561	proc
562	builtin
563	---
564	builtin
565	proc
566	---
567	3
568	## END