[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/loadext.test

 # 2006 July 14
 #
 # 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 63 matching lines @@
 
 # Make sure the test extension actually exists.  If it does not
 # exist, try to create it.  If unable to create it, then skip this
 # test file.
 #
 if {![file exists $testextension]} {
   set srcdir [file dir $testdir]/src
   set testextsrc $srcdir/test_loadext.c
 
   set cmdline [concat exec gcc $gcc_shared]
-  lappend cmdline -Wall -I$srcdir -I. -g $testextsrc -o $testextension
+  lappend cmdline -Wall -I$srcdir -I. -I.. -g $testextsrc -o $testextension
   
   if {[catch $cmdline msg]} {
     puts "Skipping loadext tests: Test extension not built..."
     puts $msg
     finish_test
     return
   }
 }
 
 # Test that loading the extension produces the expected results - adding
 # the half() function to the specified database handle.
 #
 do_test loadext-1.1 {
   catchsql {
     SELECT half(1.0);
   }
 } {1 {no such function: half}}
 do_test loadext-1.2 {
   db enable_load_extension 1
   sqlite3_load_extension db $testextension testloadext_init
   catchsql {
     SELECT half(1.0);
   }
 } {0 0.5}
 
 # Test that a second database connection (db2) can load the extension also.
 #
 do_test loadext-1.3 {
   sqlite3 db2 test.db
-  sqlite3_enable_load_extension db2 1
+  sqlite3_db_config db2 SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION 1
   catchsql {
     SELECT half(1.0);
   } db2
 } {1 {no such function: half}}
 do_test loadext-1.4 {
   sqlite3_load_extension db2 $testextension testloadext_init
   catchsql {
     SELECT half(1.0);
   } db2
 } {0 0.5}
@@ skipping 124 matching lines @@
     SELECT load_extension($::testextension,'testloadext_init')
   }
 } {1 {not authorized}}
 do_test loadext-4.2 {
   sqlite3_enable_load_extension db 1
   catchsql {
     SELECT load_extension($::testextension,'testloadext_init')
   }
 } {0 {{}}}
 
+# disable all extension loading
 do_test loadext-4.3 {
   sqlite3_enable_load_extension db 0
   catchsql {
     SELECT load_extension($::testextension,'testloadext_init')
   }
 } {1 {not authorized}}
 
+# enable C-api extension loading only.  Show that the SQL function
+# still does not work.
+do_test loadext-4.4 {
+  sqlite3_db_config db SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION 1
+  catchsql {
+    SELECT load_extension($::testextension,'testloadext_init')
+  }
+} {1 {not authorized}}
+
 source $testdir/malloc_common.tcl
 
 
 # Malloc failure in sqlite3_auto_extension and sqlite3_load_extension
 #
 do_malloc_test loadext-5 -tclprep {
   sqlite3_reset_auto_extension
 } -tclbody {
   if {[autoinstall_test_functions]==7} {error "out of memory"}
 }
 
 # On Windows, this malloc test must be skipped because the winDlOpen
 # function itself can fail due to "out of memory" conditions.
 #
 if {$::tcl_platform(platform) ne "windows"} {
   do_malloc_test loadext-6 -tclbody {
     db enable_load_extension 1
     sqlite3_load_extension db $::testextension testloadext_init
   }
 }
 
 autoinstall_test_functions
 
 finish_test