[Tclresource-commits] Extras/Tests all.tcl,1.3,1.4

[Bernard D. <bde...@us...>]

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