Return to capi3d.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/capi3d.test, revision 1.1.1.1

1.1       misho       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 and sqlite3_stmt_busy interfaces.
                     15: #
                     16: # $Id: capi3d.test,v 1.2 2008/07/14 15:11:20 drh Exp $
                     17: #
                     18: 
                     19: set testdir [file dirname $argv0]
                     20: source $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: #
                     25: proc 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: #
                     52: proc 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: #
                     67: do_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: #
                     74: for {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: #
                     95: proc 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: 
                    105: test_is_readonly capi3d-2.1 {SELECT * FROM sqlite_master} 1
                    106: test_is_readonly capi3d-2.2 {CREATE TABLE t1(x)} 0
                    107: db eval {CREATE TABLE t1(x)}
                    108: test_is_readonly capi3d-2.3 {INSERT INTO t1 VALUES(5)} 0
                    109: test_is_readonly capi3d-2.4 {UPDATE t1 SET x=x+1 WHERE x<0} 0
                    110: test_is_readonly capi3d-2.5 {SELECT * FROM t1} 1
                    111: do_test capi3-2.99 {
                    112:   sqlite3_stmt_readonly 0
                    113: } 1
                    114: 
                    115: # Tests for sqlite3_stmt_busy
                    116: #
                    117: do_test capi3d-3.1 {
                    118:   db eval {INSERT INTO t1 VALUES(6); INSERT INTO t1 VALUES(7);}
                    119:   set STMT [sqlite3_prepare db {SELECT * FROM t1} -1 TAIL]
                    120:   sqlite3_stmt_busy $STMT
                    121: } {0}
                    122: do_test capi3d-3.2 {
                    123:   sqlite3_step $STMT
                    124:   sqlite3_stmt_busy $STMT
                    125: } {1}
                    126: do_test capi3d-3.3 {
                    127:   sqlite3_step $STMT
                    128:   sqlite3_stmt_busy $STMT
                    129: } {1}
                    130: do_test capi3d-3.4 {
                    131:   sqlite3_reset $STMT
                    132:   sqlite3_stmt_busy $STMT
                    133: } {0}
                    134: 
                    135: do_test capi3d-3.99 {
                    136:   sqlite3_finalize $STMT
                    137:   sqlite3_stmt_busy 0
                    138: } {0}
                    139: 
                    140: finish_test