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