Merge 8.7 - zipfs file attribute tests

1 files changed, 20 insertions, 1 deletions

diff --git a/tests/zipfs.test b/tests/zipfs.test
index 4dbacc6..1073141 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -1317,7 +1317,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.