diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-08 11:46:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-08 11:46:16 (GMT) |
| commit | e08dd23e245fbedf6bb7d7da5472c2085f3c9b87 (patch) | |
| tree | 822f5246d79928589996b42afd02d927d5795cd1 | |
| parent | 67943d16d92273e936a78a501c5c8bd39214dca7 (diff) | |
| download | tcl-e08dd23e245fbedf6bb7d7da5472c2085f3c9b87.zip tcl-e08dd23e245fbedf6bb7d7da5472c2085f3c9b87.tar.gz tcl-e08dd23e245fbedf6bb7d7da5472c2085f3c9b87.tar.bz2 | |
Testcase improvements
| -rw-r--r-- | tests/zipfs.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index 202d104..ba1a627 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -280,7 +280,7 @@ test zipfs-4.1 {zipfs lmkimg} -constraints zipfs -setup { zipfs lmkimg $targetImage [list $addFile test/add.tcl] {} $baseImage zipfs mount $targetImage ziptest try { - list [source $targetImage] [source //zipfs:/ziptest/test/add.tcl] + list [source $targetImage] [source ${ziproot}ziptest/test/add.tcl] } finally { zipfs unmount ziptest } @@ -300,7 +300,7 @@ test zipfs-4.2 {zipfs lmkimg: making an image from an image} -constraints zipfs zipfs lmkimg $targetImage [list $addFile test/ok.tcl] {} $midImage zipfs mount $targetImage ziptest try { - list [glob -tails -directory //zipfs://ziptest/test *.tcl] \ + list [glob -tails -directory ${ziproot}/ziptest/test *.tcl] \ [if {[file size $midImage] == [file size $targetImage]} { string cat equal } else { @@ -327,7 +327,7 @@ test zipfs-4.3 {zipfs lmkimg: stripping password} -constraints zipfs -setup { zipfs lmkimg $targetImage [list $addFile test/ok.tcl] {} $midImage zipfs mount $targetImage ziptest try { - glob -tails -directory //zipfs://ziptest/test *.tcl + glob -tails -directory ${ziproot}/ziptest/test *.tcl } finally { zipfs unmount ziptest } @@ -349,7 +349,7 @@ test zipfs-4.4 {zipfs lmkimg: final password} -constraints zipfs -setup { zipfs lmkimg $targetImage [list $addFile test/ok.tcl] $pass $midImage zipfs mount $targetImage ziptest try { - glob -tails -directory //zipfs://ziptest/test *.tcl + glob -tails -directory ${ziproot}/ziptest/test *.tcl } finally { zipfs unmount ziptest } @@ -368,18 +368,18 @@ test zipfs-4.5 {zipfs lmkimg: making image from mounted} -constraints zipfs -set } -body { zipfs lmkimg $midImage [list $addFile test/add.tcl] {} $baseImage zipfs mount $midImage ziptest - set f [glob -directory //zipfs://ziptest/test *.tcl] + set f [glob -directory ${ziproot}/ziptest/test *.tcl] zipfs lmkimg $targetImage [list $f test/ok.tcl] {} $midImage zipfs unmount ziptest zipfs mount $targetImage ziptest - list $f [glob -directory //zipfs://ziptest/test *.tcl] + list $f [glob -directory ${ziproot}/ziptest/test *.tcl] } -cleanup { zipfs unmount ziptest removeFile $baseImage removeFile $midImage removeFile $targetImage removeFile $addFile -} -result {//zipfs://ziptest/test/add.tcl //zipfs://ziptest/test/ok.tcl} +} -result [list ${ziproot}/ziptest/test/add.tcl ${ziproot}/ziptest/test/ok.tcl] test zipfs-5.1 {zipfs mount_data: short data} -constraints zipfs -body { zipfs mount_data {} gorp |