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 | 99fcc68c3d43b6eb5ca737c1eed08666e59c5b15 (patch) | |
| tree | 112be322eafbef5f63a85812067b09b6bd92c5a7 | |
| parent | 53c179c71f368f3dc44580d612c7c1abde06b918 (diff) | |
| download | txr-99fcc68c3d43b6eb5ca737c1eed08666e59c5b15.tar.gz txr-99fcc68c3d43b6eb5ca737c1eed08666e59c5b15.tar.bz2 txr-99fcc68c3d43b6eb5ca737c1eed08666e59c5b15.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))) |