Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | All tests pass even if compiled with -DSQLITE_DEFAULT_FILE_FORMAT=1. (CVS 3308) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 8a49311d2f50cf2ca24776cabcb8ec74 |
User & Date: | drh 2006-06-27 12:51:13 |
Context
2006-06-27
| ||
13:20 | Changes so that it will build with SQLITE_OMIT_VIRTUALTABLE=1. (CVS 3309) check-in: 5612b287 user: drh tags: trunk | |
12:51 | All tests pass even if compiled with -DSQLITE_DEFAULT_FILE_FORMAT=1. (CVS 3308) check-in: 8a49311d user: drh tags: trunk | |
12:25 | Fix up the test tclvar virtual module. (CVS 3307) check-in: a20bfa46 user: danielk1977 tags: trunk | |
Changes
Changes to src/test1.c.
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
....
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
|
** May you share freely, never taking more than you give. ** ************************************************************************* ** Code for testing all sorts of SQLite interfaces. This code ** is not included in the SQLite library. It is used for automated ** testing of the SQLite library. ** ** $Id: test1.c,v 1.213 2006/06/27 07:34:40 danielk1977 Exp $ */ #include "sqliteInt.h" #include "tcl.h" #include "os.h" #include <stdlib.h> #include <string.h> ................................................................................ #endif #ifdef SQLITE_OMIT_INTEGRITY_CHECK Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); #else Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY); #endif #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY); #else Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY); #endif |
|
>
>
>
>
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
....
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
|
** May you share freely, never taking more than you give. ** ************************************************************************* ** Code for testing all sorts of SQLite interfaces. This code ** is not included in the SQLite library. It is used for automated ** testing of the SQLite library. ** ** $Id: test1.c,v 1.214 2006/06/27 12:51:13 drh Exp $ */ #include "sqliteInt.h" #include "tcl.h" #include "os.h" #include <stdlib.h> #include <string.h> ................................................................................ #endif #ifdef SQLITE_OMIT_INTEGRITY_CHECK Tcl_SetVar2(interp, "sqlite_options", "integrityck", "0", TCL_GLOBAL_ONLY); #else Tcl_SetVar2(interp, "sqlite_options", "integrityck", "1", TCL_GLOBAL_ONLY); #endif #if defined(SQLITE_DEFAULT_FILE_FORMAT) && SQLITE_DEFAULT_FILE_FORMAT==1 Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "1", TCL_GLOBAL_ONLY); #else Tcl_SetVar2(interp, "sqlite_options", "legacyformat", "0", TCL_GLOBAL_ONLY); #endif #ifdef SQLITE_OMIT_LIKE_OPTIMIZATION Tcl_SetVar2(interp, "sqlite_options", "like_opt", "0", TCL_GLOBAL_ONLY); #else Tcl_SetVar2(interp, "sqlite_options", "like_opt", "1", TCL_GLOBAL_ONLY); #endif |
Changes to test/descidx1.test.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #************************************************************************* # This file implements regression tests for SQLite library. The # focus of this script is descending indices. # # $Id: descidx1.test,v 1.5 2006/01/16 16:24:25 danielk1977 Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl # This procedure sets the value of the file-format in file 'test.db' # to $newval. Also, the schema cookie is incremented. # proc set_file_format {newval} { set bt [btree_open test.db 10 0] btree_begin_transaction $bt |
| > > > > > |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #************************************************************************* # This file implements regression tests for SQLite library. The # focus of this script is descending indices. # # $Id: descidx1.test,v 1.6 2006/06/27 12:51:13 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable legacyformat { finish_test return } # This procedure sets the value of the file-format in file 'test.db' # to $newval. Also, the schema cookie is incremented. # proc set_file_format {newval} { set bt [btree_open test.db 10 0] btree_begin_transaction $bt |
Changes to test/descidx2.test.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
# May you find forgiveness for yourself and forgive others.
# May you share freely, never taking more than you give.
#
#*************************************************************************
# This file implements regression tests for SQLite library. The
# focus of this script is descending indices.
#
# $Id: descidx2.test,v 1.2 2005/12/29 19:23:07 drh Exp $
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# This procedure sets the value of the file-format in file 'test.db'
# to $newval. Also, the schema cookie is incremented.
#
proc set_file_format {newval} {
set bt [btree_open test.db 10 0]
btree_begin_transaction $bt
|
| > > > > > |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #************************************************************************* # This file implements regression tests for SQLite library. The # focus of this script is descending indices. # # $Id: descidx2.test,v 1.3 2006/06/27 12:51:13 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable legacyformat { finish_test return } # This procedure sets the value of the file-format in file 'test.db' # to $newval. Also, the schema cookie is incremented. # proc set_file_format {newval} { set bt [btree_open test.db 10 0] btree_begin_transaction $bt |
Changes to test/descidx3.test.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #************************************************************************* # This file implements regression tests for SQLite library. The # focus of this script is descending indices. # # $Id: descidx3.test,v 1.3 2006/01/16 16:24:25 danielk1977 Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !bloblit { finish_test return } # This procedure sets the value of the file-format in file 'test.db' # to $newval. Also, the schema cookie is incremented. # |
| | |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #************************************************************************* # This file implements regression tests for SQLite library. The # focus of this script is descending indices. # # $Id: descidx3.test,v 1.4 2006/06/27 12:51:13 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!bloblit || legacyformat} { finish_test return } # This procedure sets the value of the file-format in file 'test.db' # to $newval. Also, the schema cookie is incremented. # |
Changes to test/format4.test.
12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
# # This file implements tests to verify that the new serial_type # values of 8 (integer 0) and 9 (integer 1) work correctly. # set testdir [file dirname $argv0] source $testdir/tester.tcl do_test format4-1.1 { execsql { CREATE TABLE t1(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9); INSERT INTO t1 VALUES(0,0,0,0,0,0,0,0,0,0); INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; |
> > > > > |
12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
# # This file implements tests to verify that the new serial_type # values of 8 (integer 0) and 9 (integer 1) work correctly. # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable legacyformat { finish_test return } do_test format4-1.1 { execsql { CREATE TABLE t1(x0,x1,x2,x3,x4,x5,x6,x7,x8,x9); INSERT INTO t1 VALUES(0,0,0,0,0,0,0,0,0,0); INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; |
Changes to test/types.test.
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ... 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 ... 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 |
# May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. Specfically # it tests that the different storage classes (integer, real, text etc.) # all work correctly. # # $Id: types.test,v 1.18 2006/01/06 22:11:21 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Tests in this file are organized roughly as follows: # # types-1.*.*: Test that values are stored using the expected storage ................................................................................ execsql { SELECT a FROM t1; } } [list 0 120 -120 30000 -30000 2100000000 -2100000000 \ 9000000000000000000 -9000000000000000000] # Check that all the record sizes are as we expected. do_test types-2.1.9 { set root [db eval {select rootpage from sqlite_master where name = 't1'}] record_sizes $root } {2 3 3 4 4 6 6 10 10} # Insert some reals. These should be 10 byte records. do_test types-2.2.1 { execsql { CREATE TABLE t2(a float); INSERT INTO t2 VALUES(0.0); INSERT INTO t2 VALUES(12345.678); INSERT INTO t2 VALUES(-12345.678); ................................................................................ do_test types-2.2.2 { execsql { SELECT a FROM t2; } } {0.0 12345.678 -12345.678} # Check that all the record sizes are as we expected. do_test types-2.2.3 { set root [db eval {select rootpage from sqlite_master where name = 't2'}] record_sizes $root } {2 10 10} # Insert a NULL. This should be a two byte record. do_test types-2.3.1 { execsql { CREATE TABLE t3(a nullvalue); INSERT INTO t3 VALUES(NULL); } } {} |
| > | | | > > > > > | | > > | | | > > > > > | | > |
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ... 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 ... 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 |
# May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. Specfically # it tests that the different storage classes (integer, real, text etc.) # all work correctly. # # $Id: types.test,v 1.19 2006/06/27 12:51:13 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Tests in this file are organized roughly as follows: # # types-1.*.*: Test that values are stored using the expected storage ................................................................................ execsql { SELECT a FROM t1; } } [list 0 120 -120 30000 -30000 2100000000 -2100000000 \ 9000000000000000000 -9000000000000000000] # Check that all the record sizes are as we expected. ifcapable legacyformat { do_test types-2.1.9 { set root [db eval {select rootpage from sqlite_master where name = 't1'}] record_sizes $root } {3 3 3 4 4 6 6 10 10} } else { do_test types-2.1.9 { set root [db eval {select rootpage from sqlite_master where name = 't1'}] record_sizes $root } {2 3 3 4 4 6 6 10 10} } # Insert some reals. These should be 10 byte records. do_test types-2.2.1 { execsql { CREATE TABLE t2(a float); INSERT INTO t2 VALUES(0.0); INSERT INTO t2 VALUES(12345.678); INSERT INTO t2 VALUES(-12345.678); ................................................................................ do_test types-2.2.2 { execsql { SELECT a FROM t2; } } {0.0 12345.678 -12345.678} # Check that all the record sizes are as we expected. ifcapable legacyformat { do_test types-2.2.3 { set root [db eval {select rootpage from sqlite_master where name = 't2'}] record_sizes $root } {3 10 10} } else { do_test types-2.2.3 { set root [db eval {select rootpage from sqlite_master where name = 't2'}] record_sizes $root } {2 10 10} } # Insert a NULL. This should be a two byte record. do_test types-2.3.1 { execsql { CREATE TABLE t3(a nullvalue); INSERT INTO t3 VALUES(NULL); } } {} |