Differences From Artifact [49f1c01fce]:

• File tests/safe.test — part of check-in [82111a0a9f] at 2018-10-07 19:34:52 on branch core-8-branch — Centralise the de-fanging of standard ensembles in safe interpreters. Doing it right once is easier than repeating hacks... (user: dkf size: 30080) [more...]

To Artifact [7102737e51]:

• File tests/safe.test — part of check-in [58ebbfcc7e] at 2020-06-18 12:47:45 on branch strict-index-experiment — Use more "string is none" in testcases in stead of directly comparing with -1 (user: jan.nijtmans size: 30091) [more...]

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

# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.5-

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

foreach i [interp slaves] {
    interp delete $i
}

|

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

# Copyright (c) 1998-1999 by Scriptics Corporation.
#
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.

package require Tcl 8.5-

if {[string is none [lsearch [namespace children] ::tcltest]]} {
    package require tcltest 2
    namespace import -force ::tcltest::*
}

foreach i [interp slaves] {
    interp delete $i
}