[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei/Tests
In directory clnet:/tmp/cvs-serv10820/Tests

Modified Files:
	lisp-syntax-tests.lisp 
Log Message:
Handle vector and array forms better.


--- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2007/01/15 22:13:15	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2007/01/31 14:31:59	1.3
@@ -254,7 +254,15 @@
                                      collecting x)
       (is (string= (symbol-name a) "NIL"))
       (is (string= (symbol-name b) "nil"))
-      (is (string= (symbol-name c) "Nil")))))
+      (is (string= (symbol-name c) "Nil"))))
+  (testing-lisp-syntax ("#(a b c c c c)")
+    (is (equalp (get-object) #6(a b c c c c))))
+  (testing-lisp-syntax ("#6(a b c c c c)")
+    (is (equalp (get-object) #6(a b c c c c))))
+  (testing-lisp-syntax ("#6(a b c)")
+    (is (equalp (get-object) #6(a b c c c c))))
+  (testing-lisp-syntax ("#6(a b c c)")
+    (is (equalp (get-object) #6(a b c c c c)))))
 
 (test form-to-object-12
   (testing-lisp-syntax ("(t . t)")
@@ -389,6 +397,18 @@
     (signals form-conversion-error
       (get-object))))
 
+(test form-to-object-18
+  (testing-lisp-syntax ("#2A((0 1 5) (foo 2 (hot dog)))")
+    (is (equalp (get-object) #2A((0 1 5) (foo 2 (hot dog))))))
+  (testing-lisp-syntax ("#2A((0 1) (foo 2 (hot dog)))")
+    (signals form-conversion-error (get-object)))
+  (testing-lisp-syntax ("#1A((0 1 5) (foo 2 (hot dog)))")
+    (is (equalp (get-object) #1A((0 1 5) (foo 2 (hot dog))))))
+  (testing-lisp-syntax ("#0Anil")
+    (is (equalp (get-object) #0Anil)))
+  (testing-lisp-syntax ("#0A#2A((0 1 5) (foo 2 (hot dog)))")
+    (is (equalp (get-object) #0A#2A((0 1 5) (foo 2 (hot dog)))))))
+
 (defgeneric find-pathnames (module)
   (:documentation "Get a list of the pathnames of the files
 making up an ASDF module/system/component.")