diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/010/span-var.txr | 13 |
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) |