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*))