summaryrefslogtreecommitdiffstats
path: root/tests/010/span-var.txr
diff options
context:
space:
mode:
Diffstat (limited to 'tests/010/span-var.txr')
-rw-r--r--tests/010/span-var.txr13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/010/span-var.txr b/tests/010/span-var.txr
index 5f5faa6c..b7142b79 100644
--- a/tests/010/span-var.txr
+++ b/tests/010/span-var.txr
@@ -13,3 +13,16 @@
@{w (fun2 x "a")}@y
@(require (equal w "a"))
@(require (equal y "b"))
+@(next :list '("a" "a" "a" "b" "c"))
+@(bind d ("d"))
+@(cases)
+@ {d (fun "x" "a")}
+@(or)
+@ (require "get here")
+@(end)
+@(next :string "ab")
+@(cases)
+@ {d (fun2 "x" "a")}
+@(or)
+@ (require "get here")
+@(end)