Test file for array.lisp

[jscl.git] / tests / array.lisp

diff --git a/tests/array.lisp b/tests/array.lisp
new file mode 100644 (file)
index 0000000..493cf79
--- /dev/null
+++ b/tests/array.lisp
@@ -0,0 +1,4 @@
+
+(test (arrayp #(1 2 3 4)))
+(test (vectorp #(1 2 3 4)))
+(test (not (vectorp (make-array '(3 3)))))