[elephant-cvs] CVS elephant/tests

[ieslick]

Update of /project/elephant/cvsroot/elephant/tests
In directory clnet:/tmp/cvs-serv9316/tests

Modified Files:
	testserializer.lisp 
Log Message:
Added support for complex serialization (no sorting), latest doc changes and a preliminary GC wrapper

--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/02/25 20:02:32	1.19
+++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp	2007/04/04 15:28:30	1.20
@@ -173,6 +173,18 @@
      (in-out-equal (/ (expt 2 200) (expt 3 300)))
      (in-out-equal (/ (expt 2 200) (- (expt 3 300)))))
   t t t t t t t)
+
+(deftest complexes
+   (are-not-null
+    (in-out-equal (sqrt -1))
+    (in-out-equal (complex 1))
+    (in-out-equal (complex 1.0))
+    (in-out-equal (complex (/ 1 2) (/ 2 3)))
+    (in-out-equal #C(1.0 0.0))
+    (in-out-equal #C(2 3))
+    (in-out-equal (complex most-positive-fixnum most-negative-fixnum))
+    (in-out-equal (complex (expt 2 200) (expt 3 201))))
+  t t t t t t t t)
      
 (deftest base-strings
     (are-not-null