Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix up the busy test so that it can be run multiple times in a row without giving false errors on 2nd and subsequent runs. (CVS 2714) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
7a7ba73fb5d1d493dc2c8c0d5ed4ee6d |
| User & Date: | drh 2005-09-17 18:02:37 |
Context
|
2005-09-17
| ||
| 18:34 | The sqlite3ReallocOrFree routine should set its pointer to NULL when it fails. (CVS 2715) (check-in: 0e85af44 user: drh tags: trunk) | |
| 18:02 | Fix up the busy test so that it can be run multiple times in a row without giving false errors on 2nd and subsequent runs. (CVS 2714) (check-in: 7a7ba73f user: drh tags: trunk) | |
| 17:58 | Fix a memory leak that occurs after malloc fails. (CVS 2713) (check-in: 85b931bf user: drh tags: trunk) | |
Changes
Changes to test/busy.test.
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
# 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. # #*********************************************************************** # This file test the busy handler # # $Id: busy.test,v 1.1 2005/07/09 02:16:03 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl do_test busy-1.1 { sqlite3 db2 test.db ................................................................................ } } 1 proc busy x { lappend ::busyargs $x if {$x>2} {return 1} return 0 } do_test busy-1.2 { db busy busy db2 eval {begin exclusive} catchsql {begin immediate} } {1 {database is locked}} do_test busy-1.3 { set busyargs } {0 1 2 3} db2 close finish_test |
|
>
|
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
# 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. # #*********************************************************************** # This file test the busy handler # # $Id: busy.test,v 1.2 2005/09/17 18:02:37 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl do_test busy-1.1 { sqlite3 db2 test.db ................................................................................ } } 1 proc busy x { lappend ::busyargs $x if {$x>2} {return 1} return 0 } set busyargs {} do_test busy-1.2 { db busy busy db2 eval {begin exclusive} catchsql {begin immediate} } {1 {database is locked}} do_test busy-1.3 { set busyargs } {0 1 2 3} db2 close finish_test |