diff options
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test index 322ae35..4e735be 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -10,15 +10,15 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.10 2000/04/10 17:19:05 ericm Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.11 2000/09/20 23:09:55 jenn Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* } makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* test a-1.0 {test a} { list 0 @@ -147,7 +147,7 @@ test tcltest-5.1 {tcltest -constraints 'knownBug'} {unixOrPc} { } {0 0 0 1 1} makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* puts $::tcltest::outputChannel "a test" ::tcltest::PrintError "a really short string" @@ -215,7 +215,7 @@ test tcltest-7.5 {tcltest test.tcl -d 3} {unixOrPc} { } {1 1} makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* makeFile {} a.tmp exit @@ -313,7 +313,7 @@ test tcltest-9.2 {-file a*.tcl} {unixOrPc} { makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* test makecore {make a core file} { @@ -349,7 +349,7 @@ test tcltest-10.4 {-preservecore 3} {unixOrPc} { } {1 1 1 {}} makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* puts "=$::tcltest::parameters=" exit @@ -373,7 +373,7 @@ test tcltest-11.3 {-args {-foo bar -baz}} {unixOrPc} { # -load -loadfile makeFile { - package require tcltest + package require tcltest 1.0 namespace import -force ::tcltest::* puts $::tcltest::loadScript exit |