[elephant-cvs] CVS elephant/tests

[ieslick]

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*)