Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix obscure permutation test problems. (CVS 5611) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | aa92a1bec3d6bbcc59680ba13fed51ad |
User & Date: | drh 2008-08-25 19:09:02 |
Context
2008-08-25
| ||
21:23 | Add the SQLITE_OPEN_FULLMUTEX definition to sqlite3.h. It currently is not valid for anything. This is merely to reserve the number. (CVS 5612) check-in: 3b6ffb44 user: drh tags: trunk | |
19:09 | Fix obscure permutation test problems. (CVS 5611) check-in: aa92a1be user: drh tags: trunk | |
17:23 | Fix bug in the premutation testing that was causing many permutations from begin skipped. There are now 16 errors reported by the permutation test. (CVS 5610) check-in: 4ad096bd user: drh tags: trunk | |
Changes
Changes to test/permutations.test.
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 .. 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 .. 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 ... 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 |
# # 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. # #*********************************************************************** # # $Id: permutations.test,v 1.22 2008/08/25 17:23:29 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Argument processing. # #puts "PERM-DEBUG: argv=$argv" ................................................................................ set ::perm::testmode [list persistent_journal no_journal] set ISQUICK 1 } if {$::perm::testmode eq "quick"} { set ::perm::testmode [list persistent_journal no_journal autovacuum_ioerr] set ISQUICK 1 } if {$::perm::testmode eq "all"} { set ::perm::testmode { memsubsys1 memsubsys2 singlethread multithread onefile utf16 exclusive persistent_journal persistent_journal_error no_journal no_journal_error autovacuum_ioerr no_mutex_try } } if {$::perm::testmode eq "targets"} { ................................................................................ puts -nonewline "veryquick " puts "Same as persistent_journal and no_journal" puts -nonewline "quick " puts "Same as persistent_journal, no_journal and autovacuum_ioerr" puts -nonewline "all " puts "Everything except autovacuum_crash" } puts "PERM-DEBUG: testmode=$::perm::testmode" set EXCLUDE { all.test in2.test onefile.test async2.test incrvacuum_ioerr.test permutations.test async.test jrnlmode2.test quick.test autovacuum_crash.test jrnlmode3.test shared_err.test autovacuum_ioerr.test jrnlmode4.test soak.test ................................................................................ lappend args -vfs fs } uplevel [concat sqlite3_onefile $args] } } -include { conflict.test insert.test insert2.test insert3.test rollback.test select1.test select2.test select3.test temptable.test } -shutdown { rename sqlite3 {} rename sqlite3_onefile sqlite3 } # Run some tests using UTF-16 databases. # |
| | | < |
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 .. 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 .. 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 ... 297 298 299 300 301 302 303 304 305 306 307 308 309 310 |
# # 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. # #*********************************************************************** # # $Id: permutations.test,v 1.23 2008/08/25 19:09:02 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Argument processing. # #puts "PERM-DEBUG: argv=$argv" ................................................................................ set ::perm::testmode [list persistent_journal no_journal] set ISQUICK 1 } if {$::perm::testmode eq "quick"} { set ::perm::testmode [list persistent_journal no_journal autovacuum_ioerr] set ISQUICK 1 } if {$::perm::testmode eq "all" || $::perm::testmode eq ""} { set ::perm::testmode { memsubsys1 memsubsys2 singlethread multithread onefile utf16 exclusive persistent_journal persistent_journal_error no_journal no_journal_error autovacuum_ioerr no_mutex_try } } if {$::perm::testmode eq "targets"} { ................................................................................ puts -nonewline "veryquick " puts "Same as persistent_journal and no_journal" puts -nonewline "quick " puts "Same as persistent_journal, no_journal and autovacuum_ioerr" puts -nonewline "all " puts "Everything except autovacuum_crash" } #puts "PERM-DEBUG: testmode=$::perm::testmode" set EXCLUDE { all.test in2.test onefile.test async2.test incrvacuum_ioerr.test permutations.test async.test jrnlmode2.test quick.test autovacuum_crash.test jrnlmode3.test shared_err.test autovacuum_ioerr.test jrnlmode4.test soak.test ................................................................................ lappend args -vfs fs } uplevel [concat sqlite3_onefile $args] } } -include { conflict.test insert.test insert2.test insert3.test rollback.test select1.test select2.test select3.test } -shutdown { rename sqlite3 {} rename sqlite3_onefile sqlite3 } # Run some tests using UTF-16 databases. # |
Changes to test/tclsqlite.test.
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
# This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # # $Id: tclsqlite.test,v 1.65 2008/07/10 17:52:49 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # if {[sqlite3 -has-codec]} { set r "sqlite_orig HANDLE FILENAME ?-key CODEC-KEY?" } else { set r "sqlite3 HANDLE FILENAME ?-vfs VFSNAME? ?-readonly BOOLEAN? ?-create BOOLEAN? ?-nomutex BOOLEAN?" } do_test tcl-1.1 { set v [catch {sqlite3 bogus} msg] lappend v $msg } [list 1 "wrong # args: should be \"$r\""] do_test tcl-1.2 { set v [catch {db bogus} msg] lappend v $msg } {1 {bad option "bogus": must be authorizer, busy, cache, changes, close, collate, collation_needed, commit_hook, complete, copy, enable_load_extension, errorcode, eval, exists, function, incrblob, interrupt, last_insert_rowid, nullvalue, onecolumn, profile, progress, rekey, rollback_hook, timeout, total_changes, trace, transaction, update_hook, or version}} do_test tcl-1.2.1 { |
| > |
11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
# This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # # $Id: tclsqlite.test,v 1.66 2008/08/25 19:09:02 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # if {[sqlite3 -has-codec]} { set r "sqlite_orig HANDLE FILENAME ?-key CODEC-KEY?" } else { set r "sqlite3 HANDLE FILENAME ?-vfs VFSNAME? ?-readonly BOOLEAN? ?-create BOOLEAN? ?-nomutex BOOLEAN?" } do_test tcl-1.1 { set v [catch {sqlite3 bogus} msg] regsub {really_sqlite3} $msg {sqlite3} msg lappend v $msg } [list 1 "wrong # args: should be \"$r\""] do_test tcl-1.2 { set v [catch {db bogus} msg] lappend v $msg } {1 {bad option "bogus": must be authorizer, busy, cache, changes, close, collate, collation_needed, commit_hook, complete, copy, enable_load_extension, errorcode, eval, exists, function, incrblob, interrupt, last_insert_rowid, nullvalue, onecolumn, profile, progress, rekey, rollback_hook, timeout, total_changes, trace, transaction, update_hook, or version}} do_test tcl-1.2.1 { |