Import SQLite 3.7.6.3.

third_party/sqlite/src/test/main.test

 # 2001 September 15
 #
 # 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.  The
 # focus of this file is exercising the code in main.c.
 #
 # $Id: main.test,v 1.32 2009/04/28 04:51:29 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 # Only do the next group of tests if the sqlite3_complete API is available
 #
 ifcapable {complete} {
 
 # Tests of the sqlite_complete() function.
 #
 do_test main-1.1 {
   db complete {This is a test}
 } {0}
-do_test main-1.2 {
+do_test main-1.2.0 {
   db complete {
   }
-} {1}
-do_test main-1.3 {
+} {0}
+do_test main-1.2.1 {
+  db complete {}
+} {0}
+do_test main-1.3.0 {
   db complete {
      -- a comment ;
   }
-} {1}
-do_test main-1.4 {
+} {0}
+do_test main-1.3.1 {
+  db complete {
+     /* a comment ; */
+  }
+} {0}
+do_test main-1.4.0 {
   db complete {
      -- a comment ;
      ;
   }
 } {1}
+do_test main-1.4.1 {
+  db complete {
+     /* a comment ; */
+     ;
+  }
+} {1}
+do_test main-1.4.2 {
+  db complete {
+     /* a comment ; */ ;
+  }
+} {1}
 do_test main-1.5 {
   db complete {DROP TABLE 'xyz;}
 } {0}
 do_test main-1.6 {
   db complete {DROP TABLE 'xyz';}
 } {1}
 do_test main-1.7 {
   db complete {DROP TABLE "xyz;}
 } {0}
 do_test main-1.8 {
@@ skipping 219 matching lines @@
     db complete "create trigger\200;"
   } {1}
   do_test main-1.102 {
     db complete "create \200trigger;"
   } {1}
 }
 
 
 # Try to open a database with a corrupt database file.
 #
-do_test main-2.0 {
-  catch {db close}
-  file delete -force test.db
-  set fd [open test.db w]
-  puts $fd hi!
-  close $fd
-  set v [catch {sqlite3 db test.db} msg]
-  if {$v} {lappend v $msg} {lappend v {}}
-} {0 {}}
+if {[permutation] == ""} {
+  do_test main-2.0 {
+    catch {db close}
+    file delete -force test.db
+    set fd [open test.db w]
+    puts $fd hi!
+    close $fd
+    set v [catch {sqlite3 db test.db} msg]
+    if {$v} {lappend v $msg} {lappend v {}}
+  } {0 {}}
+}
 
 # Here are some tests for tokenize.c.  
 #
 do_test main-3.1 {
   catch {db close}
   foreach f [glob -nocomplain testdb/*] {file delete -force $f}
   file delete -force testdb
   sqlite3 db testdb
   set v [catch {execsql {SELECT * from T1 where x!!5}} msg]
   lappend v $msg
@@ skipping 187 matching lines @@
       list $rc $msg
     } {1 {no such vfs: crash}}
     do_test main-4.3 {
       set rc [catch {sqlite3 db test.db -vfs async} msg]
       list $rc $msg
     } {1 {no such vfs: async}}
   }
 }
     
 finish_test