Move bundled copy of sqlite one level deeper to better separate it...

third_party/sqlite/test/capi3d.test

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