Differences From Artifact [be4cc889f6]:

• File tests/platform.test — part of check-in [83929e34ec] at 1999-03-24 02:48:54 on branch core-8-1-branch-old — lint: changed a tcltest namespace variable name from tmpDir to workingDir. changes: made more tests atomic. README is now updated to match new test suite features. (user: hershey size: 767)

To Artifact [481c191ea8]:

• File tests/platform.test — part of check-in [2064a18cad] at 1999-04-05 23:14:18 on branch core-8-1-branch-old — * tests/platform.test: * tests/fileName.test: Fixed broken tests. (user: stanton size: 883)

12
13
14
15
16
17
18


19


20
21
22
23
24
25
26

# RCS: @(#) 

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

test platform-1.1 {TclpSetVariables: tcl_platform} {


    lsort [array names tcl_platform]


} {byteOrder machine os osVersion platform user}

# cleanup
::tcltest::cleanupTests
return

>
>
|
>
>

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

# RCS: @(#) 

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
return