Import SQLite 3.8.7.4.

third_party/sqlite/src/test/ioerr.test

 # 2001 October 12
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
@@ skipping 165 matching lines @@
   do_ioerr_test ioerr-7 -tclprep {
     db close
     sqlite3 db2 test2.db
     db2 eval {
       PRAGMA synchronous = 0;
       CREATE TABLE t1(a, b);
       INSERT INTO t1 VALUES(1, 2);
       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
     db eval {
       SELECT * FROM t1;
     }
   } -exclude 1
 }
 
 # For test coverage:  Cause an I/O failure while trying to read a
@@ skipping 14 matching lines @@
 # For test coverage: Cause an IO error whilst reading the master-journal
 # name from a journal file.
 if {$tcl_platform(platform)=="unix"} {
   do_ioerr_test ioerr-9 -ckrefcount true -tclprep {
     execsql {
       CREATE TABLE t1(a,b,c);
       INSERT INTO t1 VALUES(randstr(200,200), randstr(1000,1000), 2);
       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"
     puts -nonewline $f "\x00\x00\x00\x05\x01\x02\x03\x04"
     puts -nonewline $f "\xd9\xd5\x05\xf9\x20\xa1\x63\xd7"
     close $f
   } -sqlbody {
     SELECT a FROM t1;
   }
 }
@@ skipping 14 matching lines @@
 } -tclbody {
 
   catch {execsql {
     BEGIN;
     INSERT INTO t1 VALUES('abc', 123);
     INSERT INTO t1 VALUES('def', 123);
     INSERT INTO t1 VALUES('ghi', 123);
     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
   }
 }
 
 # Assertion fault bug reported by alex dimitrov.
 #
 do_ioerr_test ioerr-11 -ckrefcount true -erc 1 -sqlprep {
    CREATE TABLE A(Id INTEGER, Name TEXT);
    INSERT INTO A(Id, Name) VALUES(1, 'Name');
 } -sqlbody {
@@ skipping 184 matching lines @@
     PRAGMA cache_size = 10;
     BEGIN;
     DELETE FROM t1 WHERE rowid IN (10,11,12) ;
   } -sqlbody {
     PRAGMA incremental_vacuum(10);
     COMMIT;
   }
 }
 
 finish_test