From ccba8abf731fc9b796cfaee2776cddd516e8775d Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Sun, 17 Mar 2024 15:28:46 -0400
Subject: Add tests for nested comprehensions

---
 test/arrays.tm | 3 +++
 test/tables.tm | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/test/arrays.tm b/test/arrays.tm
index 3f00f186..07a89e19 100644
--- a/test/arrays.tm
+++ b/test/arrays.tm
@@ -57,6 +57,9 @@ if yes
 >> [i*10 for i in 5 if i mod 2 != 0]
 = [10, 30, 50]
 
+>> [x for x in y if x > 1 for y in [3, 4, 5] if y < 5]
+= [2, 3, 2, 3, 4]
+
 if yes
 	>> arr := @[10, 20]
 	>> copy := arr[]
diff --git a/test/tables.tm b/test/tables.tm
index 27b176bf..53e81d48 100644
--- a/test/tables.tm
+++ b/test/tables.tm
@@ -54,3 +54,5 @@ for k,v in t2
 = {1=>10, 2=>20, 3=>30, 4=>40, 5=>50}
 >> {i=>10*i for i in 5 if i mod 2 != 0}
 = {1=>10, 3=>30, 5=>50}
+>> {x=>10*x for x in y if x > 1 for y in [3, 4, 5] if y < 5}
+= {2=>20, 3=>30, 4=>40}
-- 
cgit v1.2.3