diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-16 20:45:39 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2021-03-16 20:45:39 (GMT) |
| commit | 90040e057364edd61cc2c470ec1df31f1f4d8e6a (patch) | |
| tree | 0901eed54e5fe51cebdef6b7bfd81fa797a7921b /tests/zipfs.test | |
| parent | 0013597b33c5df5a4239d2fc042d9eeb597e94e0 (diff) | |
| download | tcl-90040e057364edd61cc2c470ec1df31f1f4d8e6a.zip tcl-90040e057364edd61cc2c470ec1df31f1f4d8e6a.tar.gz tcl-90040e057364edd61cc2c470ec1df31f1f4d8e6a.tar.bz2 | |
More cleaning up of zipfs
Don't put straight binary data in a Tcl string, and other better API uses.
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 |