Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Vtab2.test script works regardless of what TCL version is used. (CVS 3350) |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6df3f6761a16ac5a02152f3c7f0c0e49 |
User & Date: | drh 2006-08-13 18:43:55 |
Context
2006-08-13
| ||
19:04 | Add vdbeaux.c to the list of files that must be compiled with -DSQLITE_TEST=1 in order to generate testfixture. Do not require sqlit3OsDelete() to succeed on a multi-database commit. (Ticket #1917) (CVS 3351) check-in: dfc833ac user: drh tags: trunk | |
18:43 | Vtab2.test script works regardless of what TCL version is used. (CVS 3350) check-in: 6df3f676 user: drh tags: trunk | |
18:39 | Compile in test code whenever -DSQLITE_TEST=1 is present. Do not rely on -DSQLITE_DEBUG=1 because somebody might try to run the tests without it. (CVS 3349) check-in: 867defe3 user: drh tags: trunk | |
Changes
Changes to test/vtab2.test.
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
# 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 implements regression tests for SQLite library. # # $Id: vtab2.test,v 1.4 2006/06/27 12:25:00 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !vtab||!schema_pragmas { finish_test return ................................................................................ set A(1) 1 set A(2) 4 set A(3) 9 execsql { SELECT * FROM vars WHERE name='A'; } } [list A 1 1 A 2 4 A 3 9] do_test vtab2-2.3 { execsql { SELECT name, value FROM vars WHERE name MATCH 'tcl_*' AND arrayname = '' ORDER BY name; } } [list \ tcl_patchLevel $tcl_patchLevel \ tcl_pkgPath $tcl_pkgPath \ tcl_precision $tcl_precision \ tcl_version $tcl_version \ ] finish_test |
|
>
>
>
>
|
<
<
<
<
|
<
<
|
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
..
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
# 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 implements regression tests for SQLite library. # # $Id: vtab2.test,v 1.5 2006/08/13 18:43:55 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !vtab||!schema_pragmas { finish_test return ................................................................................ set A(1) 1 set A(2) 4 set A(3) 9 execsql { SELECT * FROM vars WHERE name='A'; } } [list A 1 1 A 2 4 A 3 9] set result {} foreach var [lsort [info vars tcl_*]] { catch {lappend result $var [set $var]} } do_test vtab2-2.3 { execsql { SELECT name, value FROM vars WHERE name MATCH 'tcl_*' AND arrayname = '' ORDER BY name; } } $result finish_test |