X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fcompress.lisp;fp=tests%2Fcompress.lisp;h=738e16264ffdba131bd7b728a01cb233a4cae3cd;hb=0824453227a26da41a3929c9117b66714980414b;hp=7cf3cfa26f499f72de46f47fb6f1abc60079095d;hpb=7004c2691d5695471c7bce9d62b82a1914cf05a2;p=uffi.git diff --git a/tests/compress.lisp b/tests/compress.lisp index 7cf3cfa..738e162 100644 --- a/tests/compress.lisp +++ b/tests/compress.lisp @@ -72,11 +72,11 @@ (uffi:free-foreign-object destlen) (uffi:free-foreign-object dest))))))) -(deftest compress.1 (compress "") +(deftest :compress.1 (compress "") #(120 156 3 0 0 0 0 1) 8) -(deftest compress.2 (compress "test") +(deftest :compress.2 (compress "test") #(120 156 43 73 45 46 1 0 4 93 1 193) 12) -(deftest compress.3 (compress "test2") +(deftest :compress.3 (compress "test2") #(120 156 43 73 45 46 49 2 0 6 80 1 243) 13) (defun compress-uncompress (str) @@ -87,6 +87,6 @@ uncompressed))) -(deftest uncompress.1 "" "") -(deftest uncompress.2 "test" "test") -(deftest uncompress.3 "test2" "test2") +(deftest :uncompress.1 "" "") +(deftest :uncompress.2 "test" "test") +(deftest :uncompress.3 "test2" "test2")