1# 2008 June 18 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# This file implements regression tests for SQLite library. 12# 13# This file is devoted to testing the sqlite3_next_stmt and 14# sqlite3_stmt_readonly interfaces. 15# 16# $Id: capi3d.test,v 1.2 2008/07/14 15:11:20 drh Exp $ 17# 18 19set testdir [file dirname $argv0] 20source $testdir/tester.tcl 21 22# Create N prepared statements against database connection db 23# and return a list of all the generated prepared statements. 24# 25proc make_prepared_statements {N} { 26 set plist {} 27 for {set i 0} {$i<$N} {incr i} { 28 set sql "SELECT $i FROM sqlite_master WHERE name LIKE '%$i%'" 29 if {rand()<0.33} { 30 set s [sqlite3_prepare_v2 db $sql -1 notused] 31 } else { 32 ifcapable utf16 { 33 if {rand()<0.5} { 34 set sql [encoding convertto unicode $sql]\x00\x00 35 set s [sqlite3_prepare16 db $sql -1 notused] 36 } else { 37 set s [sqlite3_prepare db $sql -1 notused] 38 } 39 } 40 ifcapable !utf16 { 41 set s [sqlite3_prepare db $sql -1 notused] 42 } 43 } 44 lappend plist $s 45 } 46 return $plist 47} 48 49 50# Scramble the $inlist into a random order. 51# 52proc scramble {inlist} { 53 set y {} 54 foreach x $inlist { 55 lappend y [list [expr {rand()}] $x] 56 } 57 set y [lsort $y] 58 set outlist {} 59 foreach x $y { 60 lappend outlist [lindex $x 1] 61 } 62 return $outlist 63} 64 65# Database initially has no prepared statements. 66# 67do_test capi3d-1.1 { 68 db cache flush 69 sqlite3_next_stmt db 0 70} {} 71 72# Run the following tests for between 1 and 100 prepared statements. 73# 74for {set i 1} {$i<=100} {incr i} { 75 set stmtlist [make_prepared_statements $i] 76 do_test capi3d-1.2.$i.1 { 77 set p [sqlite3_next_stmt db 0] 78 set x {} 79 while {$p!=""} { 80 lappend x $p 81 set p [sqlite3_next_stmt db $p] 82 } 83 lsort $x 84 } [lsort $stmtlist] 85 do_test capi3-1.2.$i.2 { 86 foreach p [scramble $::stmtlist] { 87 sqlite3_finalize $p 88 } 89 sqlite3_next_stmt db 0 90 } {} 91} 92 93# Tests for the is-read-only interface. 94# 95proc test_is_readonly {testname sql truth} { 96 do_test $testname [format { 97 set DB [sqlite3_connection_pointer db] 98 set STMT [sqlite3_prepare $DB {%s} -1 TAIL] 99 set rc [sqlite3_stmt_readonly $STMT] 100 sqlite3_finalize $STMT 101 set rc 102 } $sql] $truth 103} 104 105test_is_readonly capi3d-2.1 {SELECT * FROM sqlite_master} 1 106test_is_readonly capi3d-2.2 {CREATE TABLE t1(x)} 0 107db eval {CREATE TABLE t1(x)} 108test_is_readonly capi3d-2.3 {INSERT INTO t1 VALUES(5)} 0 109test_is_readonly capi3d-2.4 {UPDATE t1 SET x=x+1 WHERE x<0} 0 110test_is_readonly capi3d-2.5 {SELECT * FROM t1} 1 111do_test capi3-2.99 { 112 sqlite3_stmt_readonly 0 113} 1 114 115 116finish_test 117