summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-04-01 21:06:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-04-01 21:06:12 (GMT)
commit5dd4bde76554ecf958bc38bdac2bc8b475c44892 (patch)
treeb4c1ef216ce065ee1d996973ed53d862904215cc
parentb48c54d6cd003bbe162300a7770f2394830bbd7e (diff)
downloadtk-5dd4bde76554ecf958bc38bdac2bc8b475c44892.zip
tk-5dd4bde76554ecf958bc38bdac2bc8b475c44892.tar.gz
tk-5dd4bde76554ecf958bc38bdac2bc8b475c44892.tar.bz2
* tests/all.tcl: Made better use of a common
* tests/constraints.tcl: -loadfile to hold definitions * tests/*.test: common to all test files.
-rw-r--r--ChangeLog6
-rw-r--r--tests/all.tcl4
-rw-r--r--tests/bell.test9
-rw-r--r--tests/bgerror.test9
-rw-r--r--tests/bind.test9
-rw-r--r--tests/bitmap.test9
-rw-r--r--tests/border.test9
-rw-r--r--tests/button.test9
-rw-r--r--tests/canvImg.test9
-rw-r--r--tests/canvPs.test12
-rw-r--r--tests/canvRect.test9
-rw-r--r--tests/canvText.test9
-rw-r--r--tests/canvWind.test9
-rw-r--r--tests/canvas.test9
-rw-r--r--tests/choosedir.test11
-rw-r--r--tests/clipboard.test9
-rw-r--r--tests/clrpick.test9
-rw-r--r--tests/cmds.test9
-rw-r--r--tests/color.test9
-rw-r--r--tests/config.test9
-rw-r--r--tests/constraints.tcl8
-rw-r--r--tests/cursor.test15
-rw-r--r--tests/dialog.test9
-rw-r--r--tests/embed.test9
-rw-r--r--tests/entry.test9
-rw-r--r--tests/event.test9
-rw-r--r--tests/filebox.test12
-rw-r--r--tests/focus.test9
-rw-r--r--tests/focusTcl.test9
-rw-r--r--tests/font.test9
-rw-r--r--tests/frame.test9
-rw-r--r--tests/geometry.test9
-rw-r--r--tests/get.test9
-rw-r--r--tests/grab.test9
-rw-r--r--tests/grid.test9
-rw-r--r--tests/id.test9
-rw-r--r--tests/image.test13
-rw-r--r--tests/imgBmap.test12
-rw-r--r--tests/imgPPM.test12
-rw-r--r--tests/imgPhoto.test12
-rw-r--r--tests/listbox.test9
-rw-r--r--tests/macEmbed.test9
-rw-r--r--tests/macFont.test9
-rw-r--r--tests/macMenu.test9
-rw-r--r--tests/macWinMenu.test9
-rw-r--r--tests/macscrollbar.test9
-rw-r--r--tests/main.test13
-rw-r--r--tests/menu.test9
-rw-r--r--tests/menuDraw.test9
-rw-r--r--tests/menubut.test9
-rw-r--r--tests/message.test9
-rw-r--r--tests/msgbox.test9
-rw-r--r--tests/obj.test9
-rw-r--r--tests/oldpack.test9
-rw-r--r--tests/option.test12
-rw-r--r--tests/pack.test9
-rw-r--r--tests/panedwindow.test9
-rw-r--r--tests/place.test9
-rw-r--r--tests/raise.test9
-rw-r--r--tests/safe.test9
-rw-r--r--tests/scale.test9
-rw-r--r--tests/scrollbar.test9
-rw-r--r--tests/select.test11
-rw-r--r--tests/send.test9
-rw-r--r--tests/spinbox.test9
-rw-r--r--tests/text.test9
-rw-r--r--tests/textBTree.test9
-rw-r--r--tests/textDisp.test13
-rw-r--r--tests/textImage.test9
-rw-r--r--tests/textIndex.test9
-rw-r--r--tests/textMark.test9
-rw-r--r--tests/textTag.test9
-rw-r--r--tests/textWind.test9
-rw-r--r--tests/tk.test9
-rw-r--r--tests/unixButton.test9
-rw-r--r--tests/unixEmbed.test9
-rw-r--r--tests/unixFont.test9
-rw-r--r--tests/unixMenu.test9
-rw-r--r--tests/unixSelect.test9
-rw-r--r--tests/unixWm.test13
-rw-r--r--tests/util.test9
-rw-r--r--tests/visual.test9
-rw-r--r--tests/visual_bb.test9
-rw-r--r--tests/winButton.test9
-rw-r--r--tests/winClipboard.test11
-rw-r--r--tests/winDialog.test9
-rw-r--r--tests/winFont.test9
-rw-r--r--tests/winMenu.test9
-rw-r--r--tests/winSend.test11
-rw-r--r--tests/winWm.test9
-rw-r--r--tests/window.test12
-rw-r--r--tests/winfo.test9
-rw-r--r--tests/wm.test9
-rw-r--r--tests/xmfbox.test9
94 files changed, 292 insertions, 596 deletions
diff --git a/ChangeLog b/ChangeLog
index 6e373da..feb5806 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-04-01 Don Porter <dgp@users.sourceforge.net>
+
+ * tests/all.tcl: Made better use of a common
+ * tests/constraints.tcl: -loadfile to hold definitions
+ * tests/*.test: common to all test files.
+
2003-03-27 Mo DeJong <mdejong@users.sourceforge.net>
* unix/configure: Regen.
diff --git a/tests/all.tcl b/tests/all.tcl
index dbfe6c6..56d570f 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -9,11 +9,13 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: all.tcl,v 1.7 2002/07/14 05:48:45 dgp Exp $
+# RCS: @(#) $Id: all.tcl,v 1.8 2003/04/01 21:06:14 dgp Exp $
package require Tcl 8.4
package require tcltest 2.1
tcltest::configure -testdir [file join [pwd] [file dirname [info script]]]
+tcltest::configure -loadfile \
+ [file join [tcltest::testsDirectory] constraints.tcl]
tcltest::configure -singleproc 1
eval tcltest::configure $argv
tcltest::runAllTests
diff --git a/tests/bell.test b/tests/bell.test
index 3c0975b..59bfca6 100644
--- a/tests/bell.test
+++ b/tests/bell.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-2000 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bell.test,v 1.6 2002/07/14 05:48:45 dgp Exp $
+# RCS: @(#) $Id: bell.test,v 1.7 2003/04/01 21:06:15 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test bell-1.1 {bell command} {
@@ -47,7 +44,7 @@ test bell-1.8 {bell command} {
} {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/bgerror.test b/tests/bgerror.test
index dab97fd..e104980 100644
--- a/tests/bgerror.test
+++ b/tests/bgerror.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bgerror.test,v 1.4 2002/07/14 05:48:45 dgp Exp $
+# RCS: @(#) $Id: bgerror.test,v 1.5 2003/04/01 21:06:15 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test bgerror-1.1 {bgerror / tkerror compat} {
@@ -59,7 +56,7 @@ catch {rename tkerror {}}
# to emulate.
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/bind.test b/tests/bind.test
index b7df78b..9ecee81 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bind.test,v 1.11 2003/02/28 15:55:34 dkf Exp $
+# RCS: @(#) $Id: bind.test,v 1.12 2003/04/01 21:06:16 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .b}
@@ -2684,5 +2681,5 @@ test bind-31.2 {MouseWheel events} {
destroy .b
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/bitmap.test b/tests/bitmap.test
index bb5a50f..f81613d 100644
--- a/tests/bitmap.test
+++ b/tests/bitmap.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: bitmap.test,v 1.3 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: bitmap.test,v 1.4 2003/04/01 21:06:17 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testbitmap [llength [info commands testbitmap]]
@@ -94,7 +91,7 @@ test bitmap-4.1 {FreeBitmapObjProc} testbitmap {
destroy .t
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/border.test b/tests/border.test
index 55df1e4..0bf08b8 100644
--- a/tests/border.test
+++ b/tests/border.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: border.test,v 1.3 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: border.test,v 1.4 2003/04/01 21:06:17 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testborder [llength [info commands testborder]]
@@ -164,7 +161,7 @@ if {[testConstraint pseudocolor8]} {
}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/button.test b/tests/button.test
index 794c7b4..a087238 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: button.test,v 1.13 2002/09/02 23:32:35 hobbs Exp $
+# RCS: @(#) $Id: button.test,v 1.14 2003/04/01 21:06:17 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
proc bogusTrace args {
@@ -808,5 +805,5 @@ deleteWindows
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvImg.test b/tests/canvImg.test
index 94292d2..e848bf3 100644
--- a/tests/canvImg.test
+++ b/tests/canvImg.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvImg.test,v 1.5 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: canvImg.test,v 1.6 2003/04/01 21:06:18 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
eval image delete [image names]
@@ -392,7 +389,7 @@ test canvImg-11.3 {ImageChangedProc procedure} testImageType {
} {{foo2 display 0 0 20 40 50 40}}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvPs.test b/tests/canvPs.test
index 8ab93a0..0b8392c 100644
--- a/tests/canvPs.test
+++ b/tests/canvPs.test
@@ -6,18 +6,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvPs.test,v 1.5 2002/10/10 07:25:24 hobbs Exp $
+# RCS: @(#) $Id: canvPs.test,v 1.6 2003/04/01 21:06:18 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
canvas .c -width 400 -height 300 -bd 2 -relief sunken
.c create rectangle 20 20 80 80 -fill red
pack .c
@@ -128,7 +122,7 @@ test canvPs-3.2 {test ps generation with an embedded window not mapped} {} {
removeFile foo.ps
removeFile bar.ps
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvRect.test b/tests/canvRect.test
index fafbb17..a9918e1 100644
--- a/tests/canvRect.test
+++ b/tests/canvRect.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvRect.test,v 1.6 2003/02/09 07:48:22 hobbs Exp $
+# RCS: @(#) $Id: canvRect.test,v 1.7 2003/04/01 21:06:18 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
canvas .c -width 400 -height 300 -bd 2 -relief sunken
@@ -324,7 +321,7 @@ end
}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvText.test b/tests/canvText.test
index 21f09a6..5d5acb9 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvText.test,v 1.12 2003/02/09 07:48:22 hobbs Exp $
+# RCS: @(#) $Id: canvText.test,v 1.13 2003/04/01 21:06:19 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
canvas .c -width 400 -height 300 -bd 2 -relief sunken
@@ -517,7 +514,7 @@ test canvText-18.1 {bug fix 2525, find enclosed on text with newlines} {
} 1
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvWind.test b/tests/canvWind.test
index e8077cb..37e6e34 100644
--- a/tests/canvWind.test
+++ b/tests/canvWind.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: canvWind.test,v 1.4 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: canvWind.test,v 1.5 2003/04/01 21:06:19 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test canvWind-1.1 {DisplayWinItem, windows off-screen vertically} {
@@ -130,7 +127,7 @@ test canvWind-1.4 {DisplayWinItem, windows off-screen horizontally} {
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/canvas.test b/tests/canvas.test
index ed470f9..5a2b5d3 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-2000 Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: canvas.test,v 1.16 2003/02/09 07:48:22 hobbs Exp $
+# RCS: @(#) $Id: canvas.test,v 1.17 2003/04/01 21:06:19 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# XXX - This test file is woefully incomplete. At present, only a
@@ -477,5 +474,5 @@ test canvas-16.1 {arc coords check} {
destroy .c
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/choosedir.test b/tests/choosedir.test
index e8da6a3..98831df 100644
--- a/tests/choosedir.test
+++ b/tests/choosedir.test
@@ -5,18 +5,13 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: choosedir.test,v 1.10 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: choosedir.test,v 1.11 2003/04/01 21:06:19 dgp Exp $
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeDirectory
-
#----------------------------------------------------------------------
#
# Procedures needed by this test file
@@ -150,5 +145,5 @@ test choosedir-5.1 "tk_chooseDirectory, handles {} entry text" {unixOnly} {
} $real
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/clipboard.test b/tests/clipboard.test
index ba937fc..2793aaf 100644
--- a/tests/clipboard.test
+++ b/tests/clipboard.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: clipboard.test,v 1.6 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: clipboard.test,v 1.7 2003/04/01 21:06:20 dgp Exp $
#
# Note: Multiple display clipboard handling will only be tested if the
@@ -14,10 +14,7 @@
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# set up a very large buffer to test INCR retrievals
@@ -245,7 +242,7 @@ test clipboard-7.16 {Tk_ClipboardCmd procedure} {
} {0 {} -type}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/clrpick.test b/tests/clrpick.test
index 77dce58..4e7d9c6 100644
--- a/tests/clrpick.test
+++ b/tests/clrpick.test
@@ -5,14 +5,11 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: clrpick.test,v 1.7 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: clrpick.test,v 1.8 2003/04/01 21:06:20 dgp Exp $
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test clrpick-1.1 {tk_chooseColor command} {
@@ -215,5 +212,5 @@ test clrpick-4.1 {tk_chooseColor: screen is inherited from parent} unixOnly {
} [winfo screen $parent]
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/cmds.test b/tests/cmds.test
index 87871b3..7e1680c 100644
--- a/tests/cmds.test
+++ b/tests/cmds.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: cmds.test,v 1.4 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: cmds.test,v 1.5 2003/04/01 21:06:20 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
update
@@ -43,7 +40,7 @@ test cmds-1.5 {tkwait visibility, window gets deleted} {
} {1 {window ".f.b" was deleted before its visibility changed} deleted}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/color.test b/tests/color.test
index fec3748..1cf5d37 100644
--- a/tests/color.test
+++ b/tests/color.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: color.test,v 1.6 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: color.test,v 1.7 2003/04/01 21:06:20 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testcolor [llength [info commands testcolor]]
@@ -272,5 +269,5 @@ test color-4.1 {FreeColorObjProc} colorsFree {
destroy .t
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/config.test b/tests/config.test
index df9c0c4..2822a21 100644
--- a/tests/config.test
+++ b/tests/config.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: config.test,v 1.6 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: config.test,v 1.7 2003/04/01 21:06:20 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testobjconfig [llength [info commands testobjconfig]]
@@ -893,5 +890,5 @@ deleteWindows
if {[testConstraint testobjconfig]} {
killTables
}
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/constraints.tcl b/tests/constraints.tcl
index 3006cca..f8c7a59 100644
--- a/tests/constraints.tcl
+++ b/tests/constraints.tcl
@@ -175,6 +175,14 @@ cleanupbg
eval tcltest::configure $argv
namespace import -force tcltest::test
+namespace import -force tcltest::makeFile
+namespace import -force tcltest::removeFile
+namespace import -force tcltest::makeDirectory
+namespace import -force tcltest::removeDirectory
+namespace import -force tcltest::interpreter
+namespace import -force tcltest::testsDirectory
+namespace import -force tcltest::cleanupTests
+namespace import -force tcltest::bytestring
deleteWindows
wm geometry . {}
diff --git a/tests/cursor.test b/tests/cursor.test
index 054fb0d..861853f 100644
--- a/tests/cursor.test
+++ b/tests/cursor.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: cursor.test,v 1.8 2002/09/03 00:22:37 hobbs Exp $
+# RCS: @(#) $Id: cursor.test,v 1.9 2003/04/01 21:06:22 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testcursor [llength [info commands testcursor]]
@@ -83,8 +80,8 @@ set wincur(data_binary) {}
foreach wincur(num) $wincur(data_octal) {
append wincur(data_binary) [binary format c 0$wincur(num)]
}
-set wincur(dir) [::tcltest::makeDirectory {dir with spaces}]
-set wincur(file) [::tcltest::makeFile $wincur(data_binary) "test file.cur" $wincur(dir)]
+set wincur(dir) [makeDirectory {dir with spaces}]
+set wincur(file) [makeFile $wincur(data_binary) "test file.cur" $wincur(dir)]
test cursor-2.3 {Tk_GetCursor procedure: cursor specs are lists} {pcOnly} {
destroy .b1
button .b1 -cursor [list @$wincur(file)]
@@ -93,7 +90,7 @@ test cursor-2.4 {Tk_GetCursor procedure: cursor specs are lists} {pcOnly} {
destroy .b1
button .b1 -cursor @[regsub -all {[][ \\{}""$#]} $wincur(file) {\\&}]
} {.b1}
-::tcltest::removeDirectory $wincur(dir)
+removeDirectory $wincur(dir)
unset wincur
test cursor-3.1 {Tk_FreeCursorFromObj - reference counts} {testcursor} {
@@ -135,5 +132,5 @@ test cursor-4.1 {FreeCursorObjProc} {testcursor} {
destroy .t
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/dialog.test b/tests/dialog.test
index a10eb44..45e00f8 100644
--- a/tests/dialog.test
+++ b/tests/dialog.test
@@ -1,14 +1,11 @@
# This file is a Tcl script to test out Tk's "tk_dialog" command.
# It is organized in the standard fashion for Tcl tests.
#
-# RCS: @(#) $Id: dialog.test,v 1.3 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: dialog.test,v 1.4 2003/04/01 21:06:22 dgp Exp $
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test dialog-1.1 {tk_dialog command} {
@@ -60,5 +57,5 @@ test dialog-2.2 {tk_dialog operation} {
set res
} {-1}
-tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/embed.test b/tests/embed.test
index 92a21b5..88a6a95 100644
--- a/tests/embed.test
+++ b/tests/embed.test
@@ -4,13 +4,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: embed.test,v 1.2 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: embed.test,v 1.3 2003/04/01 21:06:22 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test embed-1.1 {TkpUseWindow procedure, bad window identifier} {
@@ -47,5 +44,5 @@ test embed-1.5 {TkpUseWindow procedure, -container must be set} {
# FIXME: test cases common to unixEmbed.test and macEmbed.test should
# be moved here.
-tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/entry.test b/tests/entry.test
index 101a0c6..69480b8 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: entry.test,v 1.14 2003/02/25 00:46:41 hobbs Exp $
+# RCS: @(#) $Id: entry.test,v 1.15 2003/04/01 21:06:22 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
proc scroll args {
@@ -1621,5 +1618,5 @@ destroy .e
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/event.test b/tests/event.test
index 66fc029..c726d68 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: event.test,v 1.13 2003/02/18 06:22:44 mdejong Exp $
+# RCS: @(#) $Id: event.test,v 1.14 2003/04/01 21:06:23 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# XXX This test file is woefully incomplete. Right now it only tests
@@ -677,6 +674,6 @@ rename _pause {}
rename _text_ind_to_x_y {}
rename _get_selection {}
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/filebox.test b/tests/filebox.test
index 6cd1937..e386022 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -6,19 +6,13 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: filebox.test,v 1.13 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: filebox.test,v 1.14 2003/04/01 21:06:23 dgp Exp $
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
set tk_strictMotif_old $tk_strictMotif
#----------------------------------------------------------------------
@@ -400,5 +394,5 @@ foreach mode $modes {
set tk_strictMotif $tk_strictMotif_old
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/focus.test b/tests/focus.test
index 25cd932..37a0263 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: focus.test,v 1.8 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: focus.test,v 1.9 2003/04/01 21:06:25 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
button .b -text .b -relief raised -bd 2
@@ -643,7 +640,7 @@ bind all <FocusIn> {}
bind all <FocusOut> {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/focusTcl.test b/tests/focusTcl.test
index db064e0..11071ff 100644
--- a/tests/focusTcl.test
+++ b/tests/focusTcl.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: focusTcl.test,v 1.5 2002/07/14 15:45:23 dgp Exp $
+# RCS: @(#) $Id: focusTcl.test,v 1.6 2003/04/01 21:06:28 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
proc setup1 w {
@@ -279,7 +276,7 @@ bind Frame <Key> {}
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/font.test b/tests/font.test
index f16d895..330f12e 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: font.test,v 1.8 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: font.test,v 1.9 2003/04/01 21:06:29 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .b}
@@ -1363,7 +1360,7 @@ setup
destroy .b
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/frame.test b/tests/frame.test
index 4acd84b..5decf68 100644
--- a/tests/frame.test
+++ b/tests/frame.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: frame.test,v 1.7 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: frame.test,v 1.8 2003/04/01 21:06:34 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# eatColors --
@@ -874,5 +871,5 @@ rename eatColors {}
rename colorsFree {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/geometry.test b/tests/geometry.test
index 0f3fda3..77a2a93 100644
--- a/tests/geometry.test
+++ b/tests/geometry.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: geometry.test,v 1.4 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: geometry.test,v 1.5 2003/04/01 21:06:34 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
wm geometry . 300x300
@@ -250,7 +247,7 @@ test geometry-4.10 {Tk_MaintainGeometry and Tk_UnmaintainGeometry} {
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/get.test b/tests/get.test
index aae8010..c9c2e38 100644
--- a/tests/get.test
+++ b/tests/get.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: get.test,v 1.3 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: get.test,v 1.4 2003/04/01 21:06:35 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
button .b
@@ -79,7 +76,7 @@ test get-2.4 {Tk_GetJustifyFromObj - error} {
} {1 {bad justification "stupid": must be left, right, or center}}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/grab.test b/tests/grab.test
index 4ad8aea..d2ee4b2 100644
--- a/tests/grab.test
+++ b/tests/grab.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: grab.test,v 1.2 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: grab.test,v 1.3 2003/04/01 21:06:35 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# There's currently no way to test the actual grab effect, per se,
@@ -181,5 +178,5 @@ test grab-5.2 {Tk_GrabObjCmd, grab set} {
set result
} [list "." "global"]
-tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/grid.test b/tests/grid.test
index 47f99c0..bfbd1f6 100644
--- a/tests/grid.test
+++ b/tests/grid.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: grid.test,v 1.18 2003/03/12 00:09:37 mdejong Exp $
+# RCS: @(#) $Id: grid.test,v 1.19 2003/04/01 21:06:36 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# helper routine to return "." to a sane state after a test
@@ -1526,5 +1523,5 @@ test grid-20.2 {recalculate size after removal (forget)} {
grid_reset 20.2
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/id.test b/tests/id.test
index 7e3f958..acc0712 100644
--- a/tests/id.test
+++ b/tests/id.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: id.test,v 1.6 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: id.test,v 1.7 2003/04/01 21:06:36 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly testwrapper} {
@@ -92,7 +89,7 @@ test id-1.1 {WindowIdCleanup, delaying window release} {unixOnly testwrapper} {
bind all <Destroy> {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/image.test b/tests/image.test
index dd5d3dd..45bc42d 100644
--- a/tests/image.test
+++ b/tests/image.test
@@ -7,19 +7,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: image.test,v 1.8 2003/01/22 14:32:59 dkf Exp $
+# RCS: @(#) $Id: image.test,v 1.9 2003/04/01 21:06:36 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
eval image delete [image names]
canvas .c -highlightthickness 2
pack .c
@@ -384,5 +377,5 @@ destroy .c
eval image delete [image names]
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/imgBmap.test b/tests/imgBmap.test
index ff301c6..ebdaf07 100644
--- a/tests/imgBmap.test
+++ b/tests/imgBmap.test
@@ -7,18 +7,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: imgBmap.test,v 1.4 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: imgBmap.test,v 1.5 2003/04/01 21:06:37 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
set data1 {#define foo_width 16
#define foo_height 16
#define foo_x_hot 3
@@ -473,7 +467,7 @@ destroy .c
eval image delete [image names]
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/imgPPM.test b/tests/imgPPM.test
index 867f54a..20f224b 100644
--- a/tests/imgPPM.test
+++ b/tests/imgPPM.test
@@ -6,18 +6,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: imgPPM.test,v 1.5 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: imgPPM.test,v 1.6 2003/04/01 21:06:37 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
eval image delete [image names]
proc put {file data} {
@@ -155,7 +149,7 @@ removeFile test2.ppm
eval image delete [image names]
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index e2b4468..4a5eead 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -9,18 +9,12 @@
#
# Author: Paul Mackerras (paulus@cs.anu.edu.au)
#
-# RCS: @(#) $Id: imgPhoto.test,v 1.15 2002/10/18 00:48:22 hobbs Exp $
+# RCS: @(#) $Id: imgPhoto.test,v 1.16 2003/04/01 21:06:37 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
eval image delete [image names]
canvas .c
@@ -666,5 +660,5 @@ eval image delete [image names]
# cleanup
removeFile README-imgPhoto
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/listbox.test b/tests/listbox.test
index 37f5f30..dd686cc 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: listbox.test,v 1.21 2003/02/25 02:07:25 hobbs Exp $
+# RCS: @(#) $Id: listbox.test,v 1.22 2003/04/01 21:06:37 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
set fixed {Courier -12}
@@ -2150,5 +2147,5 @@ deleteWindows
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/macEmbed.test b/tests/macEmbed.test
index fe68f21..8fb2bee 100644
--- a/tests/macEmbed.test
+++ b/tests/macEmbed.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: macEmbed.test,v 1.8 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: macEmbed.test,v 1.9 2003/04/01 21:06:38 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test macEmbed-1.1 {TkpUseWindow procedure, bad window identifier} {macOnly} {
@@ -252,7 +249,7 @@ test macEmbed-7.2 {geometry propagation in tkUnixWm.c/UpdateGeometryInfo} {macOn
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/macFont.test b/tests/macFont.test
index 0ba293e..2afc946 100644
--- a/tests/macFont.test
+++ b/tests/macFont.test
@@ -10,13 +10,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: macFont.test,v 1.6 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: macFont.test,v 1.7 2003/04/01 21:06:38 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .b}
@@ -282,5 +279,5 @@ test macFont-9.4 {AllocMacFont: extract text metrics} {macOnly} {
destroy .b
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/macMenu.test b/tests/macMenu.test
index 2a36c60..ae38a49 100644
--- a/tests/macMenu.test
+++ b/tests/macMenu.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: macMenu.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: macMenu.test,v 1.8 2003/04/01 21:06:39 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test macMenu-1.0 {TkMacUseMenuID} {macOnly} {
@@ -1545,5 +1542,5 @@ test macMenu-45.1 {TkpMenuInit - called at boot time} {macOnly} {
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/macWinMenu.test b/tests/macWinMenu.test
index 315f2aa..935c365 100644
--- a/tests/macWinMenu.test
+++ b/tests/macWinMenu.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: macWinMenu.test,v 1.4 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: macWinMenu.test,v 1.5 2003/04/01 21:06:41 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test macWinMenu-1.1 {PreprocessMenu} {macOrPc nonUnixUserInteraction} {
@@ -88,7 +85,7 @@ test macWinMenu-2.1 {TkPreprocessMenu} {macOrPc nonUnixUserInteraction} {
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test
index b62c65e..d3d9c6e 100644
--- a/tests/macscrollbar.test
+++ b/tests/macscrollbar.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: macscrollbar.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: macscrollbar.test,v 1.6 2003/04/01 21:06:41 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
update
@@ -91,5 +88,5 @@ test macscroll-1.7 {TkpDisplayScrollbar procedure} {macOnly} {
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/main.test b/tests/main.test
index 0f25637..17fbaf9 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -8,19 +8,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: main.test,v 1.6 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: main.test,v 1.7 2003/04/01 21:06:41 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
test main-1.1 {StdinProc} {unix} {
set script [makeFile {
close stdin; exit
@@ -35,7 +28,7 @@ test main-1.1 {StdinProc} {unix} {
} {0 {}}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/menu.test b/tests/menu.test
index a9652bf..30d38dc 100644
--- a/tests/menu.test
+++ b/tests/menu.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: menu.test,v 1.13 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: menu.test,v 1.14 2003/04/01 21:06:42 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test menu-1.1 {Tk_MenuCmd procedure} {
@@ -2488,5 +2485,5 @@ test menu-35.1 {menus on multiple screens - crashes tk8.3.1, Bug 5454} \
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/menuDraw.test b/tests/menuDraw.test
index d412a23..cfaf236 100644
--- a/tests/menuDraw.test
+++ b/tests/menuDraw.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: menuDraw.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: menuDraw.test,v 1.6 2003/04/01 21:06:43 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test menuDraw-1.1 {TkMenuInitializeDrawingFields} {
@@ -520,7 +517,7 @@ test menuDraw-17.2 {AdjustMenuCoords - menu} {pcOnly userInteraction} {
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/menubut.test b/tests/menubut.test
index 86db6ae..93153bc 100644
--- a/tests/menubut.test
+++ b/tests/menubut.test
@@ -6,17 +6,14 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: menubut.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: menubut.test,v 1.8 2003/04/01 21:06:45 dgp Exp $
# XXX This test file is woefully incomplete right now. If any part
# XXX of a procedure has tests then the whole procedure has tests,
# XXX but many procedures have no tests.
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Create entries in the option database to be sure that geometry options
@@ -342,7 +339,7 @@ deleteWindows
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/message.test b/tests/message.test
index a5f52e5..40daf6e 100644
--- a/tests/message.test
+++ b/tests/message.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-2000 by Ajuba Solutions.
# All rights reserved.
#
-# RCS: @(#) $Id: message.test,v 1.2 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: message.test,v 1.3 2003/04/01 21:06:46 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
option add *Message.borderWidth 2
@@ -121,5 +118,5 @@ test message-3.7 {MessageWidgetObjCmd procedure, "configure"} {
} {4}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/msgbox.test b/tests/msgbox.test
index a20d787..fb07c80 100644
--- a/tests/msgbox.test
+++ b/tests/msgbox.test
@@ -5,14 +5,11 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: msgbox.test,v 1.6 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: msgbox.test,v 1.7 2003/04/01 21:06:47 dgp Exp $
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test msgbox-1.1 {tk_messageBox command} {
@@ -181,5 +178,5 @@ test msgbox-3.2 {tk_messageBox handles iconified parent} {nonUnixUserInteraction
wm deiconify .
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/obj.test b/tests/obj.test
index bc4618e..9778b2e 100644
--- a/tests/obj.test
+++ b/tests/obj.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: obj.test,v 1.3 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: obj.test,v 1.4 2003/04/01 21:06:47 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test obj-1.1 {TkGetPixelsFromObj} {
@@ -31,7 +28,7 @@ test obj-4.1 {SetPixelFromAny} {
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/oldpack.test b/tests/oldpack.test
index 52e2d4e..33a2719 100644
--- a/tests/oldpack.test
+++ b/tests/oldpack.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: oldpack.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: oldpack.test,v 1.6 2003/04/01 21:06:48 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# First, test a single window packed in various ways in a parent
@@ -510,7 +507,7 @@ test pack-9.3 {information output} {
catch {destroy .pack}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/option.test b/tests/option.test
index 173ec37..7ddaa96 100644
--- a/tests/option.test
+++ b/tests/option.test
@@ -6,18 +6,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: option.test,v 1.4 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: option.test,v 1.5 2003/04/01 21:06:48 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
catch {destroy .op1}
catch {destroy .op2}
set appName [winfo name .]
@@ -231,7 +225,7 @@ catch {destroy .op1}
catch {destroy .op2}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/pack.test b/tests/pack.test
index c4af29f..cb514e7 100644
--- a/tests/pack.test
+++ b/tests/pack.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: pack.test,v 1.11 2003/03/12 00:09:40 mdejong Exp $
+# RCS: @(#) $Id: pack.test,v 1.12 2003/04/01 21:06:48 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Utility procedures:
@@ -1111,5 +1108,5 @@ foreach i {pack1 pack2 pack3 pack4} {
}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index e073d4a..0da6bbc 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: panedwindow.test,v 1.8 2003/02/21 11:48:56 dkf Exp $
+# RCS: @(#) $Id: panedwindow.test,v 1.9 2003/04/01 21:06:49 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
set i 1
@@ -2476,5 +2473,5 @@ test panedwindow-30.1 {display on depths other than the default one} {
}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/place.test b/tests/place.test
index 10e45b7..847047c 100644
--- a/tests/place.test
+++ b/tests/place.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: place.test,v 1.9 2003/03/12 00:09:40 mdejong Exp $
+# RCS: @(#) $Id: place.test,v 1.10 2003/04/01 21:06:49 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# XXX - This test file is woefully incomplete. At present, only a
@@ -386,5 +383,5 @@ test place-13.1 {test respect for internalborder} {
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/raise.test b/tests/raise.test
index 53bf9b3..bcf3573 100644
--- a/tests/raise.test
+++ b/tests/raise.test
@@ -8,13 +8,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: raise.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: raise.test,v 1.8 2003/04/01 21:06:50 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testmakeexist [llength [info commands testmakeexist]]
@@ -290,7 +287,7 @@ test raise-7.8 {errors in raise/lower commands} {
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/safe.test b/tests/safe.test
index 060a1e1..3dea901 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: safe.test,v 1.10 2002/09/02 19:16:24 hobbs Exp $
+# RCS: @(#) $Id: safe.test,v 1.11 2003/04/01 21:06:50 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
## NOTE: Any time tests fail here with an error like:
@@ -215,5 +212,5 @@ test safe-7.1 {canvas printing} {
# cleanup
unset hidden_cmds
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/scale.test b/tests/scale.test
index fb9ba5d..ae2803e 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: scale.test,v 1.12 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: scale.test,v 1.13 2003/04/01 21:06:50 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Create entries in the option database to be sure that geometry options
@@ -821,5 +818,5 @@ catch {destroy .s}
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index 025df53..3de4c58 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: scrollbar.test,v 1.9 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: scrollbar.test,v 1.10 2003/04/01 21:06:50 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
## testmetrics is a win/mac only test command
@@ -670,7 +667,7 @@ catch {destroy .s}
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/select.test b/tests/select.test
index 0e24c7c..db401b7 100644
--- a/tests/select.test
+++ b/tests/select.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: select.test,v 1.9 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: select.test,v 1.10 2003/04/01 21:06:51 dgp Exp $
#
# Note: Multiple display selection handling will only be tested if the
@@ -14,14 +14,9 @@
#
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-
global longValue selValue selInfo
set selValue {}
@@ -1044,7 +1039,7 @@ test select-13.1 {SelectionSize procedure, handler deleted} {unixOnly} {
catch {rename weirdHandler {}}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/send.test b/tests/send.test
index a40eb98..9eab6c5 100644
--- a/tests/send.test
+++ b/tests/send.test
@@ -10,13 +10,10 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: send.test,v 1.8 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: send.test,v 1.9 2003/04/01 21:06:51 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint xhost [llength [auto_execok xhost]]
@@ -626,5 +623,5 @@ catch {
rename newApp {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/spinbox.test b/tests/spinbox.test
index b142611..b9b05f2 100644
--- a/tests/spinbox.test
+++ b/tests/spinbox.test
@@ -4,13 +4,10 @@
# Copyright (c) 1998-2000 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: spinbox.test,v 1.6 2003/03/13 19:34:40 dgp Exp $
+# RCS: @(#) $Id: spinbox.test,v 1.7 2003/04/01 21:06:52 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
proc scroll args {
@@ -1600,5 +1597,5 @@ catch {unset ::e ::vVals}
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/text.test b/tests/text.test
index 1c21d21..08e0b0f 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: text.test,v 1.19 2002/10/17 23:38:01 hobbs Exp $
+# RCS: @(#) $Id: text.test,v 1.20 2003/04/01 21:06:52 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Create entries in the option database to be sure that geometry options
@@ -1583,5 +1580,5 @@ deleteWindows
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textBTree.test b/tests/textBTree.test
index 7578536..85194dc 100644
--- a/tests/textBTree.test
+++ b/tests/textBTree.test
@@ -8,13 +8,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textBTree.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textBTree.test,v 1.6 2003/04/01 21:06:53 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .t}
@@ -899,7 +896,7 @@ test btree-18.9 {tag search back, large complex btree spans} {
destroy .t
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textDisp.test b/tests/textDisp.test
index 14b3b4a..79310b0 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -6,19 +6,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textDisp.test,v 1.8 2002/11/22 23:25:20 hobbs Exp $
+# RCS: @(#) $Id: textDisp.test,v 1.9 2003/04/01 21:06:53 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
# The procedure below is used as the scrolling command for the text;
# it just saves the scrolling information in a variable "scrollInfo".
@@ -2873,5 +2866,5 @@ deleteWindows
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textImage.test b/tests/textImage.test
index f75ce8a..73b9dc9 100644
--- a/tests/textImage.test
+++ b/tests/textImage.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textImage.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textImage.test,v 1.6 2003/04/01 21:06:54 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# One time setup. Create a font to insure the tests are font metric invariant.
@@ -351,7 +348,7 @@ foreach image [image names] {image delete $image}
font delete test_font
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textIndex.test b/tests/textIndex.test
index 98f81bb..a80af7c 100644
--- a/tests/textIndex.test
+++ b/tests/textIndex.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textIndex.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textIndex.test,v 1.8 2003/04/01 21:06:54 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Some tests require the testtext command
@@ -670,7 +667,7 @@ test testIndex-16.2 {TkTextPrintIndex} {
# cleanup
rename textimage {}
catch {destroy .t}
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textMark.test b/tests/textMark.test
index af1dc4d..14cfa5e 100644
--- a/tests/textMark.test
+++ b/tests/textMark.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textMark.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textMark.test,v 1.6 2003/04/01 21:06:54 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .t}
@@ -222,7 +219,7 @@ test textMark-8.8 {MarkFindPrev - no previous mark} courier12 {
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textTag.test b/tests/textTag.test
index da86a7a..d30f7a8 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textTag.test,v 1.6 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textTag.test,v 1.7 2003/04/01 21:06:55 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .t}
@@ -767,7 +764,7 @@ test textTag-16.7 {TkTextPickCurrent procedure} courier12 {
catch {destroy .t}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/textWind.test b/tests/textWind.test
index c7093ca..dbe5f26 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: textWind.test,v 1.5 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: textWind.test,v 1.6 2003/04/01 21:06:55 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Create entries in the option database to be sure that geometry options
@@ -824,7 +821,7 @@ catch {destroy .t}
option clear
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/tk.test b/tests/tk.test
index be450a2..0cf566b 100644
--- a/tests/tk.test
+++ b/tests/tk.test
@@ -5,13 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# Copyright (c) 2002 ActiveState Corporation.
#
-# RCS: @(#) $Id: tk.test,v 1.9 2002/09/02 19:15:38 hobbs Exp $
+# RCS: @(#) $Id: tk.test,v 1.10 2003/04/01 21:06:55 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test tk-1.1 {tk command: general} {
@@ -133,5 +130,5 @@ test tk-5.6 {tk caret} {
} {0 30}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixButton.test b/tests/unixButton.test
index 6899720..30ce8ee 100644
--- a/tests/unixButton.test
+++ b/tests/unixButton.test
@@ -8,13 +8,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixButton.test,v 1.6 2003/02/25 01:39:56 hobbs Exp $
+# RCS: @(#) $Id: unixButton.test,v 1.7 2003/04/01 21:06:55 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Create entries in the option database to be sure that geometry options
@@ -195,5 +192,5 @@ test unixbutton-2.1 {disabled coloring check, bug 669595} unix {
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test
index fbded5b..1f0538d 100644
--- a/tests/unixEmbed.test
+++ b/tests/unixEmbed.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixEmbed.test,v 1.11 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: unixEmbed.test,v 1.12 2003/04/01 21:06:55 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
setupbg
@@ -560,7 +557,7 @@ test unixEmbed-10.2 {geometry propagation in tkUnixWm.c/UpdateGeometryInfo} unix
# cleanup
deleteWindows
cleanupbg
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixFont.test b/tests/unixFont.test
index 420bf13..68f8395 100644
--- a/tests/unixFont.test
+++ b/tests/unixFont.test
@@ -12,13 +12,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixFont.test,v 1.7 2002/07/13 20:28:35 dgp Exp $
+# RCS: @(#) $Id: unixFont.test,v 1.8 2003/04/01 21:06:56 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint hasArial 1
@@ -315,7 +312,7 @@ test unixfont-9.2 {GetControlCharSubst procedure: 4 chars subst} unix {
} {0 1 1 1 1 2}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixMenu.test b/tests/unixMenu.test
index 7592921..457462e 100644
--- a/tests/unixMenu.test
+++ b/tests/unixMenu.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixMenu.test,v 1.7 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: unixMenu.test,v 1.8 2003/04/01 21:06:56 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test unixMenu-1.1 {TkpNewMenu - normal menu} unix {
@@ -949,5 +946,5 @@ test unixMenu-26.1 {TkpMenuInit - nothing to do} {} {}
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixSelect.test b/tests/unixSelect.test
index ddbdc35..c3516d3 100644
--- a/tests/unixSelect.test
+++ b/tests/unixSelect.test
@@ -9,13 +9,10 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: unixSelect.test,v 1.8 2003/01/14 19:24:51 jenglish Exp $
+# RCS: @(#) $Id: unixSelect.test,v 1.9 2003/04/01 21:06:57 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
global longValue selValue selInfo
@@ -360,5 +357,5 @@ test unixSelect-1.20 {Automatic UTF8_STRING support for selection handle} {unixO
} "This is the selection value"
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/unixWm.test b/tests/unixWm.test
index fdf5b1d..58035bb 100644
--- a/tests/unixWm.test
+++ b/tests/unixWm.test
@@ -7,19 +7,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: unixWm.test,v 1.33 2003/03/18 16:30:42 dgp Exp $
+# RCS: @(#) $Id: unixWm.test,v 1.34 2003/04/01 21:06:57 dgp Exp $
package require tcltest 2.2
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-
proc sleep ms {
global x
after $ms {set x 1}
@@ -2454,5 +2447,5 @@ test unixWm-60.2 {wm attributes} unix {
# cleanup
catch {destroy .t}
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/util.test b/tests/util.test
index f9ee697..35e8f39 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: util.test,v 1.5 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: util.test,v 1.6 2003/04/01 21:06:58 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
listbox .l -width 20 -height 5 -relief sunken -bd 2
@@ -67,7 +64,7 @@ test util-1.12 {Tk_GetScrollInfo procedure} {
} {1 {unknown option "dropdead": must be moveto or scroll}}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/visual.test b/tests/visual.test
index ee13af2..77dd665 100644
--- a/tests/visual.test
+++ b/tests/visual.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: visual.test,v 1.6 2002/07/14 05:48:46 dgp Exp $
+# RCS: @(#) $Id: visual.test,v 1.7 2003/04/01 21:06:58 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
update
@@ -303,7 +300,7 @@ rename eatColors {}
rename colorsFree {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/visual_bb.test b/tests/visual_bb.test
index 4520a8c..a465d64 100644
--- a/tests/visual_bb.test
+++ b/tests/visual_bb.test
@@ -6,17 +6,12 @@
# at the window to make sure it appears as expected. Individual tests
# are kept in separate ".tcl" files in this directory.
#
-# RCS: @(#) $Id: visual_bb.test,v 1.7 2002/07/14 18:31:48 dgp Exp $
+# RCS: @(#) $Id: visual_bb.test,v 1.8 2003/04/01 21:07:00 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::cleanupTests
-
set auto_path ". $auto_path"
wm title . "Visual Tests for Tk"
diff --git a/tests/winButton.test b/tests/winButton.test
index eb9373d..80149b4 100644
--- a/tests/winButton.test
+++ b/tests/winButton.test
@@ -8,13 +8,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winButton.test,v 1.9 2002/10/08 20:21:23 hobbs Exp $
+# RCS: @(#) $Id: winButton.test,v 1.10 2003/04/01 21:07:00 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
proc bogusTrace args {
@@ -146,5 +143,5 @@ test winbutton-1.9 {TkpComputeButtonGeometry procedure} {pcOnly} {
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winClipboard.test b/tests/winClipboard.test
index 593c7da..59822f6 100644
--- a/tests/winClipboard.test
+++ b/tests/winClipboard.test
@@ -10,17 +10,12 @@
# Copyright (c) 1998-2000 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winClipboard.test,v 1.11 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winClipboard.test,v 1.12 2003/04/01 21:07:00 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::bytestring
-
# Note that these tests may fail if another application is grabbing the
# clipboard (e.g. an X server)
@@ -81,5 +76,5 @@ test winClipboard-2.2 {TkSelUpdateClipboard reentrancy problem} {pcOnly testclip
} [list "more data in string" "new data"]
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winDialog.test b/tests/winDialog.test
index 9f49f28..d3881d2 100644
--- a/tests/winDialog.test
+++ b/tests/winDialog.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# Copyright (c) 1998-1999 ActiveState Corporation.
#
-# RCS: @(#) $Id: winDialog.test,v 1.9 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winDialog.test,v 1.10 2003/04/01 21:07:00 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
testConstraint testwinevent [llength [info commands testwinevent]]
@@ -323,5 +320,5 @@ test winDialog-9.8 {Tk_ChooseDirectoryObjCmd:\
catch {testwinevent debug 0}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winFont.test b/tests/winFont.test
index de0f546..6104e52 100644
--- a/tests/winFont.test
+++ b/tests/winFont.test
@@ -10,13 +10,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winFont.test,v 1.8 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winFont.test,v 1.9 2003/04/01 21:07:01 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
catch {destroy .b}
@@ -184,5 +181,5 @@ test winfont-7.4 {AllocFont procedure: extract info from textmetric} {pcOnly} {
# cleanup
destroy .b
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winMenu.test b/tests/winMenu.test
index 9e79c33..5e76440 100644
--- a/tests/winMenu.test
+++ b/tests/winMenu.test
@@ -7,13 +7,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winMenu.test,v 1.6 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winMenu.test,v 1.7 2003/04/01 21:07:01 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
test winMenu-1.1 {GetNewID} {pcOnly} {
@@ -1035,7 +1032,7 @@ test winMenu-34.1 {TkpMenuInit called at boot time} {emptyTest pcOnly} {} {}
# cleanup
deleteWindows
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winSend.test b/tests/winSend.test
index 5a9640b..d95e102 100644
--- a/tests/winSend.test
+++ b/tests/winSend.test
@@ -7,17 +7,12 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winSend.test,v 1.4 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: winSend.test,v 1.5 2003/04/01 21:07:02 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
-namespace import -force tcltest::interpreter
-
# Compute a script that will load Tk into a child interpreter.
foreach pkg [info loaded] {
@@ -407,6 +402,6 @@ while {[llength $newInterps] != [llength $currentInterps]} {
}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winWm.test b/tests/winWm.test
index 7bf9810..cb39e46 100644
--- a/tests/winWm.test
+++ b/tests/winWm.test
@@ -9,13 +9,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winWm.test,v 1.9 2002/07/25 21:35:23 pspjuth Exp $
+# RCS: @(#) $Id: winWm.test,v 1.10 2003/04/01 21:07:02 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# Measure the height of a single menu line
@@ -272,5 +269,5 @@ test winWm-6.2 {deiconify on an already mapped toplevel
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/window.test b/tests/window.test
index 51bacbc..9d62208 100644
--- a/tests/window.test
+++ b/tests/window.test
@@ -5,16 +5,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: window.test,v 1.7 2002/11/14 17:30:20 mdejong Exp $
+# RCS: @(#) $Id: window.test,v 1.8 2003/04/01 21:07:02 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-namespace import -force tcltest::interpreter
-namespace import -force tcltest::makeFile
-namespace import -force tcltest::removeFile
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
update
@@ -291,7 +285,7 @@ test window-5.1 {Tk_MakeWindowExist procedure, stacking order and menubars} \
} {}
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/winfo.test b/tests/winfo.test
index 3f9a1c1..71925ae 100644
--- a/tests/winfo.test
+++ b/tests/winfo.test
@@ -6,13 +6,10 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: winfo.test,v 1.9 2002/07/13 21:52:34 dgp Exp $
+# RCS: @(#) $Id: winfo.test,v 1.10 2003/04/01 21:07:03 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
# eatColors --
@@ -372,5 +369,5 @@ test winfo-14.4 {mapped at idle time} {
deleteWindows
# cleanup
-::tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/wm.test b/tests/wm.test
index 3cffdb2..a744409 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -7,17 +7,14 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: wm.test,v 1.22 2003/03/12 00:25:41 mdejong Exp $
+# RCS: @(#) $Id: wm.test,v 1.23 2003/04/01 21:07:04 dgp Exp $
# This file tests window manager interactions that work across
# platforms. Window manager tests that only work on a specific
# platform should be placed in unixWm.test or winWm.test.
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
wm deiconify .
@@ -1787,7 +1784,7 @@ test wm-deletion-epoch-1.1 {Deletion epoch on multiple displays} {altDisplay} {
deleteWindows
-tcltest::cleanupTests
+cleanupTests
return
diff --git a/tests/xmfbox.test b/tests/xmfbox.test
index 7e5a1c1..ca3858a 100644
--- a/tests/xmfbox.test
+++ b/tests/xmfbox.test
@@ -10,13 +10,10 @@
# Contributions from Don Porter, NIST, 2002. (not subject to US copyright)
# All rights reserved.
#
-# RCS: @(#) $Id: xmfbox.test,v 1.7 2002/07/13 20:28:36 dgp Exp $
+# RCS: @(#) $Id: xmfbox.test,v 1.8 2003/04/01 21:07:05 dgp Exp $
package require tcltest 2.1
-namespace import -force tcltest::configure
-namespace import -force tcltest::testsDirectory
-configure -testdir [file join [pwd] [file dirname [info script]]]
-configure -loadfile [file join [testsDirectory] constraints.tcl]
+eval tcltest::configure $argv
tcltest::loadTestedCommands
set testPWD [pwd]
@@ -142,7 +139,7 @@ test xmfbox-2.6 {tk::MotifFDialog_ActivateFList, ~ in file names} {unixOnly} {
# cleanup
cleanup
-::tcltest::cleanupTests
+cleanupTests
return