Import SQLite 3.8.7.4.

third_party/sqlite/src/test/attach.test

 # 2003 April 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.  The
 # focus of this script is testing the ATTACH and DETACH commands
 # and related functionality.
 #
 # $Id: attach.test,v 1.52 2009/05/29 14:39:08 drh Exp $
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !attach {
   finish_test
   return
 }
 
 for {set i 2} {$i<=15} {incr i} {
-  file delete -force test$i.db
-  file delete -force test$i.db-journal
+  forcedelete test$i.db
+  forcedelete test$i.db-journal
 }
 
 do_test attach-1.1 {
   execsql {
     CREATE TABLE t1(a,b);
     INSERT INTO t1 VALUES(1,2);
     INSERT INTO t1 VALUES(3,4);
     SELECT * FROM t1;
   }
 } {1 2 3 4}
 do_test attach-1.2 {
   sqlite3 db2 test2.db
   execsql {
     CREATE TABLE t2(x,y);
     INSERT INTO t2 VALUES(1,'x');
     INSERT INTO t2 VALUES(2,'y');
     SELECT * FROM t2;
   } db2
 } {1 x 2 y}
 do_test attach-1.3 {
   execsql {
     ATTACH DATABASE 'test2.db' AS two;
     SELECT * FROM two.t2;
   }
 } {1 x 2 y}
+
+# Tests for the sqlite3_db_filename interface
+#
+do_test attach-1.3.1 {
+  file tail [sqlite3_db_filename db main]
+} {test.db}
+do_test attach-1.3.2 {
+  file tail [sqlite3_db_filename db MAIN]
+} {test.db}
+do_test attach-1.3.3 {
+  file tail [sqlite3_db_filename db temp]
+} {}
+do_test attach-1.3.4 {
+  file tail [sqlite3_db_filename db two]
+} {test2.db}
+do_test attach-1.3.5 {
+  file tail [sqlite3_db_filename db three]
+} {}
+
 do_test attach-1.4 {
   execsql {
     SELECT * FROM t2;
   }
 } {1 x 2 y}
 do_test attach-1.5 {
   execsql {
     DETACH DATABASE two;
     SELECT * FROM t1;
   }
@@ skipping 557 matching lines @@
 } {910 1112 1516}
 } ;# ifcapable view
 
 # Tests for the sqliteFix...() routines in attach.c
 #
 ifcapable {trigger} {
 do_test attach-5.1 {
   db close
   sqlite3 db test.db
   db2 close
-  file delete -force test2.db
+  forcedelete test2.db
   sqlite3 db2 test2.db
   catchsql {
     ATTACH DATABASE 'test.db' AS orig;
     CREATE TRIGGER r1 AFTER INSERT ON orig.t1 BEGIN
       SELECT 'no-op';
     END;
   } db2
 } {1 {trigger r1 cannot reference objects in database orig}}
 do_test attach-5.2 {
   catchsql {
@@ skipping 76 matching lines @@
   }
 } {0 {}}
 if {$tcl_platform(platform)=="unix"} {
   do_test attach-6.2 {
     sqlite3 dbx cannot-read
     dbx eval {CREATE TABLE t1(a,b,c)}
     dbx close
     file attributes cannot-read -permission 0000
     if {[file writable cannot-read]} {
       puts "\n**** Tests do not work when run as root ****"
-      file delete -force cannot-read
+      forcedelete cannot-read
       exit 1
     }
     catchsql {
       ATTACH DATABASE 'cannot-read' AS noread;
     }
   } {1 {unable to open database: cannot-read}}
   do_test attach-6.2.2 {
     db errorcode
   } {14}
-  file delete -force cannot-read
+  forcedelete cannot-read
 }
 
 # Check the error message if we try to access a database that has
 # not been attached.
 do_test attach-6.3 {
   catchsql {
     CREATE TABLE no_such_db.t1(a, b, c);
   }
 } {1 {unknown database no_such_db}}
 for {set i 2} {$i<=15} {incr i} {
   catch {db$i close}
 }
 db close
-file delete -force test2.db
-file delete -force no-such-file
+forcedelete test2.db
+forcedelete no-such-file
 
 ifcapable subquery {
   do_test attach-7.1 {
-    file delete -force test.db test.db-journal
+    forcedelete test.db test.db-journal
     sqlite3 db test.db
     catchsql {
       DETACH RAISE ( IGNORE ) IN ( SELECT "AAAAAA" . * ORDER BY 
       REGISTER LIMIT "AAAAAA" . "AAAAAA" OFFSET RAISE ( IGNORE ) NOT NULL )
     }
   } {1 {no such table: AAAAAA}}
 }
 
 # Create a malformed file (a file that is not a valid database)
 # and try to attach it
 #
 do_test attach-8.1 {
   set fd [open test2.db w]
   puts $fd "This file is not a valid SQLite database"
   close $fd
   catchsql {
     ATTACH 'test2.db' AS t2;
   }
 } {1 {file is encrypted or is not a database}}
 do_test attach-8.2 {
   db errorcode
 } {26}
-file delete -force test2.db
+forcedelete test2.db
 do_test attach-8.3 {
   sqlite3 db2 test2.db
   db2 eval {CREATE TABLE t1(x); BEGIN EXCLUSIVE}
   catchsql {
     ATTACH 'test2.db' AS t2;
   }
 } {1 {database is locked}}
 do_test attach-8.4 {
   db errorcode
 } {5}
 db2 close
-file delete -force test2.db
+forcedelete test2.db
 
 # Test that it is possible to attach the same database more than
 # once when not in shared-cache mode. That this is not possible in
 # shared-cache mode is tested in shared7.test.
 do_test attach-9.1 {
-  file delete -force test4.db
+  forcedelete test4.db
   execsql {
     ATTACH 'test4.db' AS aux1;
     CREATE TABLE aux1.t1(a, b);
     INSERT INTO aux1.t1 VALUES(1, 2);
     ATTACH 'test4.db' AS aux2;
     SELECT * FROM aux2.t1;
   }
 } {1 2}
 do_test attach-9.2 {
   catchsql {
@@ skipping 25 matching lines @@
     SELECT name FROM inmem.sqlite_master;
   }
 } {noname inmem}
 do_test attach-10.2 {
   lrange [execsql {
     PRAGMA database_list;
   }] 9 end
 } {4 noname {} 5 inmem {}}
 
 finish_test