Added more tests for array slices.

tpapp · Dec 25, 2012 · 309042d · 309042d
1 parent f946ba7
commit 309042d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git 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))))