diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-03-28 09:13:06 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-03-28 09:14:53 +1000 |
commit | 0530f14b95d10866137dd42b709d8401c50b7878 (patch) | |
tree | 84f31bae64e23bd0a32db4a7b0041555d26bcc6c /tests | |
parent | 62a0e4db89bb9c5cc022ca4272aa0ea64af51b99 (diff) | |
download | jimtcl-0530f14b95d10866137dd42b709d8401c50b7878.zip jimtcl-0530f14b95d10866137dd42b709d8401c50b7878.tar.gz jimtcl-0530f14b95d10866137dd42b709d8401c50b7878.tar.bz2 |
zlib: Update zlib.test to use needs, testreport
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/zlib.test | 57 |
1 files changed, 30 insertions, 27 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index e448ba1..3153ab7 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -11,109 +11,112 @@ # this file, and for a DISCLAIMER OF ALL WARRANTIES. source [file dirname [info script]]/testing.tcl +source [file dirname [info script]]/testing.tcl -testConstraint zlib [llength [info commands zlib]] +needs cmd zlib -test zlib-1.1 {zlib deflate usage 1} -constraints zlib -returnCodes error -body { +test zlib-1.1 {zlib deflate usage 1} -returnCodes error -body { zlib deflate } -result {wrong # args: should be "zlib deflate string ?level?"} -test zlib-1.2 {zlib deflate usage 2} -constraints zlib -returnCodes error -body { +test zlib-1.2 {zlib deflate usage 2} -returnCodes error -body { zlib deflate a b } -result {expected integer but got "b"} -test zlib-1.3 {zlib deflate usage 3} -constraints zlib -returnCodes error -body { +test zlib-1.3 {zlib deflate usage 3} -returnCodes error -body { zlib deflate a b c } -result {wrong # args: should be "zlib deflate string ?level?"} -test zlib-1.4 {zlib inflate usage 1} -constraints zlib -returnCodes error -body { +test zlib-1.4 {zlib inflate usage 1} -returnCodes error -body { zlib inflate } -result {wrong # args: should be "zlib inflate data ?bufferSize?"} -test zlib-1.5 {zlib inflate usage 2} -constraints zlib -returnCodes error -body { +test zlib-1.5 {zlib inflate usage 2} -returnCodes error -body { zlib inflate afdfdfdsfdsfsd } -result {invalid stored block lengths} -test zlib-1.6 {zlib inflate usage 3} -constraints zlib -returnCodes error -body { +test zlib-1.6 {zlib inflate usage 3} -returnCodes error -body { zlib inflate afdfdfdsfdsfsd f } -result {expected integer but got "f"} -test zlib-1.7 {zlib inflate usage 4} -constraints zlib -returnCodes error -body { +test zlib-1.7 {zlib inflate usage 4} -returnCodes error -body { zlib inflate afdfdfdsfdsfsd 0 } -result {buffer size must be 0 to 2147483647} -test zlib-2.1 {zlib deflate/inflate} zlib { +test zlib-2.1 {zlib deflate/inflate} { zlib inflate [zlib deflate abcdefghijklm] } abcdefghijklm -test zlib-2.2 {zlib deflate/inflate level and size known} zlib { +test zlib-2.2 {zlib deflate/inflate level and size known} { zlib inflate [zlib deflate abcdefghijklm 9] 13 } abcdefghijklm -test zlib-2.3 {zlib deflate/inflate bad size} -constraints zlib -returnCodes error -body { +test zlib-2.3 {zlib deflate/inflate bad size} -returnCodes error -body { zlib inflate [zlib deflate abcdefghijklm 9] 0 } -result {buffer size must be 0 to 2147483647} -test zlib-2.4 {zlib deflate/inflate wrong size} zlib { +test zlib-2.4 {zlib deflate/inflate wrong size} { zlib inflate [zlib deflate abcdefghijklm] 6 } abcdefghijklm -test zlib-3.1 {zlib gunzip usage 1} -constraints zlib -returnCodes error -body { +test zlib-3.1 {zlib gunzip usage 1} -returnCodes error -body { zlib gunzip } -result {wrong # args: should be "zlib gunzip data ?-buffersize size?"} -test zlib-3.2 {zlib gunzip usage 2} -constraints zlib -returnCodes error -body { +test zlib-3.2 {zlib gunzip usage 2} -returnCodes error -body { zlib gunzip aaa } -result {incorrect header check} -test zlib-3.3 {zlib gunzip usage 3} -constraints zlib -returnCodes error -body { +test zlib-3.3 {zlib gunzip usage 3} -returnCodes error -body { zlib gunzip aaa 4 } -result {wrong # args: should be "data ?-buffersize size?"} -test zlib-3.4 {zlib gunzip usage 4} -constraints zlib -returnCodes error -body { +test zlib-3.4 {zlib gunzip usage 4} -returnCodes error -body { zlib gunzip aaa -buffersize } -result {wrong # args: should be "data ?-buffersize size?"} -test zlib-3.5 {zlib gunzip usage 5} -constraints zlib -returnCodes error -body { +test zlib-3.5 {zlib gunzip usage 5} -returnCodes error -body { zlib gunzip aaa -buffersize a } -result {wrong # args: should be "data ?-buffersize size?"} -test zlib-3.6 {zlib gunzip usage 5} -constraints zlib -returnCodes error -body { +test zlib-3.6 {zlib gunzip usage 5} -returnCodes error -body { zlib gunzip aaa -buffersize a } -result {wrong # args: should be "data ?-buffersize size?"} -test zlib-3.7 {zlib gunzip usage 6} -constraints zlib -returnCodes error -body { +test zlib-3.7 {zlib gunzip usage 6} -returnCodes error -body { zlib gunzip aaa -buffersize 0 } -result {buffer size must be 0 to 2147483647} -test zlib-3.8 {zlib gzip usage 1} -constraints zlib -returnCodes error -body { +test zlib-3.8 {zlib gzip usage 1} -returnCodes error -body { zlib gzip } -result {wrong # args: should be "zlib gzip data ?-level level?"} -test zlib-3.9 {zlib gzip usage 2} -constraints zlib -returnCodes error -body { +test zlib-3.9 {zlib gzip usage 2} -returnCodes error -body { zlib gzip aa 9 } -result {wrong # args: should be "data ?-level level?"} -test zlib-3.10 {zlib gzip usage 3} -constraints zlib -returnCodes error -body { +test zlib-3.10 {zlib gzip usage 3} -returnCodes error -body { zlib gzip -level a } -result {wrong # args: should be "data ?-level level?"} -test zlib-3.11 {zlib gzip usage 4} -constraints zlib -returnCodes error -body { +test zlib-3.11 {zlib gzip usage 4} -returnCodes error -body { zlib gzip -level 9 a } -result {wrong # args: should be "data ?-level level?"} -test zlib-4.1 {zlib gzip/gunzip} zlib { +test zlib-4.1 {zlib gzip/gunzip} { zlib gunzip [zlib gzip abcdefghijklm] } abcdefghijklm -test zlib-4.2 {zlib gzip/gunzip level and chunk size} zlib { +test zlib-4.2 {zlib gzip/gunzip level and chunk size} { zlib gunzip [zlib gzip abcdefghijklm -level 9] -buffersize 128 } abcdefghijklm -test zlib-5.1 {zlib crc32} zlib { +test zlib-5.1 {zlib crc32} { format %x [expr {[zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde] & 0xffffffff}] } 6f73e901 -test zlib-5.2 {zlib crc32} zlib { +test zlib-5.2 {zlib crc32} { format %x [expr {[zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde 42] & 0xffffffff}] } ce1c4914 + +testreport |