Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Test that if the definition of a collation sequence is changed and VACUUM run, the new database contains records sorted in the (new) correct order. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
ce6eaac10a190b26b87bfe75918e2ef5 |
User & Date: | dan 2015-04-13 14:08:27.490 |
Context
2015-04-13
| ||
14:44 | Remove a faulty assert() from the btree balancing logic. (check-in: d06669d968 user: drh tags: trunk) | |
14:08 | Test that if the definition of a collation sequence is changed and VACUUM run, the new database contains records sorted in the (new) correct order. (check-in: ce6eaac10a user: dan tags: trunk) | |
14:03 | Remove an unreachable branch from the VACUUM logic. (check-in: 65ace4b062 user: drh tags: trunk) | |
Changes
Changes to test/vacuum2.test.
︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # This file implements regression tests for SQLite library. The # focus of this file is testing the VACUUM statement. # # $Id: vacuum2.test,v 1.10 2009/02/18 20:31:18 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Do not use a codec for tests in this file, as the database file is # manipulated directly using tcl scripts (using the [hexio_write] command). # do_not_use_codec # If the VACUUM statement is disabled in the current build, skip all | > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # This file implements regression tests for SQLite library. The # focus of this file is testing the VACUUM statement. # # $Id: vacuum2.test,v 1.10 2009/02/18 20:31:18 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl set testprefix vacuum2 # Do not use a codec for tests in this file, as the database file is # manipulated directly using tcl scripts (using the [hexio_write] command). # do_not_use_codec # If the VACUUM statement is disabled in the current build, skip all |
︙ | ︙ | |||
223 224 225 226 227 228 229 230 231 | db eval {SELECT a, b FROM t1 WHERE a<=10} { if {$a==6} { set res [catchsql VACUUM] } lappend res2 $a } lappend res2 $res } {1 2 3 4 5 6 7 8 9 10 {1 {cannot VACUUM - SQL statements in progress}}} finish_test | > > > > > > > > > > > > > > > > > > > | 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 | db eval {SELECT a, b FROM t1 WHERE a<=10} { if {$a==6} { set res [catchsql VACUUM] } lappend res2 $a } lappend res2 $res } {1 2 3 4 5 6 7 8 9 10 {1 {cannot VACUUM - SQL statements in progress}}} #------------------------------------------------------------------------- # Check that if the definition of a collation sequence is changed and # VACUUM run, records are store in the (new) correct order following the # VACUUM. Even if the modified collation is attached to a PK of a WITHOUT # ROWID table. proc cmp {lhs rhs} { string compare $lhs $rhs } db collate cmp cmp do_execsql_test 6.0 { CREATE TABLE t6(x PRIMARY KEY COLLATE cmp, y) WITHOUT ROWID; CREATE INDEX t6y ON t6(y); INSERT INTO t6 VALUES('i', 'one'); INSERT INTO t6 VALUES('ii', 'one'); INSERT INTO t6 VALUES('iii', 'one'); } integrity_check 6.1 proc cmp {lhs rhs} { string compare $rhs $lhs } do_execsql_test 6.2 VACUUM integrity_check 6.3 finish_test |