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

Modified Files: testserializer.lisp Log Message: Fixed serialization of char codes > #x7F; added appropriate test; fixed symbol export problem

--- /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/02/25 03:40:19 1.18 +++ /project/elephant/cvsroot/elephant/tests/testserializer.lisp 2007/02/25 20:02:32 1.19 @@ -189,6 +189,14 @@ (in-out-equal (make-string 400 :initial-element (code-char 254)))) t t t)

+(deftest hard-strings + (are-not-null + (in-out-equal (format nil "Mot~arhead is a hard rock band." (code-char 246))) + (in-out-equal (format nil "M~atley cr~ae is a hard string and was a hard rock band." + (code-char 246) (code-char 252))) + (in-out-equal (format nil "High c~ade p~ages." (code-char #xFFFF) (code-char #x1FFFF)))) + t t t) + (defun in-out-uninterned-equal (var) (with-buffer-streams (out-buf) (serialize var out-buf *store-controller*)