Changeset 2765

Timestamp:

03/19/08 17:15:51 (10 months ago)

Author:

ksprotte

Message:

new encode / decode test: string.random

Files:

• trunk/bknr/datastore/src/data/encoding-test.lisp (modified) (2 diffs)

trunk/bknr/datastore/src/data/encoding-test.lisp

@@ -108 +108 @@
-                           :fill-pointer 3))
-
+(test:test string.random
+  (test:for-all ((string (test:gen-string)))
+    (test:is (congruent-p string (copy-by-encoding string)))))
+
-(test:test string.decode-utf-8
-  (labels ((decode-string-from-octets (octets)
@@ -113 +117 @@
-               (bknr.datastore::%decode-string in))))    
-    (test:is (string-equal "<=>" (decode-string-from-octets #(1 3 60 61 62))))
+    ;; #\? is the substitution char
-    (test:is (string-equal "<?>" (decode-string-from-octets #(1 3 60 188 62))))
-    (test:for-all ((octets (test:gen-buffer)))