# 2005 January 11

 #

 # 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 file is testing the sqlite3SafetyOn and sqlite3SafetyOff

 # functions.  Those routines are not strictly necessary - they are

 # designed to detect misuse of the library.

 #

 # $Id: safety.test,v 1.4 2008/03/18 13:46:53 drh Exp $

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 ifcapable !debug {

   puts "Skipping safety tests since SQLITE_DEBUG is off"

   finish_test

   return

 }

 # Return the UTF-8 representation of the supplied UTF-16 string $str. 

 proc utf8 {str} {

   # If $str ends in two 0x00 0x00 bytes, knock these off before

   # converting to UTF-8 using TCL.

   binary scan $str \c* vals

   if {[lindex $vals end]==0 && [lindex $vals end-1]==0} {

     set str [binary format \c* [lrange $vals 0 end-2]]

   }

   set r [encoding convertfrom unicode $str]

   return $r

 }

 do_test safety-1.1 {

   set DB [sqlite3_connection_pointer db]

   db eval {CREATE TABLE t1(a)}

   sqlite_set_magic $DB SQLITE_MAGIC_BUSY

   catchsql {

     SELECT name FROM sqlite_master;

   }

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

 do_test safety-1.2 {

   sqlite_set_magic $DB SQLITE_MAGIC_OPEN

   catchsql {

     SELECT name FROM sqlite_master

   }

 } {0 t1}

 do_test safety-2.1 {

   proc safety_on {} "sqlite_set_magic $DB SQLITE_MAGIC_BUSY"

   db function safety_on safety_on

   catchsql {

     SELECT safety_on(), name FROM sqlite_master

   }

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

 ifcapable {utf16} {

   do_test safety-2.1.1 {

     utf8 [sqlite3_errmsg16 db]

   } {library routine called out of sequence}

 }

 do_test safety-2.2 {

   catchsql {

     SELECT 'hello'

   }

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

 do_test safety-2.3 {

   sqlite3_close $DB

 } {SQLITE_MISUSE}

 do_test safety-2.4 {

   sqlite_set_magic $DB SQLITE_MAGIC_OPEN

   execsql {

     SELECT name FROM sqlite_master

   }

 } {t1}

 do_test safety-3.1 {

   set rc [catch {

     db eval {SELECT name FROM sqlite_master} {

       sqlite_set_magic $DB SQLITE_MAGIC_BUSY

     }

   } msg]

   lappend rc $msg

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

 sqlite_set_magic $DB SQLITE_MAGIC_OPEN

 finish_test