summaryrefslogtreecommitdiffstats
path: root/tests/010/seq.txr
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-02-22 19:01:10 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-02-22 19:01:10 -0800
commitc4b87400ed9fb160ba5b282f1b58c62c057cbd50 (patch)
tree7925a6c97a3be3d3d1d55dca0d20d8f93add3a02 /tests/010/seq.txr
parent1072417ca13b56e338b88fd2389b3b25861c6193 (diff)
downloadtxr-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.txr21
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*))