-#+test-uffi\r
-(progn\r
- (flet ((test-compress (str)\r
- (multiple-value-bind (compressed len) (compress str)\r
- (multiple-value-bind (uncompressed len2) (uncompress compressed)\r
- (util.test:test str uncompressed :test #'string=\r
- :fail-info "Error uncompressing a compressed string")))))\r
- (test-compress "")\r
- (test-compress "test")\r
- (test-compress "test2")))\r
+(deftest compress.1 (map 'list #'char-code (compress ""))\r
+ (120 156 3 0 0 0 0 1))\r
+(deftest compress.2 (map 'list #'char-code (compress "test"))\r
+ (120 156 43 73 45 46 1 0 4 93 1 193))\r
+(deftest compress.3 (map 'list #'char-code (compress "test2"))\r
+ (120 156 43 73 45 46 49 2 0 6 80 1 243))\r