Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Update the misuse.test script so that it will work under Windows. Changes to the speed testing script to support version 2.4.12. (CVS 560) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
232b7ef2c8207eb6d2564a641446267d |
User & Date: | drh 2002-05-10 14:37:31.000 |
Context
2002-05-10
| ||
14:41 | Version 2.4.12 (CVS 561) (check-in: 06cdaf1c80 user: drh tags: trunk) | |
14:37 | Update the misuse.test script so that it will work under Windows. Changes to the speed testing script to support version 2.4.12. (CVS 560) (check-in: 232b7ef2c8 user: drh tags: trunk) | |
13:14 | Improvements to the SQLITE_MISUSE detection logic. Also added test cases for this logic, including the new test file "misuse.test". (CVS 559) (check-in: f42907ce45 user: drh tags: trunk) | |
Changes
Changes to test/misuse.test.
︙ | ︙ | |||
9 10 11 12 13 14 15 | # #*********************************************************************** # This file implements regression tests for SQLite library. # # This file implements tests for the SQLITE_MISUSE detection logic. # This test file leaks memory and file descriptors. # | | | | 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | # #*********************************************************************** # This file implements regression tests for SQLite library. # # This file implements tests for the SQLITE_MISUSE detection logic. # This test file leaks memory and file descriptors. # # $Id: misuse.test,v 1.2 2002/05/10 14:37:31 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Make sure the test logic works # do_test misuse-1.1 { db close set ::DB [sqlite db test2.db] execsql { CREATE TABLE t1(a,b); INSERT INTO t1 VALUES(1,2); } sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-1.2 { |
︙ | ︙ | |||
54 55 56 57 58 59 60 | } } {1 {library routine called out of sequence}} # Attempt to register a new SQL function while an sqlite_exec() is active. # do_test misuse-2.1 { db close | | | 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | } } {1 {library routine called out of sequence}} # Attempt to register a new SQL function while an sqlite_exec() is active. # do_test misuse-2.1 { db close set ::DB [sqlite db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-2.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} |
︙ | ︙ | |||
83 84 85 86 87 88 89 | } } {1 {library routine called out of sequence}} # Attempt to register a new SQL aggregate while an sqlite_exec() is active. # do_test misuse-3.1 { db close | | | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | } } {1 {library routine called out of sequence}} # Attempt to register a new SQL aggregate while an sqlite_exec() is active. # do_test misuse-3.1 { db close set ::DB [sqlite db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-3.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} |
︙ | ︙ | |||
112 113 114 115 116 117 118 | } } {1 {library routine called out of sequence}} # Attempt to close the database from an sqlite_exec callback. # do_test misuse-4.1 { db close | | | 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 | } } {1 {library routine called out of sequence}} # Attempt to close the database from an sqlite_exec callback. # do_test misuse-4.1 { db close set ::DB [sqlite db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-4.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} |
︙ | ︙ | |||
141 142 143 144 145 146 147 | } } {1 {library routine called out of sequence}} # Attempt to use a database after it has been closed. # do_test misuse-5.1 { db close | | | 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 | } } {1 {library routine called out of sequence}} # Attempt to use a database after it has been closed. # do_test misuse-5.1 { db close set ::DB [sqlite db test2.db] execsql { SELECT * FROM t1 } } {1 2} do_test misuse-5.2 { sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {0 {a b 1 2}} do_test misuse-5.3 { db close sqlite_exec_printf $::DB {SELECT * FROM t1} {} } {21 {library routine called out of sequence}} finish_test |
Changes to tool/speedtest.tcl.
︙ | ︙ | |||
45 46 47 48 49 50 51 | # puts [format $format {SQLite 2.3.2:} $t] # set t [time "exec ./sqlite-100 s100.db <$sqlfile" 1] # set t [expr {[lindex $t 0]/1000000.0}] # puts [format $format {SQLite 2.4 (cache=100):} $t] exec sync; after $delay; set t [time "exec ./sqlite248 s2k.db <$sqlfile" 1] set t [expr {[lindex $t 0]/1000000.0}] | | | > > > > > > > > | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 | # puts [format $format {SQLite 2.3.2:} $t] # set t [time "exec ./sqlite-100 s100.db <$sqlfile" 1] # set t [expr {[lindex $t 0]/1000000.0}] # puts [format $format {SQLite 2.4 (cache=100):} $t] exec sync; after $delay; set t [time "exec ./sqlite248 s2k.db <$sqlfile" 1] set t [expr {[lindex $t 0]/1000000.0}] puts [format $format {SQLite 2.4.8:} $t] exec sync; after $delay; set t [time "exec ./sqlite248 sns.db <$sqlfile" 1] set t [expr {[lindex $t 0]/1000000.0}] puts [format $format {SQLite 2.4.8 (nosync):} $t] exec sync; after $delay; set t [time "exec ./sqlite2412 s2kb.db <$sqlfile" 1] set t [expr {[lindex $t 0]/1000000.0}] puts [format $format {SQLite 2.4.12:} $t] exec sync; after $delay; set t [time "exec ./sqlite2412 snsb.db <$sqlfile" 1] set t [expr {[lindex $t 0]/1000000.0}] puts [format $format {SQLite 2.4.12 (nosync):} $t] # set t [time "exec ./sqlite-t1 st1.db <$sqlfile" 1] # set t [expr {[lindex $t 0]/1000000.0}] # puts [format $format {SQLite 2.4 (test):} $t] puts "</table>" } # Initialize the environment |
︙ | ︙ | |||
75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | set fd [open 2kinit.sql w] puts $fd { PRAGMA default_cache_size=2000; PRAGMA default_synchronous=on; } close $fd exec ./sqlite248 s2k.db <2kinit.sql set fd [open nosync-init.sql w] puts $fd { PRAGMA default_cache_size=2000; PRAGMA default_synchronous=off; } close $fd exec ./sqlite248 sns.db <nosync-init.sql set ones {zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen} set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety} proc number_name {n} { if {$n>=1000} { set txt "[number_name [expr {$n/1000}]] thousand" | > > | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 | set fd [open 2kinit.sql w] puts $fd { PRAGMA default_cache_size=2000; PRAGMA default_synchronous=on; } close $fd exec ./sqlite248 s2k.db <2kinit.sql exec ./sqlite2412 s2kb.db <2kinit.sql set fd [open nosync-init.sql w] puts $fd { PRAGMA default_cache_size=2000; PRAGMA default_synchronous=off; } close $fd exec ./sqlite248 sns.db <nosync-init.sql exec ./sqlite2412 snsb.db <nosync-init.sql set ones {zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen} set tens {{} ten twenty thirty forty fifty sixty seventy eighty ninety} proc number_name {n} { if {$n>=1000} { set txt "[number_name [expr {$n/1000}]] thousand" |
︙ | ︙ |