Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Change a test case in types3.test slightly so that it works with the latest versions of Tcl. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6e1f4df51ad32e36715cba16f9df0d17 |
| User & Date: | dan 2011-06-22 10:56:54 |
Context
|
2011-06-22
| ||
| 14:21 | Add a flush of stdout so some test code reading from a command pipe works correctly on Windows. (check-in: 6705f21e user: shaneh tags: trunk) | |
| 12:01 | Update sessions branch with latest trunk changes. (check-in: 48d5cab3 user: dan tags: sessions) | |
| 11:24 | Update apple-osx branch with the latest trunk changes. (check-in: fb7ad09d user: dan tags: apple-osx) | |
| 10:56 | Change a test case in types3.test slightly so that it works with the latest versions of Tcl. (check-in: 6e1f4df5 user: dan tags: trunk) | |
| 10:37 | Modify the implementation of the test code in test_vfs.c so that test VFS objects may be invoked recursively. (check-in: 065e5a5e user: dan tags: trunk) | |
Changes
Changes to test/types3.test.
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# A variable with only a string representation comes in as TEXT
do_test types3-1.1 {
set V {}
append V {}
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
} {string text}
# A variable with an integer representation comes in as INTEGER
do_test types3-1.2 {
set V [expr {int(1+2)}]
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
|
| |
17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# A variable with only a string representation comes in as TEXT
do_test types3-1.1 {
set V {}
append V x
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
} {string text}
# A variable with an integer representation comes in as INTEGER
do_test types3-1.2 {
set V [expr {int(1+2)}]
concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
|