Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add a -cleanup option to Tcl test proc do_ioerr_test. (CVS 2485) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b0a898c05a2285c87d7da4d47dd697c5 |
| User & Date: | danielk1977 2005-05-26 15:20:53 |
Context
|
2005-05-26
| ||
| 16:23 | Add an experimental sqlite3_get_autocommit() API used to test whether or not changes are committed automatically. (CVS 2486) (check-in: 4a7f1275 user: drh tags: trunk) | |
| 15:20 | Add a -cleanup option to Tcl test proc do_ioerr_test. (CVS 2485) (check-in: b0a898c0 user: danielk1977 tags: trunk) | |
| 14:41 | If SSE is enabled, set the P1 field of OP_AggInit instructions to the number of arguments that will be passed to the aggregate function. (CVS 2484) (check-in: 7f67b9f0 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
...
373
374
375
376
377
378
379
380
381
382
383
384
385
386
|
# 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.48 2005/02/12 08:59:59 danielk1977 Exp $ # Make sure tclsqlite3 was compiled correctly. Abort now with an # error message if not. # if {[sqlite3 -tcl-uses-utf]} { if {"\u1234"=="u1234"} { puts stderr "***** BUILD PROBLEM *****" ................................................................................ do_test $testname.$n.4 { catch {db close} set ::DB [sqlite3 db test.db] cksum } $checksum } } set ::sqlite_io_error_pending 0 unset ::ioerropts } # Return a checksum based on the contents of database 'db'. # |
|
>
>
>
|
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
|
# 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.49 2005/05/26 15:20:53 danielk1977 Exp $ # Make sure tclsqlite3 was compiled correctly. Abort now with an # error message if not. # if {[sqlite3 -tcl-uses-utf]} { if {"\u1234"=="u1234"} { puts stderr "***** BUILD PROBLEM *****" ................................................................................ do_test $testname.$n.4 { catch {db close} set ::DB [sqlite3 db test.db] cksum } $checksum } if {[info exists ::ioerropts(-cleanup)]} { catch $::ioerropts(-cleanup) } } set ::sqlite_io_error_pending 0 unset ::ioerropts } # Return a checksum based on the contents of database 'db'. # |