diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 15:52:50 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 15:52:50 (GMT) |
| commit | cd98a34be730b3e05aab6ef116705d73bdacb00e (patch) | |
| tree | 16dfb965ab45d637fe0833427fa13b5290e4223c /tests/zipfs.test | |
| parent | 5a3fed566177b092e6c88e0cf43e202697ac9f8a (diff) | |
| parent | ea11b48037fc6e1e390196ddeba50a7e33991f57 (diff) | |
| download | tcl-cd98a34be730b3e05aab6ef116705d73bdacb00e.zip tcl-cd98a34be730b3e05aab6ef116705d73bdacb00e.tar.gz tcl-cd98a34be730b3e05aab6ef116705d73bdacb00e.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/zipfs.test')
| -rw-r--r-- | tests/zipfs.test | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index d519cb7..03b7c53 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -1312,7 +1312,26 @@ namespace eval test_ns_zipfs { testzipfsglob mountpoint $defaultMountPoint [file join [zipfs root] *] \ [list $defaultMountPoint] {} -constraints !zipfslib - # TODO tests for compress and save, + with password + # + # file attributes + proc testzipfsfileattr [list id path result [list mountpoint $defaultMountPoint] args] { + test zipfs-file-attrs-$id "zipfs file attrs $id" -setup { + mount [zippath test.zip] $mountpoint + } -cleanup cleanup -body { + lsort -stride 2 [file attributes $path] + } -result $result {*}$args + } + testzipfsfileattr noent [file join $defaultMountPoint nosuchfile] \ + {file not found: no such file or directory} $defaultMountPoint -returnCodes error + testzipfsfileattr file [file join $defaultMountPoint test] \ + [list -archive [zippath test.zip] -compsize 5 -crc [expr 0x3BB935C6] -mount $defaultMountPoint -offset 55 -permissions 0o555 -uncompsize 5] + testzipfsfileattr dir [file join $defaultMountPoint testdir] \ + [list -archive [zippath test.zip] -compsize 0 -crc 0 -mount $defaultMountPoint -offset 119 -permissions 0o555 -uncompsize 0] + testzipfsfileattr root [zipfs root] {} {} -constraints bug-4af110a6a1 + testzipfsfileattr mountpoint $defaultMountPoint \ + [list -archive [zippath test.zip] -compsize 0 -crc 0 -mount $defaultMountPoint -offset 0 -permissions 0o555 -uncompsize 0] + testzipfsfileattr mezzo [file join $defaultMountPoint a b] {} [file join $defaultMountPoint a b c] -constraints bug-4af110a6a1 + # # TODO - file copy, file rename etc. |