Update of /cvsroot/tclresource/Extras/Tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15219
Modified Files:
all.tcl
Log Message:
Filter out the -psn* arg
Index: all.tcl
===================================================================
RCS file: /cvsroot/tclresource/Extras/Tests/all.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- all.tcl 7 Sep 2004 05:18:35 -0000 1.3
+++ all.tcl 7 Sep 2004 12:35:25 -0000 1.4
@@ -1,7 +1,7 @@
# -------------------------------------------------------
# File: "all.tcl"
# Created: 2004-09-05 07:54:17
-# Last modification: 2004-09-06 08:11:15
+# Last modification: 2004-09-07 14:32:26
# Author: Bernard Desgraupes
# e-mail: <bde...@ea...>
# www: <http://webperso.easyconnect.fr/bdesgraupes/>
@@ -26,6 +26,9 @@
# Compatibility with the old tcltest package configuring from the command line
# arguments.
if {[info exists argv]} {
+ # Filter out the -psn* arg (like -psn_0_2490369) passed by the Finder
+ # to Wish.
+ regsub -- {-psn\w+} $argv "" argv
eval tcltest::configure $argv
}
@@ -46,7 +49,6 @@
}
puts stdout "Starting tests [clock format [clock seconds]]"
-
# # Now execute the tests suite
# tcltest::runAllTests
# Source each of the specified tests
@@ -57,6 +59,7 @@
}
}
+
# Cleanup
puts stdout "\nEnd of tests [clock format [clock seconds]]"
::tcltest::cleanupTests 1
|
