Import SQLite 3.7.6.3.

third_party/sqlite/src/test/pragma.test

 # 2002 March 6
 #
 # 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.
 #
 # This file implements tests for the PRAGMA command.
 #
 # $Id: pragma.test,v 1.73 2009/01/12 14:01:45 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+# Do not use a codec for tests in this file, as the database file is
+# manipulated directly using tcl scripts (using the [hexio_write] command).
+#
+do_not_use_codec
+
 # Test organization:
 #
 # pragma-1.*: Test cache_size, default_cache_size and synchronous on main db.
 # pragma-2.*: Test synchronous on attached db.
 # pragma-3.*: Test detection of table/index inconsistency by integrity_check.
 # pragma-4.*: Test cache_size and default_cache_size on attached db.
 # pragma-5.*: Test that pragma synchronous may not be used inside of a
 #             transaction.
 # pragma-6.*: Test schema-query pragmas.
 # pragma-7.*: Miscellaneous tests.
@@ skipping 280 matching lines @@
       file delete -force testerr.db testerr.db-journal
       set out [open testerr.db w]
       fconfigure $out -translation binary
       set in [open test.db r]
       fconfigure $in -translation binary
       puts -nonewline $out [read $in]
       seek $in 0
       puts -nonewline $out [read $in]
       close $in
       close $out
+      hexio_write testerr.db 28 00000000
       execsql {REINDEX t2}
       execsql {PRAGMA integrity_check}
     } {ok}
     do_test pragma-3.8.1 {
       execsql {PRAGMA quick_check}
     } {ok}
     do_test pragma-3.9 {
       execsql {
         ATTACH 'testerr.db' AS t2;
         PRAGMA integrity_check
@@ skipping 196 matching lines @@
     PRAGMA table_info(t5);
   }
 } {0 a TEXT 0 CURRENT_TIMESTAMP 0 1 b {} 0 5+3 0 2 c TEXT 0 <<NULL>> 0 3 d INTEGER 0 NULL 0 4 e TEXT 0 '' 0}
 db nullvalue {}
 ifcapable {foreignkey} {
   do_test pragma-6.3.1 {
     execsql {
       CREATE TABLE t3(a int references t2(b), b UNIQUE);
       pragma foreign_key_list(t3);
     }
-  } {0 0 t2 a b RESTRICT RESTRICT NONE}
+  } {0 0 t2 a b {NO ACTION} {NO ACTION} NONE}
   do_test pragma-6.3.2 {
     execsql {
       pragma foreign_key_list;
     }
   } {}
   do_test pragma-6.3.3 {
     execsql {
       pragma foreign_key_list(t3_bogus);
     }
   } {}
@@ skipping 80 matching lines @@
     pragma index_list(t3);
   }
 } {0 t3i1 0 1 sqlite_autoindex_t3_1 1}
 do_test pragma-7.1.2 {
   execsql {
     pragma index_list(t3_bogus);
   }
 } {}
 } ;# ifcapable schema_pragmas
 ifcapable {utf16} {
-  do_test pragma-7.2 {
-    db close
-    sqlite3 db test.db
-    catchsql {
-      pragma encoding=bogus;
-    }
-  } {1 {unsupported encoding: bogus}}
+  if {[permutation] == ""} {
+    do_test pragma-7.2 {
+      db close
+      sqlite3 db test.db
+      catchsql {
+        pragma encoding=bogus;
+      }
+    } {1 {unsupported encoding: bogus}}
+  }
 }
 ifcapable tempdb {
   do_test pragma-7.3 {
     db close
     sqlite3 db test.db
     execsql {
       pragma lock_status;
     }
   } {main unlocked temp closed}
 } else {
@@ skipping 710 matching lines @@
     sqlite3 db2 test2.db
     set lockpath [execsql {
       PRAGMA lock_proxy_file=":auto:";
       PRAGMA lock_proxy_file;
     } db2]
     string match "*test2.db:auto:" $lockpath
   } {1}
   
   set sqlite_hostid_num 2
   do_test pragma-16.7 {
-    sqlite3 db test2.db
-    execsql {
-      PRAGMA lock_proxy_file=":auto:";
-    } 
-    catchsql {
-      select * from sqlite_master;
-    }
+    list [catch {
+      sqlite3 db test2.db
+      execsql { 
+        PRAGMA lock_proxy_file=":auto:";
+        select * from sqlite_master;
+      }
+    } msg] $msg
   } {1 {database is locked}}
   db close
   
   do_test pragma-16.8 {
-    sqlite3 db test2.db
-    catchsql {
-      select * from sqlite_master;
-    } 
+    list [catch {
+      sqlite3 db test2.db
+      execsql { select * from sqlite_master } 
+    } msg] $msg
   } {1 {database is locked}}
 
   db2 close
   do_test pragma-16.8.1 {
     execsql {
       PRAGMA lock_proxy_file="yetanotherproxy";
       PRAGMA lock_proxy_file;
     } 
   } {yetanotherproxy}
   do_test pragma-16.8.2 {
@@ skipping 64 matching lines @@
     sqlite3 db :memory:
     execsql "
       PRAGMA temp_store=$::temp_setting;
       PRAGMA temp_store=$::temp_setting;
       PRAGMA temp_store;
     "
   } $val
 }
 
 finish_test