Differences From Artifact [9050a6e588]:

• File tests/platform.test — part of check-in [2d21c46440] at 1999-07-08 03:08:03 on branch trunk — Fixed bug in test suite - remember to update tests when changing features!!! (user: rjohnson size: 936)

To Artifact [0ce6b34ae1]:

• File tests/platform.test — part of check-in [c2f93a113c] at 2000-04-10 17:18:56 on branch trunk — * tests/*.test: Changed all occurances of "namespace import ::tcltest" to "namespace import -force ::tcltest" [Bug: 3948]. (user: ericm size: 943)

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) 

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import ::tcltest::*
}

test platform-1.1 {TclpSetVariables: tcl_platform} {
    interp create i
    i eval {catch {unset tcl_platform(debug)}}
    i eval {catch {unset tcl_platform(threaded)}}
    set result [i eval {lsort [array names tcl_platform]}]

|

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) 

if {[lsearch [namespace children] ::tcltest] == -1} {
    package require tcltest
    namespace import -force ::tcltest::*
}

test platform-1.1 {TclpSetVariables: tcl_platform} {
    interp create i
    i eval {catch {unset tcl_platform(debug)}}
    i eval {catch {unset tcl_platform(threaded)}}
    set result [i eval {lsort [array names tcl_platform]}]