You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2007/09/04 19:11:06 UTC
svn commit: r572739 - /tcl/websh/trunk/src/tests/mintest.test
Author: ronnie
Date: Tue Sep 4 10:11:06 2007
New Revision: 572739
URL: http://svn.apache.org/viewvc?rev=572739&view=rev
Log:
- search for current version of tclsh first in mintest-1.1
Modified:
tcl/websh/trunk/src/tests/mintest.test
Modified: tcl/websh/trunk/src/tests/mintest.test
URL: http://svn.apache.org/viewvc/tcl/websh/trunk/src/tests/mintest.test?rev=572739&r1=572738&r2=572739&view=diff
==============================================================================
--- tcl/websh/trunk/src/tests/mintest.test (original)
+++ tcl/websh/trunk/src/tests/mintest.test Tue Sep 4 10:11:06 2007
@@ -38,9 +38,11 @@
puts $fh return
close $fh
- # find a late available tclsh
+ # find a late available tclsh, but preferrably the current version
set ok 0
- foreach tclsh {8.5 85 8.4 84 8.3 83 8.2 82 {}} {
+ set v [info tclversion]
+ regsub {\.} $v {} win
+ foreach tclsh "$v $win 8.5 85 8.4 84 8.3 83 8.2 82 {}" {
if {![catch {exec tclsh$tclsh < $fnb}]} {
set ok 1
break
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org