# 2008 June 18

 #

 # 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 is devoted to testing the sqlite3_next_stmt interface.

 #

 # $Id: capi3d.test,v 1.2 2008/07/14 15:11:20 drh Exp $

 #

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 # Create N prepared statements against database connection db

 # and return a list of all the generated prepared statements.

 #

 proc make_prepared_statements {N} {

   set plist {}

   for {set i 0} {$i<$N} {incr i} {

     set sql "SELECT $i FROM sqlite_master WHERE name LIKE '%$i%'"

     if {rand()<0.33} {    

       set s [sqlite3_prepare_v2 db $sql -1 notused]

     } else {

       ifcapable utf16 {

         if {rand()<0.5} {

           set sql [encoding convertto unicode $sql]\x00\x00

           set s [sqlite3_prepare16 db $sql -1 notused]

         } else {

           set s [sqlite3_prepare db $sql -1 notused]

         }

       }

       ifcapable !utf16 {

         set s [sqlite3_prepare db $sql -1 notused]

       }

     }

     lappend plist $s

   }

   return $plist

 }

 # Scramble the $inlist into a random order.

 #

 proc scramble {inlist} {

   set y {}

   foreach x $inlist {

     lappend y [list [expr {rand()}] $x]

   }

   set y [lsort $y]

   set outlist {}

   foreach x $y {

     lappend outlist [lindex $x 1]

   }

   return $outlist

 }

 # Database initially has no prepared statements.

 #

 do_test capi3d-1.1 {

   db cache flush

   sqlite3_next_stmt db 0

 } {}

 # Run the following tests for between 1 and 100 prepared statements.

 #

 for {set i 1} {$i<=100} {incr i} {

   set stmtlist [make_prepared_statements $i]

   do_test capi3d-1.2.$i.1 {

     set p [sqlite3_next_stmt db 0]

     set x {}

     while {$p!=""} {

       lappend x $p

       set p [sqlite3_next_stmt db $p]

     }

     lsort $x

   } [lsort $stmtlist]

   do_test capi3-1.2.$i.2 {

     foreach p [scramble $::stmtlist] {

       sqlite3_finalize $p

     }

     sqlite3_next_stmt db 0

   } {}

 }

 finish_test