-;; Results of the above on my system:\r
-;; (compress "") => 789c300001,8\r
-;; (compress "test") => 789c2b492d2e1045d1c1,12\r
-;; (compress "test2") => 789c2b492d2e31206501f3,13\r
+(defun compress-uncompress (str)\r
+ (multiple-value-bind (compressed len) (compress str)\r
+ (declare (ignore len))\r
+ (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
+ (declare (ignore len2))\r
+ uncompressed)))\r
+\r
+\r
+(deftest uncompress.1 "" "")\r
+(deftest uncompress.2 "test" "test")\r
+(deftest uncompress.3 "test2" "test2")\r