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 2004/04/30 22:54:55 UTC
cvs commit: tcl-websh/src/tests webout.test
ronnie 2004/04/30 13:54:55
Modified: src/tests webout.test
Log:
- check response object after web::putx
Revision Changes Path
1.9 +19 -1 tcl-websh/src/tests/webout.test
Index: webout.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/webout.test,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- webout.test 11 Sep 2002 13:50:50 -0000 1.8
+++ webout.test 30 Apr 2004 20:54:55 -0000 1.9
@@ -384,6 +384,24 @@
Hello, World !"
+test output-4.5 {switch back channel in putx} {
+ web::response -resetall
+ web::putx #_foo bar
+ set cmp $_foo
+ web::put zoo
+ expr {$_foo == $cmp}
+} {1}
+
+
+test output-4.6 {switch back channel in putx} {
+ web::response -resetall
+ set response [web::response]
+ web::putx #_foo bar
+ set cmp [web::response]
+ expr {$response == $cmp}
+} {1}
+
+
test output-4.7 {reset single channel} {
web::response -resetall
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org