/ Check-in [6e1f4df5]
Login

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: 6e1f4df51ad32e36715cba16f9df0d17a08dc653
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/types3.test.

    17     17   
    18     18   set testdir [file dirname $argv0]
    19     19   source $testdir/tester.tcl
    20     20   
    21     21   # A variable with only a string representation comes in as TEXT
    22     22   do_test types3-1.1 {
    23     23     set V {}
    24         -  append V {}
           24  +  append V x
    25     25     concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
    26     26   } {string text}
    27     27   
    28     28   # A variable with an integer representation comes in as INTEGER
    29     29   do_test types3-1.2 {
    30     30     set V [expr {int(1+2)}]
    31     31     concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]