diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-02-22 19:01:10 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-02-22 19:01:10 -0800 |
commit | c4b87400ed9fb160ba5b282f1b58c62c057cbd50 (patch) | |
tree | 7925a6c97a3be3d3d1d55dca0d20d8f93add3a02 /tests/010/seq.txr | |
parent | 1072417ca13b56e338b88fd2389b3b25861c6193 (diff) | |
download | txr-c4b87400ed9fb160ba5b282f1b58c62c057cbd50.tar.gz txr-c4b87400ed9fb160ba5b282f1b58c62c057cbd50.tar.bz2 txr-c4b87400ed9fb160ba5b282f1b58c62c057cbd50.zip |
* tests/010/seq.txr: New file.
* tests/010/seq.expected: New file.
Diffstat (limited to 'tests/010/seq.txr')
-rw-r--r-- | tests/010/seq.txr | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/010/seq.txr b/tests/010/seq.txr new file mode 100644 index 00000000..2983447d --- /dev/null +++ b/tests/010/seq.txr @@ -0,0 +1,21 @@ +@(do + (defvar *h* (hash :equal-based)) + (defvar *s* "abcd") + (defvar *v* #(1 2 3 4 5 6 7 8)) + (defvar *v2* #((1 . #\a) (2 . #\b) (3 . #\c) (4 . #\d) + (5 . #\e) (6 . #\f) (7 . #\h) (8 . #\g))) + (defun caught (x) (format t "exception!\n")) + (defun pr (x) (format t "~s\n" x)) + (defun pr2 (x y) (format t "~s ~s\n" x y)) + (pr (set [*h* "a"] 42)) + (pr [*h* "a"]) + (pr (del [*h* "a"])) + (pr (del [*h* "a"])) + (format t "~s ~s\n" (del [*s* 1]) *s*) + (format t "~s ~s\n" (del [*s* -1]) *s*) + (catch (pr (del [*s* 3]) *s*) (t (x) (caught x))) + (catch (del *h*) (t (x) (caught x))) + (pr [sort *v* >]) + (pr [sort *v2* > cdr]) + (pr [sort (range 1 100) >]) + (pr2 (del [*v2* 1..3]) *v2*)) |