diff --git a/tests.lisp b/tests.lisp
index b0b198b..be28e3a 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -50,4 +50,8 @@
   (assert-equalp #2A((1 4)
                      (6 9)
                      (11 14))
-    (slice arr35 #(0 1 2) #(1 -1))))
+    (slice arr35 #(0 1 2) #(1 -1)))
+  (assert-equalp #(5 6 7 8 9) (slice arr35 1 t))
+  (assert-equalp #2A((5 6 7 8 9)) (slice arr35 (cons 1 2) t))
+  (assert-equalp #(6 7 8) (slice arr35 1 (cons 1 -1)))
+  (assert-equalp #2A((6 7 8)) (slice arr35 (cons 1 2) (cons 1 -1))))