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 |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6e1f4df51ad32e36715cba16f9df0d17 |
User & Date: | dan 2011-06-22 10:56:54.742 |
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: 6705f21eff user: shaneh tags: trunk) | |
12:01 | Update sessions branch with latest trunk changes. (check-in: 48d5cab3ac user: dan tags: sessions) | |
11:24 | Update apple-osx branch with the latest trunk changes. (check-in: fb7ad09dec 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: 6e1f4df51a 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: 065e5a5ea4 user: dan tags: trunk) | |
Changes
Changes to test/types3.test.
︙ | ︙ | |||
17 18 19 20 21 22 23 | 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 {} | | | 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)}] |
︙ | ︙ |