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.")