Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Make test function do_ioerr_test more robust. No code changes. (CVS 5121) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | f532692ec91b40fc002af925d2ab8382 |
| User & Date: | danielk1977 2008-05-12 10:57:02 |
Context
|
2008-05-12
| ||
| 12:39 | Fix typo in documentation of sqlite3_step(). Ticket #3110. (CVS 5122) check-in: 4d397f57 user: drh tags: trunk | |
| 10:57 | Make test function do_ioerr_test more robust. No code changes. (CVS 5121) check-in: f532692e user: danielk1977 tags: trunk | |
| 07:42 | Modify logging code in test_osinst.c. No changes to production code. (CVS 5120) check-in: 85c54a16 user: danielk1977 tags: trunk | |
Changes
Changes to test/tester.tcl.
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
699
700
701
702
703
704
705
706
707
708
709
710
711
712
|
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements some common TCL routines used for regression # testing the SQLite library # # $Id: tester.tcl,v 1.122 2008/05/12 07:42:20 danielk1977 Exp $ # # What for user input before continuing. This gives an opportunity # to connect profiling tools to the process. # for {set i 0} {$i<[llength $argv]} {incr i} { if {[regexp {^-+pause$} [lindex $argv $i] all value]} { ................................................................................ # One of two things must have happened. either # 1. We never hit the IO error and the SQL returned OK # 2. An IO error was hit and the SQL failed # expr { ($s && !$r && !$q) || (!$s && $r && $q) } } {1} # Check that no page references were leaked. There should be # a single reference if there is still an active transaction, # or zero otherwise. # if {$::go && $::sqlite_io_error_hardhit && $::ioerropts(-ckrefcount)} { do_test $testname.$n.4 { set bt [btree_from_db db] |
|
>
>
>
|
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
|
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements some common TCL routines used for regression # testing the SQLite library # # $Id: tester.tcl,v 1.123 2008/05/12 10:57:02 danielk1977 Exp $ # # What for user input before continuing. This gives an opportunity # to connect profiling tools to the process. # for {set i 0} {$i<[llength $argv]} {incr i} { if {[regexp {^-+pause$} [lindex $argv $i] all value]} { ................................................................................ # One of two things must have happened. either # 1. We never hit the IO error and the SQL returned OK # 2. An IO error was hit and the SQL failed # expr { ($s && !$r && !$q) || (!$s && $r && $q) } } {1} set ::sqlite_io_error_hit 0 set ::sqlite_io_error_pending 0 # Check that no page references were leaked. There should be # a single reference if there is still an active transaction, # or zero otherwise. # if {$::go && $::sqlite_io_error_hardhit && $::ioerropts(-ckrefcount)} { do_test $testname.$n.4 { set bt [btree_from_db db] |