Exchange TclZipfs_MountBuffer/"zipfs mount_data" arguments as well

1 files changed, 6 insertions, 6 deletions

diff --git a/tests/zipfs.test b/tests/zipfs.test
index 55f430c..99e1cdc 100644
--- a/tests/zipfs.test
+++ b/tests/zipfs.test
@@ -186,7 +186,7 @@ test zipfs-2.8 {zipfs mkzip} -constraints zipfs -body {
     fconfigure $fin -translation binary
     set dat [read $fin]
     close $fin
-    zipfs mount_data def $dat
+    zipfs mount_data $dat def
     zipfs list -glob ${ziproot}def/cp850.*
 } -cleanup {
     cd $CWD
@@ -382,20 +382,20 @@ test zipfs-4.5 {zipfs lmkimg: making image from mounted} -constraints zipfs -set
 } -result {/zipfs://ziptest/test/add.tcl /zipfs://ziptest/test/ok.tcl}
 
 test zipfs-5.1 {zipfs mount_data: short data} -constraints zipfs -body {
-    zipfs mount_data gorp {}
+    zipfs mount_data {} gorp
 } -returnCodes error -result {bad zip data}
 test zipfs-5.2 {zipfs mount_data: short data} -constraints zipfs -body {
-    zipfs mount_data gorp gorpGORPgorp
+    zipfs mount_data gorpGORPgorp gorp
 } -returnCodes error -result {bad zip data}
 test zipfs-5.3 {zipfs mount_data: short data} -constraints zipfs -body {
     set data PK\x03\x04.....................................
     append data PK\x01\x02.....................................
     append data PK\x05\x06.....................................
-    zipfs mount_data gorp $data
+    zipfs mount_data $data gorp
 } -returnCodes error -result {bad zip data}
 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?"}
+    zipfs mount_data {} gorp foobar
+} -returnCodes error -result {wrong # args: should be "zipfs mount_data ?data? ?mountpoint?"}
 
 test zipfs-6.1 {zipfs mkkey} -constraints zipfs -body {
     binary scan [zipfs mkkey gorp] cu* x