Import SQLite 3.8.7.4.

third_party/sqlite/src/test/misc7.test

 # 2006 September 4
 #
 # 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.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
 # $Id: misc7.test,v 1.29 2009/07/16 18:21:18 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-do_test misc7-1-misuse {
-  c_misuse_test
-} {}
+if {[clang_sanitize_address]==0} {
+  do_test misc7-1-misuse {
+    c_misuse_test
+  } {}
+}
 
 do_test misc7-2 {
   c_realloc_test
 } {}
 
 do_test misc7-3 {
   c_collation_test
 } {}
 
 # Try to open a directory:
 #
 do_test misc7-4 {
-  file delete mydir
+  delete_file mydir
   file mkdir mydir
   set rc [catch {
     sqlite3 db2 ./mydir
   } msg]
   list $rc $msg
 } {1 {unable to open database file}}
 
 # Try to open a file with a directory where its journal file should be.
 #
 do_test misc7-5 {
-  file delete mydir
+  delete_file mydir
   file mkdir mydir-journal
   sqlite3 db2 ./mydir
   catchsql {
     CREATE TABLE abc(a, b, c);
   } db2
 } {1 {unable to open database file}}
 db2 close
 
 #--------------------------------------------------------------------
 # The following tests, misc7-6.* test the libraries behaviour when
@@ skipping 89 matching lines @@
   }]
   set delay [lindex $tm 0]  ;# In microseconds
   lappend result [expr {$delay>1500000 && $delay<4000000}]
 } {1 {database is locked} 1}
 db2 close
 
 #--------------------------------------------------------------------
 # Test that nothing goes horribly wrong when attaching a database
 # after the omit_readlock pragma has been exercised.
 #
+# Note:  The PRAGMA omit_readlock was an early hack to disable the
+# fcntl() calls for read-only databases so that read-only databases could
+# be read on broken NFS systems.  That pragma has now been removed.
+# (Use the unix-none VFS as a replacement, if needed.)  But these tests
+# do not really depend on omit_readlock, so we left them in place.
+#
 do_test misc7-7.1 {
-  file delete -force test2.db
-  file delete -force test2.db-journal
+  forcedelete test2.db
+  forcedelete test2.db-journal
   execsql {
     PRAGMA omit_readlock = 1;
     ATTACH 'test2.db' AS aux;
     CREATE TABLE aux.hello(world);
     SELECT name FROM aux.sqlite_master;
   }
 } {hello}
 do_test misc7-7.2 {
   execsql {
     DETACH aux;
@@ skipping 80 matching lines @@
   do_test misc7-13 {
     sqlite3 db test.db
     register_echo_module [sqlite3_connection_pointer db]
     set ::echo_module_cost 2.0e+99
     execsql {SELECT * FROM t1 WHERE a = 1;}
   } {1 2 3}
   unset ::echo_module_cost
 }
 
 db close
-file delete -force test.db
-file delete -force test.db-journal
+forcedelete test.db
+forcedelete test.db-journal
 sqlite3 db test.db
 
 ifcapable explain {
   do_execsql_test misc7-14.1 {
     CREATE TABLE abc(a PRIMARY KEY, b, c);
     EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE rowid = 1;
   } {
-    0 0 0 {SEARCH TABLE abc AS t2 USING INTEGER PRIMARY KEY (rowid=?) (~1 rows)}
+    0 0 0 {SEARCH TABLE abc AS t2 USING INTEGER PRIMARY KEY (rowid=?)}
   }
   do_execsql_test misc7-14.2 {
     EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE a = 1;
   } {0 0 0 
-     {SEARCH TABLE abc AS t2 USING INDEX sqlite_autoindex_abc_1 (a=?) (~1 rows)}
+     {SEARCH TABLE abc AS t2 USING INDEX sqlite_autoindex_abc_1 (a=?)}
   }
   do_execsql_test misc7-14.3 {
     EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 ORDER BY a;
   } {0 0 0 
-     {SCAN TABLE abc AS t2 USING INDEX sqlite_autoindex_abc_1 (~1000000 rows)}
+     {SCAN TABLE abc AS t2 USING INDEX sqlite_autoindex_abc_1}
   }
 }
 
 db close
-file delete -force test.db
-file delete -force test.db-journal
+forcedelete test.db
+forcedelete test.db-journal
 sqlite3 db test.db
 
 #--------------------------------------------------------------------
 # This is all to force the pager_remove_from_stmt_list() function
 # (inside pager.c) to remove a pager from the middle of the
 # statement-list.
 #
 do_test misc7-15.1 {
   execsql {
     PRAGMA cache_size = 10;
@@ skipping 23 matching lines @@
 } {1}
 do_test misc7-15.2 {
   execsql {
     DELETE FROM abc WHERE rowid > 12;
     INSERT INTO abc SELECT 
             randstr(100,100), randstr(100,100), randstr(100,100) FROM abc;
   }
 } {}
 
 db close
-file delete -force test.db
-file delete -force test.db-journal
+forcedelete test.db
+forcedelete test.db-journal
 sqlite3 db test.db
 
 do_ioerr_test misc7-16 -sqlprep {
    PRAGMA cache_size = 10;
    PRAGMA default_cache_size = 10;
    CREATE TABLE t3(a, b, UNIQUE(a, b));
    INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
    INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
    INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
    INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
    INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
    INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;
    UPDATE t3 
    SET b = 'hello world'
    WHERE rowid >= (SELECT max(rowid)-1 FROM t3);
 } -tclbody {
   set rc [catch {db eval {
     BEGIN;
       PRAGMA cache_size = 10;
       INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );
       UPDATE t3 SET a = b;
     COMMIT;
   }} msg]
 
-  if {!$rc || ($rc && [string first "columns" $msg]==0)} {
+  if {!$rc || ($rc && [string first "UNIQUE" $msg]==0)} {
     set msg
   } else {
     error $msg
   }
 }
 
 sqlite3 db test.db
 
 do_test misc7-16.X {
   execsql {
     SELECT count(*) FROM t3;
   }
 } {32}
 
 #----------------------------------------------------------------------
 # Test the situation where a hot-journal is discovered but write-access
 # to it is denied. This should return SQLITE_BUSY.
 #
 # These tests do not work on windows due to restrictions in the
 # windows file system.
 #
-if {$tcl_platform(platform)!="windows" && $tcl_platform(platform)!="os2"} {
+if {$tcl_platform(platform)!="windows"} {
 
   # Some network filesystems (ex: AFP) do not support setting read-only
   # permissions.  Only run these tests if full unix permission setting
   # capabilities are supported.
   #
   file attributes test.db -permissions rw-r--r--
   if {[file attributes test.db -permissions]==0644} {
 
     do_test misc7-17.1 {
       execsql {
         BEGIN;
         DELETE FROM t3 WHERE (oid%3)==0;
       }
-      copy_file test.db bak.db
-      copy_file test.db-journal bak.db-journal
+      forcecopy test.db bak.db
+      forcecopy test.db-journal bak.db-journal
       execsql {
         COMMIT;
       }
     
       db close
-      copy_file bak.db test.db
-      copy_file bak.db-journal test.db-journal
+      forcecopy bak.db test.db
+      forcecopy bak.db-journal test.db-journal
       sqlite3 db test.db
     
       catch {file attributes test.db-journal -permissions r--------}
       catch {file attributes test.db-journal -readonly 1}
       catchsql {
         SELECT count(*) FROM t3;
       }
     } {1 {unable to open database file}}
     do_test misc7-17.2 {
       # Note that the -readonly flag must be cleared before the -permissions
@@ skipping 63 matching lines @@
 # sqlite3_global_recover() is a no-op.  But we might as well test it
 # if only to get the test coverage.
 #
 do_test misc7-20.1 {
   sqlite3_global_recover
 } {SQLITE_OK}
 
 # Try to open a really long file name.
 #
 do_test misc7-21.1 {
-  set zFile [file join [pwd] "[string repeat abcde 104].db"]
+  set zFile [file join [get_pwd] "[string repeat abcde 104].db"]
   set rc [catch {sqlite3 db2 $zFile} msg]
   list $rc $msg
 } {1 {unable to open database file}}
 
+# Try to do hot-journal rollback with a read-only connection. The 
+# error code should be SQLITE_READONLY_ROLLBACK.
+#
+do_test misc7-22.1 {
+  db close
+  forcedelete test.db copy.db-journal
+  sqlite3 db test.db
+  execsql {
+    CREATE TABLE t1(a, b);
+    INSERT INTO t1 VALUES(1, 2);
+    INSERT INTO t1 VALUES(3, 4);
+  }
+  db close
+  sqlite3 db test.db -readonly 1
+  catchsql {
+    INSERT INTO t1 VALUES(5, 6);
+  }
+} {1 {attempt to write a readonly database}}
+do_test misc7-22.2 { execsql { SELECT * FROM t1 } } {1 2 3 4}
+do_test misc7-22.3 { 
+  set fd [open test.db-journal w]
+  puts $fd [string repeat abc 1000]
+  close $fd
+  catchsql { SELECT * FROM t1 }
+} {1 {attempt to write a readonly database}}
+do_test misc7-22.4 { 
+  sqlite3_extended_errcode db
+} SQLITE_READONLY_ROLLBACK
 
 db close
-file delete -force test.db
+forcedelete test.db
 
 finish_test