r10141: fix for sb-unicode

[uffi.git] / tests / compress.lisp

diff --git a/tests/compress.lisp b/tests/compress.lisp
index 173d3e8f076316aef9b309278632d620e964e24a..7cf3cfa26f499f72de46f47fb6f1abc60079095d 100644 (file)
--- a/tests/compress.lisp
+++ b/tests/compress.lisp
@@ -36,10 +36,8 @@
            (newdestlen (uffi:deref-pointer destlen :long)))
        (unwind-protect
            (if (zerop result)
-               (values (uffi:convert-from-foreign-string 
-                        dest
-                        :length newdestlen
-                        :null-terminated-p nil)
+               (values (uffi:convert-from-foreign-usb8 
+                        dest newdestlen)
                        newdestlen)
              (error "zlib error, code ~D" result))
          (progn
@@ -74,12 +72,12 @@
            (uffi:free-foreign-object destlen)
            (uffi:free-foreign-object dest)))))))
 
-(deftest compress.1 (map 'list #'char-code (compress ""))
-  (120 156 3 0 0 0 0 1))
-(deftest compress.2 (map 'list #'char-code  (compress "test"))
-  (120 156 43 73 45 46 1 0 4 93 1 193))
-(deftest compress.3 (map 'list #'char-code (compress "test2"))
-  (120 156 43 73 45 46 49 2 0 6 80 1 243))
+(deftest compress.1 (compress "")
+  #(120 156 3 0 0 0 0 1) 8)
+(deftest compress.2  (compress "test")
+  #(120 156 43 73 45 46 1 0 4 93 1 193) 12)
+(deftest compress.3 (compress "test2")
+  #(120 156 43 73 45 46 49 2 0 6 80 1 243) 13)
 
 (defun compress-uncompress (str)
   (multiple-value-bind (compressed len) (compress str)