projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11022: revert incorrect stuff from clisp testing
[uffi.git]
/
tests
/
compress.lisp
diff --git
a/tests/compress.lisp
b/tests/compress.lisp
index 7cf3cfa26f499f72de46f47fb6f1abc60079095d..9e73326f469636cc9356bff26d1efe00a79e8583 100644
(file)
--- a/
tests/compress.lisp
+++ b/
tests/compress.lisp
@@
-9,7
+9,7
@@
;;;;
;;;; $Id$
;;;;
;;;;
;;;; $Id$
;;;;
-;;;; This file, part of UFFI, is Copyright (c) 2002-200
3
by Kevin M. Rosenberg
+;;;; This file, part of UFFI, is Copyright (c) 2002-200
5
by Kevin M. Rosenberg
;;;;
;;;; *************************************************************************
;;;;
;;;; *************************************************************************
@@
-72,11
+72,11
@@
(uffi:free-foreign-object destlen)
(uffi:free-foreign-object dest)))))))
(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)
#(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)
#(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)
#(120 156 43 73 45 46 49 2 0 6 80 1 243) 13)
(defun compress-uncompress (str)
@@
-87,6
+87,6
@@
uncompressed)))
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")