diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-09-09 20:31:55 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-09-09 20:31:55 -0700 |
| commit | 582d74f36aa28380fbf947af393081dd610fd753 (patch) | |
| tree | 112be322eafbef5f63a85812067b09b6bd92c5a7 | |
| parent | 8955d56f9fc5b9703d1d96924260a1c8514534ae (diff) | |
| download | txr-582d74f36aa28380fbf947af393081dd610fd753.tar.gz txr-582d74f36aa28380fbf947af393081dd610fd753.tar.bz2 txr-582d74f36aa28380fbf947af393081dd610fd753.zip | |
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
| -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))) |