From 9e1d65b41b0f5435859794682880c93767d1dc44 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 16 May 2026 16:06:39 +0200
Subject: More generic unification in for statement

---
 test/asset/list/concat.et | 22 ++++++++++++++++++++++
 test/script/list.et       | 17 +++++++++++++++++
 2 files changed, 39 insertions(+)

(limited to 'test')

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")
-- 
cgit v1.2.3