diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-10-04 13:53:59 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-10-04 13:53:59 (GMT) |
| commit | aabe9cb3ab1a8cda4350da087a5a9b40f99d1551 (patch) | |
| tree | a2a255b65098385c2ba60f279537063d489e2028 | |
| parent | 687879b233e26f54338f0d4146e35b661174ca75 (diff) | |
| download | tcl-aabe9cb3ab1a8cda4350da087a5a9b40f99d1551.zip tcl-aabe9cb3ab1a8cda4350da087a5a9b40f99d1551.tar.gz tcl-aabe9cb3ab1a8cda4350da087a5a9b40f99d1551.tar.bz2 | |
test suite hygiene
| -rw-r--r-- | tests/zipfs.test | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 046e3b5..17dcc78 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -1521,33 +1521,37 @@ namespace eval test_ns_zipfs { test zipfs-file-copy-tozip-new {Copy native file to archive} -setup { mount [zippath test.zip] } -cleanup { + removeFile $_ cleanup } -body { - file copy [makeFile "" source.tmp] [file join $defMountPt X] + file copy [set _ [makeFile "" source.tmp]] [file join $defMountPt X] } -result "error copying \"*source.tmp\" to \"[file join $defMountPt X]\": operation not supported" \ -match glob -returnCodes error test zipfs-file-copy-tozip-existing {Copy native file to archive} -setup { mount [zippath test.zip] } -cleanup { + removeFile $_ cleanup } -body { - file copy [makeFile "newtext" source.tmp] [file join $defMountPt test] + file copy [set _ [makeFile "newtext" source.tmp]] [file join $defMountPt test] } -result "error copying *: file exists" -match glob -returnCodes error test zipfs-file-copy-tozip-existing-force {Copy native file to archive} -setup { mount [zippath test.zip] } -cleanup { + removeFile $_ cleanup } -body { set to [file join $defMountPt test] - file copy -force [makeFile "newtext" source.tmp] $to + file copy -force [set _ [makeFile "newtext" source.tmp]] $to readbin $to } -result "newtext\n" test zipfs-file-copy-tozipdir {Copy native file to archive directory} -setup { mount [zippath test.zip] } -cleanup { + removeFile $_ cleanup } -body { - file copy [makeFile "" source.tmp] [file join $defMountPt testdir] + file copy [set _ [makeFile "" source.tmp]] [file join $defMountPt testdir] } -result "error copying \"*source.tmp\" to \"[file join $defMountPt testdir]/source.tmp\": operation not supported" \ -match glob -returnCodes error test zipfs-file-copydir-tozipdir {Copy native dir to archive directory} -setup { @@ -1768,7 +1772,7 @@ namespace eval test_ns_zipfs { testzipfsenotsup mtime-set-mount [list mtime $targetMount $t] testzipfsenotsup mtime-set-mezzo [list mtime $targetMountParent $t] testzipfsenotsup mtime-set-root [list mtime [zipfs root] $t] - testzipfsfile mtime-set-enoent [list mtime $targetEnoent $t] \ + testzipfsfile mtime-set-enoent-1 [list mtime $targetEnoent $t] \ "could not read \"$targetEnoent\": no such file or directory" -returnCodes error # |