diff options
| -rw-r--r-- | tests/012/seq.expected | 0 | ||||
| -rw-r--r-- | tests/012/seq.tl | 9 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/012/seq.expected b/tests/012/seq.expected new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/tests/012/seq.expected diff --git a/tests/012/seq.tl b/tests/012/seq.tl new file mode 100644 index 00000000..66361cfb --- /dev/null +++ b/tests/012/seq.tl @@ -0,0 +1,9 @@ +(load "../common") + +(test (append "abc" "d") "abcd") +(test (append "abc" #(#\d)) "abcd") +(test (append '(1 2 . "abc") #(#\d)) (1 2 . "abcd")) +(test (append 3 4) :error) +(test (append '(1) 2) (1 . 2)) +(test (append '(1 . 2) 2) :error) +(test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d))) |