Index: third_party/sqlite/src/test/walthread.test |
diff --git a/third_party/sqlite/src/test/walthread.test b/third_party/sqlite/src/test/walthread.test |
index 9817c0e0f5d63419b6feca938f0af9b4aaed3a80..6249ce11af09cd131813283d5ab12e6a83f08bdd 100644 |
--- a/third_party/sqlite/src/test/walthread.test |
+++ b/third_party/sqlite/src/test/walthread.test |
@@ -129,7 +129,7 @@ proc do_thread_test {args} { |
puts "Running $P(testname) for $P(seconds) seconds..." |
catch { db close } |
- file delete -force test.db test.db-journal test.db-wal |
+ forcedelete test.db test.db-journal test.db-wal |
sqlite3 db test.db |
eval $P(init) |
@@ -277,8 +277,8 @@ do_thread_test2 walthread-1 -seconds $seconds(walthread-1) -init { |
proc write_transaction {} { |
db eval { |
BEGIN; |
- INSERT INTO t1 VALUES(randomblob(100)); |
- INSERT INTO t1 VALUES(randomblob(100)); |
+ INSERT INTO t1 VALUES(randomblob(101 + $::E(pid))); |
+ INSERT INTO t1 VALUES(randomblob(101 + $::E(pid))); |
INSERT INTO t1 SELECT md5sum(x) FROM t1; |
COMMIT; |
} |
@@ -508,12 +508,12 @@ do_thread_test walthread-5 -seconds $seconds(walthread-5) -init { |
COMMIT; |
} |
- file copy -force test.db-wal bak.db-wal |
- file copy -force test.db bak.db |
+ forcecopy test.db-wal bak.db-wal |
+ forcecopy test.db bak.db |
db close |
- file copy -force bak.db-wal test.db-wal |
- file copy -force bak.db test.db |
+ forcecopy bak.db-wal test.db-wal |
+ forcecopy bak.db test.db |
if {[file size test.db-wal] < [log_file_size [expr 64*1024] 1024]} { |
error "Somehow failed to create a large log file" |