Tcl Source Code

Check-in [ead92ba131]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment: Fixed test that would only work with debug builds.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-1-branch-old
Files: files | file ages | folders
SHA1: ead92ba131f046804b0aabafaacbe1b89366b9a7
User & Date: rjohnson 1999-04-06 00:01:35.000
Context
1999-04-06
00:29
* tests/winTime.test: * win/tclWinTime.c: Fixed crash in clock command that occurred when manipulati... check-in: 0b5707f7e3 user: stanton tags: core-8-1-branch-old
00:01
Fixed test that would only work with debug builds. check-in: ead92ba131 user: rjohnson tags: core-8-1-branch-old
1999-04-05
23:34
Fixed httpold 4.12 check-in: cf698a5352 user: welch tags: core-8-1-branch-old
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/platform.test.
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}

test platform-1.1 {TclpSetVariables: tcl_platform} {
    interp create i
    i eval {unset tcl_platform(debug)}
    set result [i eval {lsort [array names tcl_platform]}]
    interp delete i
    set result
} {byteOrder machine os osVersion platform user}

# cleanup
::tcltest::cleanupTests







|







13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

if {[lsearch [namespace children] ::tcltest] == -1} {
    source [file join [pwd] [file dirname [info script]] defs.tcl]
}

test platform-1.1 {TclpSetVariables: tcl_platform} {
    interp create i
    i eval {catch {unset tcl_platform(debug)}}
    set result [i eval {lsort [array names tcl_platform]}]
    interp delete i
    set result
} {byteOrder machine os osVersion platform user}

# cleanup
::tcltest::cleanupTests