Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Change savepoint4.test to limit database growth. Otherwise the test can take a very long time to run, depending on the prng. (CVS 6737) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ed1d4f47ee9a2bcafdee92ee6bfcb2b0 |
| User & Date: | danielk1977 2009-06-09 15:25:33 |
Context
|
2009-06-09
| ||
| 18:01 | Changes to tokenize.c to facilitate full coverage testing. (CVS 6738) check-in: 5e8c48cf user: drh tags: trunk | |
| 15:25 | Change savepoint4.test to limit database growth. Otherwise the test can take a very long time to run, depending on the prng. (CVS 6737) check-in: ed1d4f47 user: danielk1977 tags: trunk | |
| 14:27 | Modify mkkeywordhash.c so that it puts the original text of each token in a comment beside the "testcase()" macros. (CVS 6736) check-in: a7d0817c user: drh tags: trunk | |
Changes
Changes to test/savepoint4.test.
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
# # 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: savepoint4.test,v 1.6 2009/06/05 17:09:12 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !crashtest { finish_test return ................................................................................ SAVEPOINT three; DELETE FROM t1 WHERE (random()%10)==0; SAVEPOINT four; DELETE FROM t1 WHERE (random()%10)==0; RELEASE two; SAVEPOINT three; UPDATE t1 SET x = x||x WHERE (rowid%12)==0; SAVEPOINT four; UPDATE t1 SET x = x||x WHERE (rowid%14)==0; ROLLBACK TO three; UPDATE t1 SET x = x||x WHERE (rowid%13)==0; RELEASE three; DELETE FROM t1 WHERE rowid > (SELECT rowid FROM t1 LIMIT 1 OFFSET 256); RELEASE one; }] set crashed [lindex $ret 0] if {$crashed} { signature } else { |
|
|
|
|
|
>
>
|
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
# # 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: savepoint4.test,v 1.7 2009/06/09 15:25:33 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !crashtest { finish_test return ................................................................................ SAVEPOINT three; DELETE FROM t1 WHERE (random()%10)==0; SAVEPOINT four; DELETE FROM t1 WHERE (random()%10)==0; RELEASE two; SAVEPOINT three; UPDATE t1 SET x = substr(x||x, 12, 100000) WHERE (rowid%12)==0; SAVEPOINT four; UPDATE t1 SET x = substr(x||x, 14, 100000) WHERE (rowid%14)==0; ROLLBACK TO three; UPDATE t1 SET x = substr(x||x, 13, 100000) WHERE (rowid%13)==0; RELEASE three; DELETE FROM t1 WHERE rowid > ( SELECT rowid FROM t1 ORDER BY rowid ASC LIMIT 1 OFFSET 256 ); RELEASE one; }] set crashed [lindex $ret 0] if {$crashed} { signature } else { |