[mcclim-cvs] CVS mcclim/Drei/Tests

[thenriksen]

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

Modified Files:
	lisp-syntax-tests.lisp 
Log Message:
Made Lisp syntax `form-to-object' handle label reader macros.


--- /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2006/12/10 19:28:48	1.1
+++ /project/mcclim/cvsroot/mcclim/Drei/Tests/lisp-syntax-tests.lisp	2007/01/15 22:13:15	1.2
@@ -364,13 +364,30 @@
 
 (test form-to-object-16
   (testing-lisp-syntax ("#+mcclim t")
-    (is (eq (get-object) t)))
+    (is (eq (get-object) (or #+mcclim t))))
   (testing-lisp-syntax ("#-mcclim t")
-    (is (eq (get-object) nil)))
+    (is (eq (get-object) (or #-mcclim t))))
   (testing-lisp-syntax ("(#+mcclim t)")
-    (is (equal (get-object) '(t))))
+    (is (equal (get-object) '(#+mcclim t))))
   (testing-lisp-syntax ("(#-mcclim t)")
-    (is (equal (get-object) '()))))
+    (is (equal (get-object) '(#-mcclim t)))))
+
+(test form-to-object-17
+  (testing-lisp-syntax ("(#1=list #1#)")
+    (is (equal (get-object) '(list list))))
+  (testing-lisp-syntax ("#1=(list . #1#)")
+    (finishes
+      (loop for x in (get-object)
+         for y in '#1=(list . #1#)
+         for i from 0 upto 100
+         unless (eq y x)
+         do (fail "~A is not eq to ~A" x y))))
+  (testing-lisp-syntax ("(#1=list (#1# 1 2 3))")
+    (let ((form (drei-lisp-syntax::form-before (syntax buffer) 14)))
+      (is (eq (form-to-object (syntax buffer) form) 'list))))
+  (testing-lisp-syntax ("(#1=list #1=cons)")
+    (signals form-conversion-error
+      (get-object))))
 
 (defgeneric find-pathnames (module)
   (:documentation "Get a list of the pathnames of the files