[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/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 and
-# sqlite3_stmt_readonly and sqlite3_stmt_busy interfaces.
-#
-# $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
-  } {}
-}
-
-# Tests for the is-read-only interface.
-#
-proc test_is_readonly {testname sql truth} {
-  do_test $testname [format {
-    set DB [sqlite3_connection_pointer db]
-    set STMT [sqlite3_prepare $DB {%s} -1 TAIL]
-    set rc [sqlite3_stmt_readonly $STMT]
-    sqlite3_finalize $STMT
-    set rc
-  } $sql] $truth
-}
-
-test_is_readonly capi3d-2.1 {SELECT * FROM sqlite_master} 1
-test_is_readonly capi3d-2.2 {CREATE TABLE t1(x)} 0
-db eval {CREATE TABLE t1(x)}
-test_is_readonly capi3d-2.3 {INSERT INTO t1 VALUES(5)} 0
-test_is_readonly capi3d-2.4 {UPDATE t1 SET x=x+1 WHERE x<0} 0
-test_is_readonly capi3d-2.5 {SELECT * FROM t1} 1
-ifcapable wal {
-  test_is_readonly capi3d-2.6 {PRAGMA journal_mode=WAL} 0
-  test_is_readonly capi3d-2.7 {PRAGMA wal_checkpoint} 0
-}
-test_is_readonly capi3d-2.8 {PRAGMA application_id=1234} 0
-test_is_readonly capi3d-2.9 {VACUUM} 0
-test_is_readonly capi3d-2.10 {PRAGMA integrity_check} 1
-do_test capi3-2.99 {
-  sqlite3_stmt_readonly 0
-} 1
-
-# Tests for sqlite3_stmt_busy
-#
-do_test capi3d-3.1 {
-  db eval {INSERT INTO t1 VALUES(6); INSERT INTO t1 VALUES(7);}
-  set STMT [sqlite3_prepare db {SELECT * FROM t1} -1 TAIL]
-  sqlite3_stmt_busy $STMT
-} {0}
-do_test capi3d-3.2 {
-  sqlite3_step $STMT
-  sqlite3_stmt_busy $STMT
-} {1}
-do_test capi3d-3.3 {
-  sqlite3_step $STMT
-  sqlite3_stmt_busy $STMT
-} {1}
-do_test capi3d-3.4 {
-  sqlite3_reset $STMT
-  sqlite3_stmt_busy $STMT
-} {0}
-
-do_test capi3d-3.99 {
-  sqlite3_finalize $STMT
-  sqlite3_stmt_busy 0
-} {0}
-
-#--------------------------------------------------------------------------
-# Test the sqlite3_stmt_busy() function with ROLLBACK statements.
-#
-reset_db
-
-do_execsql_test capi3d-4.1 {
-  CREATE TABLE t4(x,y);
-  BEGIN;
-}
-
-do_test capi3d-4.2.1 {
-  breakpoint
-  set ::s1 [sqlite3_prepare_v2 db "ROLLBACK" -1 notused]
-  sqlite3_step $::s1
-} {SQLITE_DONE}
-
-do_test capi3d-4.2.2 {
-  sqlite3_stmt_busy $::s1
-} {1}
-
-do_catchsql_test capi3d-4.2.3 {
-  VACUUM
-} {1 {cannot VACUUM - SQL statements in progress}}
-
-do_test capi3d-4.2.4 {
-  sqlite3_reset $::s1
-} {SQLITE_OK}
-
-do_catchsql_test capi3d-4.2.5 {
-  VACUUM
-} {0 {}}
-
-do_test capi3d-4.2.6 {
-  sqlite3_finalize $::s1
-} {SQLITE_OK}
-
-
-finish_test