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 2005/11/10 14:20:34 UTC
svn commit: r332288 - in /tcl/websh/trunk/src/tests: htmlify.test
mintest.test
Author: ronnie
Date: Thu Nov 10 05:20:26 2005
New Revision: 332288
URL: http://svn.apache.org/viewcvs?rev=332288&view=rev
Log:
- enhanced tests to run under Win
Modified:
tcl/websh/trunk/src/tests/htmlify.test
tcl/websh/trunk/src/tests/mintest.test
Modified: tcl/websh/trunk/src/tests/htmlify.test
URL: http://svn.apache.org/viewcvs/tcl/websh/trunk/src/tests/htmlify.test?rev=332288&r1=332287&r2=332288&view=diff
==============================================================================
--- tcl/websh/trunk/src/tests/htmlify.test (original)
+++ tcl/websh/trunk/src/tests/htmlify.test Thu Nov 10 05:20:26 2005
@@ -83,14 +83,14 @@
# -----------------------------------------------------------------------------
# look for memory problems
# -----------------------------------------------------------------------------
-test htmlify-3.1 {start and stop interpreter (without use of htmlify)} {unixOnly} {
+test htmlify-3.1 {start and stop interpreter (without use of htmlify)} {} {
interp create htmlify3_1
htmlify3_1 eval "load $env(WEB_LIBRARY)"
interp delete htmlify3_1
set res ""
} {}
-test htmlify-3.2 {start interp, use htmlify, and stop again} {unixOnly} {
+test htmlify-3.2 {start interp, use htmlify, and stop again} {} {
interp create htmlify3_2
htmlify3_2 eval "load $env(WEB_LIBRARY)"
set res [htmlify3_2 eval web::htmlify " !\"#\$%&'()*+"]
Modified: tcl/websh/trunk/src/tests/mintest.test
URL: http://svn.apache.org/viewcvs/tcl/websh/trunk/src/tests/mintest.test?rev=332288&r1=332287&r2=332288&view=diff
==============================================================================
--- tcl/websh/trunk/src/tests/mintest.test (original)
+++ tcl/websh/trunk/src/tests/mintest.test Thu Nov 10 05:20:26 2005
@@ -23,9 +23,9 @@
# -----------------------------------------------------------------------------
#
# -----------------------------------------------------------------------------
-test mintest-1.1 {create an interpreter, load websh3 library} {unixOnly} {
- set fn "mintest1_1.tcl"
- set fh [open $fn "w"]
+test mintest-1.1 {create an interpreter, load websh3 library} {} {
+ set fna "mintest1_1a.tcl"
+ set fh [open $fna "w"]
puts $fh {catch {web::encrypt test} msg}
puts $fh {set res $msg}
puts $fh {load $env(WEB_LIBRARY)}
@@ -33,22 +33,28 @@
puts $fh {lappend res $msg}
puts $fh {puts $res}
close $fh
+ set fnb "mintest1_1b.tcl"
+ set fh [open $fnb "w"]
+ puts $fh return
+ close $fh
+
# find a late available tclsh
set ok 0
- foreach tclsh {tclsh8.5 tclsh8.4 tclsh8.3 tclsh8.2 tclsh} {
- if {![catch {exec echo return | $tclsh}]} {
+ foreach tclsh {8.5 85 8.4 84 8.3 83 8.2 82 {}} {
+ if {![catch {exec tclsh$tclsh < $fnb}]} {
set ok 1
break
}
}
set res ""
if {$ok} {
- puts "using $tclsh to test loading of $env(WEB_LIBRARY)"
- catch {set res [exec $tclsh $fn]}
+ puts "Using tclsh$tclsh to test loading of $env(WEB_LIBRARY)"
+ catch {set res [exec tclsh$tclsh $fna]}
} else {
- error "no reasonable tclsh found"
+ error "No reasonable tclsh found"
}
- file delete -force $fn
+ file delete -force $fna
+ file delete -force $fnb
set res
} {invalid command name web::encrypt XDq3pUAU8b}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org