add some failing tests for closures

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/clos2.bth b/tests/clos2.bth
new file mode 100644
index 0000000..9e1fe24
--- /dev/null
+++ b/tests/clos2.bth
@@ -0,0 +1,15 @@
+(defn (k1 x)
+	(fn () x))
+(defn (k2 x)
+	(let (v x)
+		(fn () v)))
+(def a1 (k1 100))
+(def a2 (k2 200))
+(def b1 (k1 "hello 1"))
+(def b2 (k2 "hello 2"))
+(say (a1))
+(say (a2))
+(say (b1))
+(say (b2))
+(say (a1))
+(say (a2))