summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.test38
1 files changed, 20 insertions, 18 deletions
diff --git a/tests/zlib.test b/tests/zlib.test
index 3f88565..1cb1676 100644
--- a/tests/zlib.test
+++ b/tests/zlib.test
@@ -10,65 +10,67 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: zlib.test,v 1.3 2008/12/13 09:19:06 dkf Exp $
+# RCS: @(#) $Id: zlib.test,v 1.4 2008/12/14 13:51:29 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
namespace import -force ::tcltest::*
}
+
+testConstraint zlib [llength [info commands zlib]]
-test zlib-1.1 {zlib basics} -returnCodes error -body {
+test zlib-1.1 {zlib basics} -constraints zlib -returnCodes error -body {
zlib
} -result {wrong # args: should be "zlib command arg ?...?"}
-test zlib-1.2 {zlib basics} -returnCodes error -body {
+test zlib-1.2 {zlib basics} -constraints zlib -returnCodes error -body {
zlib ? {}
} -result {bad command "?": must be adler32, compress, crc32, decompress, deflate, gunzip, gzip, inflate, push, or stream}
-test zlib-2.1 {zlib compress/decompress} {
+test zlib-2.1 {zlib compress/decompress} zlib {
zlib decompress [zlib compress abcdefghijklm]
} abcdefghijklm
-test zlib-3.1 {zlib deflate/inflate} {
+test zlib-3.1 {zlib deflate/inflate} zlib {
zlib inflate [zlib deflate abcdefghijklm]
} abcdefghijklm
-test zlib-4.1 {zlib gzip/gunzip} {
+test zlib-4.1 {zlib gzip/gunzip} zlib {
zlib gunzip [zlib gzip abcdefghijklm]
} abcdefghijklm
-test zlib-4.2 {zlib gzip/gunzip} {
+test zlib-4.2 {zlib gzip/gunzip} zlib {
set s [string repeat abcdef 5]
list [zlib gunzip [zlib gzip $s -header {comment gorp}] -header head] \
[dict get $head comment] [dict get $head size]
} {abcdefabcdefabcdefabcdefabcdef gorp 30}
-test zlib-5.1 {zlib adler32} {
+test zlib-5.1 {zlib adler32} zlib {
format %x [zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde]
} b3b50b9b
-test zlib-5.2 {zlib adler32} {
+test zlib-5.2 {zlib adler32} zlib {
format %x [zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde 42]
} b8830bc4
-test zlib-5.3 {zlib adler32} -returnCodes error -body {
+test zlib-5.3 {zlib adler32} -constraints zlib -returnCodes error -body {
zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde 42 x
} -result {wrong # args: should be "zlib adler32 data ?startValue?"}
-test zlib-6.1 {zlib crc32} {
+test zlib-6.1 {zlib crc32} zlib {
format %x [zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde]
} 6f73e901
-test zlib-6.2 {zlib crc32} {
+test zlib-6.2 {zlib crc32} zlib {
format %x [zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde 42]
} ce1c4914
-test zlib-6.3 {zlib crc32} -returnCodes error -body {
+test zlib-6.3 {zlib crc32} -constraints zlib -returnCodes error -body {
zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde 42 x
} -result {wrong # args: should be "zlib crc32 data ?startValue?"}
-test zlib-7.0 {zlib stream} -returnCodes error -setup {
+test zlib-7.0 {zlib stream} -constraints zlib -returnCodes error -setup {
set s [zlib stream compress]
} -body {
$s ?
} -cleanup {
$s close
} -result {bad option "?": must be add, adler32, close, eof, finalize, flush, fullflush, get, put, or reset}
-test zlib-7.1 {zlib stream} {
+test zlib-7.1 {zlib stream} zlib {
set s [zlib stream compress]
$s put -finalize abcdeEDCBA
set data [$s get]
@@ -76,7 +78,7 @@ test zlib-7.1 {zlib stream} {
$s close
lappend result [zlib decompress $data]
} {{} 136f033f abcdeEDCBA}
-test zlib-7.2 {zlib stream} {
+test zlib-7.2 {zlib stream} zlib {
set s [zlib stream decompress]
$s put -finalize [zlib compress abcdeEDCBA]
set data [$s get]
@@ -84,7 +86,7 @@ test zlib-7.2 {zlib stream} {
$s close
lappend result $data
} {{} 136f033f abcdeEDCBA}
-test zlib-7.3 {zlib stream} {
+test zlib-7.3 {zlib stream} zlib {
set s [zlib stream deflate]
$s put -finalize abcdeEDCBA
set data [$s get]
@@ -92,7 +94,7 @@ test zlib-7.3 {zlib stream} {
$s close
lappend result [zlib inflate $data]
} {{} 1 abcdeEDCBA}
-test zlib-7.4 {zlib stream} {
+test zlib-7.4 {zlib stream} zlib {
set s [zlib stream inflate]
$s put -finalize [zlib deflate abcdeEDCBA]
set data [$s get]