diff options
author | dgp <dgp@users.sourceforge.net> | 2021-03-22 22:27:36 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2021-03-22 22:27:36 (GMT) |
commit | efe9cf9a790e61bda8164340c3eddfa8ae36b054 (patch) | |
tree | 059f73fe5bf993184fcdb367b2525dbc418e6497 /tests/zipfs.test | |
parent | 071a9a5e35238f5466dcdccedfad74e8b656af28 (diff) | |
parent | c54fe6f39bb6b7556dfc9d574929aa1976346b2a (diff) | |
download | tcl-efe9cf9a790e61bda8164340c3eddfa8ae36b054.zip tcl-efe9cf9a790e61bda8164340c3eddfa8ae36b054.tar.gz tcl-efe9cf9a790e61bda8164340c3eddfa8ae36b054.tar.bz2 |
merge trunk
Diffstat (limited to 'tests/zipfs.test')
-rw-r--r-- | tests/zipfs.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index eba2a1e..40655b4 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -396,6 +396,11 @@ test zipfs-5.3 {zipfs mount_data: short data} -constraints zipfs -body { test zipfs-5.4 {zipfs mount_data: bad arg count} -constraints zipfs -body { zipfs mount_data gorp {} foobar } -returnCodes error -result {wrong # args: should be "zipfs mount_data ?mountpoint? ?data?"} + +test zipfs-6.1 {zipfs mkkey} -constraints zipfs -body { + binary scan [zipfs mkkey gorp] cu* x + return $x +} -result {224 226 111 103 4 80 75 90 90} ::tcltest::cleanupTests return |