Index: third_party/sqlite/src/test/ioerr4.test |
diff --git a/third_party/sqlite/src/test/ioerr4.test b/third_party/sqlite/src/test/ioerr4.test |
index 3a74a88ae3c4a96843863036014ff2e4b275564c..defa32686878d932a790b4cc945661dcfde5cc05 100644 |
--- a/third_party/sqlite/src/test/ioerr4.test |
+++ b/third_party/sqlite/src/test/ioerr4.test |
@@ -31,7 +31,7 @@ do_test ioerr4-1.1 { |
set ::enable_shared_cache [sqlite3_enable_shared_cache 1] |
} {0} |
do_test ioerr4-1.2 { |
- file delete -force test.db test.db-journal |
+ forcedelete test.db test.db-journal |
sqlite3 db test.db |
sqlite3 db2 test.db |
db eval { |
@@ -79,12 +79,12 @@ do_test ioerr4-1.6 { |
# |
db close |
db2 close |
-file copy -force test.db test.db-bu |
+forcecopy test.db test.db-bu |
do_ioerr_test ioerr4-2 -tclprep { |
catch {db2 close} |
db close |
- file delete -force test.db test.db-journal |
- file copy -force test.db-bu test.db |
+ forcedelete test.db test.db-journal |
+ forcecopy test.db-bu test.db |
sqlite3_enable_shared_cache 1 |
set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db] |
db eval {PRAGMA auto_vacuum=INCREMENTAL} |
@@ -94,7 +94,7 @@ do_ioerr_test ioerr4-2 -tclprep { |
} |
db2 close |
-file delete -force test.db-bu |
+forcedelete test.db-bu |
sqlite3_enable_shared_cache $::enable_shared_cache |
finish_test |