Added constraints

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]