Import SQLite 3.10.2.

third_party/sqlite/src/test/e_uri.test

 # 2011 May 06
 #
 # 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.
 #
 #***********************************************************************
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 set testprefix e_uri
 
 db close
 
 proc parse_uri {uri} {
   testvfs tvfs2
   testvfs tvfs 
   tvfs filter xOpen
   tvfs script parse_uri_open_cb
 
   set ::uri_open [list]
   set DB [sqlite3_open_v2 $uri {
     SQLITE_OPEN_READWRITE SQLITE_OPEN_CREATE SQLITE_OPEN_WAL
   } tvfs]
+  set fileName [sqlite3_db_filename $DB main]
   sqlite3_close $DB
+  forcedelete $fileName
   tvfs delete
   tvfs2 delete
 
   set ::uri_open
 }
 proc parse_uri_open_cb {method file arglist} {
   set ::uri_open [list $file $arglist]
 }
 
 proc open_uri_error {uri} {
@@ skipping 411 matching lines @@
 #
 foreach {tn uri parse} "
   1  {file:/test.%64%62}                             {/test.db {}}
   2  {file:/test.db?%68%65%6c%6c%6f=%77%6f%72%6c%64} {/test.db {hello world}}
   3  {file:/%C3%BF.db}                               {/\xFF.db {}}
 " {
   do_filepath_test 13.$tn { parse_uri $uri } $parse
 }
 
 finish_test