Import SQLite 3.8.7.4.

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.
 #
 #***********************************************************************
@@ skipping 283 matching lines @@
     db complete "create \200trigger;"
   } {1}
 }
 
 
 # Try to open a database with a corrupt database file.
 #
 if {[permutation] == ""} {
   do_test main-2.0 {
     catch {db close}
-    file delete -force test.db
+    forcedelete 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
+  foreach f [glob -nocomplain testdb/*] {forcedelete $f}
+  forcedelete testdb
   sqlite3 db testdb
   set v [catch {execsql {SELECT * from T1 where x!!5}} msg]
   lappend v $msg
 } {1 {unrecognized token: "!!"}}
 do_test main-3.2 {
   catch {db close}
-  foreach f [glob -nocomplain testdb/*] {file delete -force $f}
-  file delete -force testdb
+  foreach f [glob -nocomplain testdb/*] {forcedelete $f}
+  forcedelete testdb
   sqlite3 db testdb
   set v [catch {execsql {SELECT * from T1 where ^x}} msg]
   lappend v $msg
 } {1 {unrecognized token: "^"}}
 do_test main-3.2.2 {
   catchsql {select 'abc}
 } {1 {unrecognized token: "'abc"}}
 do_test main-3.2.3 {
   catchsql {select "abc}
 } {1 {unrecognized token: ""abc"}}
@@ skipping 98 matching lines @@
 do_test main-3.2.29 {
   catchsql {select 123/}
 } {1 {near "/": syntax error}}
 do_test main-3.2.30 {
   catchsql {select 123--5}
 } {0 123}
 
 
 do_test main-3.3 {
   catch {db close}
-  foreach f [glob -nocomplain testdb/*] {file delete -force $f}
-  file delete -force testdb
+  foreach f [glob -nocomplain testdb/*] {forcedelete $f}
+  forcedelete testdb
   sqlite3 db testdb
   execsql {
     create table T1(X REAL);  /* C-style comments allowed */
     insert into T1 values(0.5);
     insert into T1 values(0.5e2);
     insert into T1 values(0.5e-002);
     insert into T1 values(5e-002);
     insert into T1 values(-5.0e-2);
     insert into T1 values(-5.1e-2);
     insert into T1 values(0.5e2);
@@ skipping 52 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