Index: third_party/sqlite/sqlite-src-3080704/test/capi3d.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/capi3d.test b/third_party/sqlite/sqlite-src-3080704/test/capi3d.test |
deleted file mode 100644 |
index fb8abe86d24284d5677e804c8e627c8642949735..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/capi3d.test |
+++ /dev/null |
@@ -1,184 +0,0 @@ |
-# 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 |