# 2002 May 10

 #

 # 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.

 #

 # This file implements tests for the SQLITE_MISUSE detection logic.

 # This test file leaks memory and file descriptors.

 #

 # $Id: misuse.test,v 1.11 2006/01/03 00:33:50 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 proc catchsql2 {sql} {

   set r [

     catch {

       set res [list]

       db eval $sql data {

         if { $res==[list] } {

           foreach f $data(*) {lappend res $f}

         }

         foreach f $data(*) {lappend res $data($f)}

       }

       set res

     } msg

   ]

   lappend r $msg

 }

 # Make sure the test logic works

 #

 do_test misuse-1.1 {

   db close

   catch {file delete -force test2.db}

   catch {file delete -force test2.db-journal}

   sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db]

   execsql {

     CREATE TABLE t1(a,b);

     INSERT INTO t1 VALUES(1,2);

   }

   catchsql2 {

     SELECT * FROM t1

   }

 } {0 {a b 1 2}}

 do_test misuse-1.2 {

   catchsql2 {

     SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1

   }

 } {1 {no such function: x_coalesce}}

 do_test misuse-1.3 {

   sqlite3_create_function $::DB

   catchsql2 {

     SELECT x_coalesce(NULL,a) AS 'xyz' FROM t1

   }

 } {0 {xyz 1}}

 # Use the x_sqlite_exec() SQL function to simulate the effect of two

 # threads trying to use the same database at the same time.

 #

 # It used to be prohibited to invoke sqlite_exec() from within a function,

 # but that has changed.  The following tests used to cause errors but now

 # they do not.

 #

 ifcapable {utf16} {

   do_test misuse-1.4 {

     catchsql2 {

        SELECT x_sqlite_exec('SELECT * FROM t1') AS xyz;

     } 

   } {0 {xyz {1 2}}}

 }

 do_test misuse-1.5 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 do_test misuse-1.6 {

   catchsql {

     SELECT * FROM t1

   }

 } {0 {1 2}}

 # Attempt to register a new SQL function while an sqlite_exec() is active.

 #

 do_test misuse-2.1 {

   db close

   sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db]

   execsql {

     SELECT * FROM t1

   }

 } {1 2}

 do_test misuse-2.2 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 # We used to disallow creating new function from within an exec().

 # But now this is acceptable.

 do_test misuse-2.3 {

   set v [catch {

     db eval {SELECT * FROM t1} {} {

       sqlite3_create_function $::DB

     }

   } msg]

   lappend v $msg

 } {0 {}}

 do_test misuse-2.4 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 do_test misuse-2.5 {

   catchsql {

     SELECT * FROM t1

   }

 } {0 {1 2}}

 # Attempt to register a new SQL aggregate while an sqlite_exec() is active.

 #

 do_test misuse-3.1 {

   db close

   sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db]

   execsql {

     SELECT * FROM t1

   }

 } {1 2}

 do_test misuse-3.2 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 # We used to disallow creating new function from within an exec().

 # But now this is acceptable.

 do_test misuse-3.3 {

   set v [catch {

     db eval {SELECT * FROM t1} {} {

       sqlite3_create_aggregate $::DB

     }

   } msg]

   lappend v $msg

 } {0 {}}

 do_test misuse-3.4 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 do_test misuse-3.5 {

   catchsql {

     SELECT * FROM t1

   }

 } {0 {1 2}}

 # Attempt to close the database from an sqlite_exec callback.

 #

 # Update for v3: The db cannot be closed because there are active

 # VMs. The sqlite3_close call would return SQLITE_BUSY.

 do_test misuse-4.1 {

   db close

   sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db]

   execsql {

     SELECT * FROM t1

   }

 } {1 2}

 do_test misuse-4.2 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 do_test misuse-4.3 {

   set v [catch {

     db eval {SELECT * FROM t1} {} {

       set r [sqlite3_close $::DB]

     }

   } msg]

   lappend v $msg $r

 } {0 {} SQLITE_BUSY}

 do_test misuse-4.4 {

   # Flush the TCL statement cache here, otherwise the sqlite3_close() will

   # fail because there are still un-finalized() VDBEs.

   db cache flush

   sqlite3_close $::DB

   catchsql2 {SELECT * FROM t1}

 } {1 {library routine called out of sequence}}

 do_test misuse-4.5 {

   catchsql {

     SELECT * FROM t1

   }

 } {1 {library routine called out of sequence}}

 # Attempt to use a database after it has been closed.

 #

 do_test misuse-5.1 {

   db close

   sqlite3 db test2.db; set ::DB [sqlite3_connection_pointer db]

   execsql {

     SELECT * FROM t1

   }

 } {1 2}

 do_test misuse-5.2 {

   catchsql2 {SELECT * FROM t1}

 } {0 {a b 1 2}}

 do_test misuse-5.3 {

   db close

   set r [catch {

     sqlite3_prepare $::DB {SELECT * FROM t1} -1 TAIL

   } msg]

   lappend r $msg

 } {1 {(21) library routine called out of sequence}}

 finish_test