diff options
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | tests/zlib.test | 104 |
2 files changed, 110 insertions, 3 deletions
@@ -1,8 +1,11 @@ +2008-12-11 Donal K. Fellows <dkf@users.sf.net> + + * tests/zlib.test: Start of test suite for zlib command. + 2008-12-11 Jan Nijtmans <nijtmans@users.sf.net> - * library/clock.tcl (ProcessPosixTimeZone): Fallback to - European time zone DST rules, when the timezone is - between 0 and -12 [Bug 2207436]. + * library/clock.tcl (ProcessPosixTimeZone): Fallback to European time + zone DST rules, when the timezone is between 0 and -12. [Bug 2207436] * tests/clock.test (clock-64.[12]): Test cases for [Bug 2207436] 2008-12-11 Donal K. Fellows <dkf@users.sf.net> diff --git a/tests/zlib.test b/tests/zlib.test new file mode 100644 index 0000000..2e66530 --- /dev/null +++ b/tests/zlib.test @@ -0,0 +1,104 @@ +# The file tests the tclZlib.c file. +# +# This file contains a collection of tests for one or more of the Tcl built-in +# commands. Sourcing this file into Tcl runs the tests and generates output +# for errors. No output means no errors were found. +# +# Copyright (c) 1996-1998 by Sun Microsystems, Inc. +# Copyright (c) 1998-1999 by Scriptics Corporation. +# +# 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.1 2008/12/11 14:13:33 dkf Exp $ + +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest 2.1 + namespace import -force ::tcltest::* +} + +test zlib-1.1 {zlib basics} -returnCodes error -body { + zlib +} -result {wrong # args: should be "zlib command arg ?...?"} +test zlib-1.2 {zlib basics} -returnCodes error -body { + zlib ? {} +} -result {bad command "?": must be adler32, compress, crc32, decompress, deflate, gunzip, gzip, inflate, stack, stream, or unstack} + +test zlib-2.1 {zlib compress/decompress} { + zlib decompress [zlib compress abcdefghijklm] +} abcdefghijklm + +test zlib-3.1 {zlib deflate/inflate} { + zlib inflate [zlib deflate abcdefghijklm] +} abcdefghijklm + +test zlib-4.1 {zlib gzip/gunzip} { + zlib gunzip [zlib gzip abcdefghijklm] +} abcdefghijklm + +test zlib-5.1 {zlib adler32} { + format %x [zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde] +} b3b50b9b +test zlib-5.2 {zlib adler32} { + format %x [zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde 42] +} b8830bc4 +test zlib-5.3 {zlib adler32} -returnCodes error -body { + zlib adler32 abcdeabcdeabcdeabcdeabcdeabcde 42 x +} -result {wrong # args: should be "zlib adler32 data ?startValue?"} + +test zlib-6.1 {zlib crc32} { + format %x [zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde] +} 6f73e901 +test zlib-6.2 {zlib crc32} { + format %x [zlib crc32 abcdeabcdeabcdeabcdeabcdeabcde 42] +} ce1c4914 +test zlib-6.3 {zlib crc32} -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 { + 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} { + set s [zlib stream compress] + $s put -finalize abcdeEDCBA + set data [$s get] + set result [list [$s get] [format %x [$s adler32]]] + $s close + lappend result [zlib decompress $data] +} {{} 136f033f abcdeEDCBA} +test zlib-7.2 {zlib stream} { + set s [zlib stream decompress] + $s put -finalize [zlib compress abcdeEDCBA] + set data [$s get] + set result [list [$s get] [format %x [$s adler32]]] + $s close + lappend result $data +} {{} 136f033f abcdeEDCBA} +test zlib-7.3 {zlib stream} { + set s [zlib stream deflate] + $s put -finalize abcdeEDCBA + set data [$s get] + set result [list [$s get] [format %x [$s adler32]]] + $s close + lappend result [zlib inflate $data] +} {{} 1 abcdeEDCBA} +test zlib-7.4 {zlib stream} { + set s [zlib stream inflate] + $s put -finalize [zlib deflate abcdeEDCBA] + set data [$s get] + set result [list [$s get] [format %x [$s adler32]]] + $s close + lappend result $data +} {{} 1 abcdeEDCBA} + +::tcltest::cleanupTests +return + +# Local Variables: +# mode: tcl +# End: |