summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/asset/list/concat.et22
-rw-r--r--test/script/list.et17
2 files changed, 39 insertions, 0 deletions
diff --git a/test/asset/list/concat.et b/test/asset/list/concat.et
index 8248cdc..613df57 100644
--- a/test/asset/list/concat.et
+++ b/test/asset/list/concat.et
@@ -3,6 +3,28 @@ test Test:
let list2 = [ 2, 3 ]
let empty = [ ]
+ node n
+
let c1 = concat [[ 1 ]]
+ for i in c1:
+ shell on n:
+ echo "c1 $i"
+ local:
+ shell on n:
+ echo "c1-end"
+
let c2 = concat [[ 1 ], [], empty]
+ for i in c2:
+ shell on n:
+ echo "c2 $i"
+ local:
+ shell on n:
+ echo "c2-end"
+
let c3 = concat [ list1, list2, [ 6, 5 ], list2 ]
+ for i in c3:
+ shell on n:
+ echo "c3 $i"
+ local:
+ shell on n:
+ echo "c3-end"
diff --git a/test/script/list.et b/test/script/list.et
index 8dcb4a8..a654111 100644
--- a/test/script/list.et
+++ b/test/script/list.et
@@ -3,6 +3,10 @@ module list
asset scripts:
path: ../asset/list
+def expect_next_stdout (what) from p:
+ expect /child-stdout shell (.*)/ from p capture line
+ guard (line == what)
+
test ListConcat:
spawn as p
@@ -11,6 +15,19 @@ test ListConcat:
expect /load-done/
send "run Test"
+ expect_next_stdout from p:
+ "c1 1"
+ "c1-end"
+ "c2 1"
+ "c2-end"
+ "c3 1"
+ "c3 2"
+ "c3 3"
+ "c3 6"
+ "c3 5"
+ "c3 2"
+ "c3 3"
+ "c3-end"
local:
expect /(run-.*)/ capture done
guard (done == "run-done")