From 99fcc68c3d43b6eb5ca737c1eed08666e59c5b15 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 9 Sep 2019 20:31:55 -0700
Subject: New tests for sequence manipulation.

Just a few append cases with improper lists here to start with.

* tests/012/seq.tl: New file.

* tests/012/seq.expected: New file
---
 tests/012/seq.expected | 0
 tests/012/seq.tl       | 9 +++++++++
 2 files changed, 9 insertions(+)
 create mode 100644 tests/012/seq.expected
 create mode 100644 tests/012/seq.tl

diff --git a/tests/012/seq.expected b/tests/012/seq.expected
new file mode 100644
index 00000000..e69de29b
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)))
-- 
cgit v1.2.3