[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/uri.test

 # 2011 April 22
 #
 # 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 37 matching lines @@
   13     file:test.db%00extra                 test.db
   14     file:testdb%00.db%00extra            testdb
 
   15     test.db?mork=1#boris                 test.db?mork=1#boris
   16     file://localhostPWD/test.db%3Fhello  test.db?hello
 } {
   
 
   ifcapable !curdir { if {$tn==3} break }
 
+  ifcapable uri_00_error {
+    if {[string first %00 $uri]>=0} continue
+  }
+
   if {$tcl_platform(platform)=="windows"} {
     #
     # NOTE: Due to limits on legal characters for file names imposed by
     #       Windows, we must skip the final two tests here (i.e. the
     #       question mark is illegal in a file name on Windows).
     #
     if {$tn>14} break
 
     #
     # NOTE: When running on Tcl 8.6 (or higher?) on Windows, a colon within
@@ skipping 49 matching lines @@
   8      file:testdb%00.db?=world&xyz=abc             {xyz abc}
   9      file:test.db?%00hello=world&xyz=abc          {xyz abc}
   10     file:test.db?hello=%00world&xyz=             {hello {} xyz {}}
   11     file:test.db?=#ravada                        {}
   12     file:test.db?&&&&&&&&hello=world&&&&&&&      {hello world}
 
   13     test.db?&&&&&&&&hello=world&&&&&&&           {}
   14     http:test.db?hello&world                     {}
 } {
 
+  ifcapable uri_00_error {
+    if {[string first %00 $uri]>=0} continue
+  }
+
   if {$tcl_platform(platform) == "windows" && $tn>12} {
     continue
   }
 
   set ::arglist ""
   set DB [sqlite3_open $uri]
   do_test 2.$tn.1 { set ::arglist } $kvlist
   sqlite3_close $DB
 
   sqlite3 db xxx.db
@@ skipping 189 matching lines @@
   execsql { ATTACH 'file:test.db2?mode=rw' AS aux }
 } {}
 do_execsql_test  7.3 { 
   INSERT INTO t2 VALUES('c', 'd') 
 } {}
 do_catchsql_test 7.4 { 
   INSERT INTO t1 VALUES(3, 4) 
 } {1 {attempt to write a readonly database}}
 
 finish_test