summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-xtests/tcltest.test16
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