Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Modify tclsqlite.test so that it works reliably with tcl 8.5.4. (CVS 5640) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
790d329f5d18d361a5d6d34f46c269f8 |
| User & Date: | danielk1977 2008-08-29 15:54:57 |
Context
|
2008-08-29
| ||
| 17:56 | Move a call to sqlite3_mutex_leave() to protect calls to sqlite3StatusAdd() related to scratch (SQLITE_CONFIG_SCRATCH) memory. (CVS 5641) check-in: 4e011ddf user: danielk1977 tags: trunk | |
| 15:54 | Modify tclsqlite.test so that it works reliably with tcl 8.5.4. (CVS 5640) check-in: 790d329f user: danielk1977 tags: trunk | |
| 12:00 | In permutations.test, disable tests that depend on soft-heap-limit functionality when running the memsubsys2 variant. It disables the soft-heap-limit. (CVS 5639) check-in: 047c7bdb user: danielk1977 tags: trunk | |
Changes
Changes to test/tclsqlite.test.
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
...
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
# This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # # $Id: tclsqlite.test,v 1.66 2008/08/25 19:09:02 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # if {[sqlite3 -has-codec]} { ................................................................................ ifcapable {tclvar} { # Parsing of TCL variable names within SQL into bound parameters. # do_test tcl-5.1 { execsql {CREATE TABLE t3(a,b,c)} catch {unset x} set x(1) 5 set x(2) 7 execsql { INSERT INTO t3 VALUES($::x(1),$::x(2),$::x(3)); SELECT * FROM t3 } } {5 7 {}} do_test tcl-5.2 { execsql { SELECT typeof(a), typeof(b), typeof(c) FROM t3 } } {text text null} do_test tcl-5.3 { catch {unset x} |
|
|
|
|
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
...
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
# This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # # $Id: tclsqlite.test,v 1.67 2008/08/29 15:54:57 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # if {[sqlite3 -has-codec]} { ................................................................................ ifcapable {tclvar} { # Parsing of TCL variable names within SQL into bound parameters. # do_test tcl-5.1 { execsql {CREATE TABLE t3(a,b,c)} catch {unset x} set x(1) A set x(2) B execsql { INSERT INTO t3 VALUES($::x(1),$::x(2),$::x(3)); SELECT * FROM t3 } } {A B {}} do_test tcl-5.2 { execsql { SELECT typeof(a), typeof(b), typeof(c) FROM t3 } } {text text null} do_test tcl-5.3 { catch {unset x} |