Index: third_party/sqlite/src/test/ioerr.test |
diff --git a/third_party/sqlite/src/test/ioerr.test b/third_party/sqlite/src/test/ioerr.test |
index f9b95555cadc5640c1198ecc37af6bb70fe0ec67..e59647fe5013af5bb594ef2120b0b666dae92cf1 100644 |
--- a/third_party/sqlite/src/test/ioerr.test |
+++ b/third_party/sqlite/src/test/ioerr.test |
@@ -183,8 +183,8 @@ if {$tcl_platform(platform)!="windows"} { |
BEGIN; |
INSERT INTO t1 VALUES(3, 4); |
} |
- copy_file test2.db test.db |
- copy_file test2.db-journal test.db-journal |
+ forcecopy test2.db test.db |
+ forcecopy test2.db-journal test.db-journal |
db2 close |
} -tclbody { |
sqlite3 db test.db |
@@ -219,11 +219,11 @@ if {$tcl_platform(platform)=="unix"} { |
BEGIN; |
INSERT INTO t1 VALUES(randstr(200,200), randstr(1000,1000), 2); |
} |
- copy_file test.db-journal test2.db-journal |
+ forcecopy test.db-journal test2.db-journal |
execsql { |
COMMIT; |
} |
- copy_file test2.db-journal test.db-journal |
+ forcecopy test2.db-journal test.db-journal |
set f [open test.db-journal a] |
fconfigure $f -encoding binary |
puts -nonewline $f "hello" |
@@ -258,7 +258,7 @@ do_ioerr_test ioerr-10 -ckrefcount true -tclprep { |
INSERT INTO t1 SELECT (a+500)%900, 'good string' FROM t1; |
}} msg |
- if {$msg != "column a is not unique"} { |
+ if {$msg != "UNIQUE constraint failed: t1.a"} { |
error $msg |
} |
} |