Differences From Artifact [3633fe59bf]:

• File tests/result.test — part of check-in [dbfd75f43f] at 1999-06-26 20:55:07 on branch trunk — Fixed style problems in many of the test files. Fixed bug in pkg.test where defs.tcl was still being used. (user: rjohnson size: 3130)

To Artifact [3fb416408a]:

• File tests/result.test — part of check-in [6b946e4c34] at 1999-07-01 17:36:17 on branch trunk — Changed the tests to use the testConstraints array that the test harness uses instead of the old name (testConfig). (user: jenn size: 3135)

15
16
17
18
19
20
21
22

23
24
25
26
27
28
29

15
16
17
18
19
20
21

22
23
24
25
26
27
28
29

-
+

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

# Some tests require the testsaveresult command

set ::tcltest::testConfig(testsaveresult) \
set ::tcltest::testConstraints(testsaveresult) \
	[expr {[info commands testsaveresult] != {}}]

test result-1.1 {Tcl_SaveInterpResult} {testsaveresult} {
    testsaveresult small {set x 42} 0
} {small result}
test result-1.2 {Tcl_SaveInterpResult} {testsaveresult} {
    testsaveresult append {set x 42} 0