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/09/09 14:30:32 UTC
cvs commit: tcl-websh/src/tests webout.test
ronnie 2005/09/09 05:30:32
Modified: src/tests webout.test
Log:
- added more nested putx tests
Revision Changes Path
1.11 +37 -1 tcl-websh/src/tests/webout.test
Index: webout.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/webout.test,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- webout.test 15 Jul 2005 11:24:59 -0000 1.10
+++ webout.test 9 Sep 2005 12:30:32 -0000 1.11
@@ -277,6 +277,42 @@
} {}
+test putx-4.0 {putx nested escaping brace} {
+ web::response -select #out
+ web::response -sendheader 0
+ web::config putxmarkup brace
+ set out {}
+ web::putx {\{web::putx "$"\}{web::putx ""}\{web::putx {web::putx {\{\}}}\}{web::putx { }}}
+ set out
+} {{web::putx "$"}{web::putx {}} }
+
+test putx-4.1 {putx nested escaping tag} {
+ web::response -select #out
+ web::response -sendheader 0
+ web::config putxmarkup tag
+ set out {}
+ web::putx {\<?web::putx "$"\?><?web::putx ""?>\<?web::putx <?web::putx {\<?\?>}?>\?><?web::putx { }?>}
+ set out
+} {<?web::putx "$"?><?web::putx <??>?> }
+
+test putx-4.2 {putx nested escaping tag/brace mix} {
+ web::response -select #out
+ web::response -sendheader 0
+ web::config putxmarkup brace
+ set out {}
+ web::putx {<?1{
+ web::config putxmarkup tag
+ web::putx {{2<?
+ web::config putxmarkup brace
+ web::putx {<?3{
+ web::putx {{web::putx {<?*?>}}}
+ }3?>}
+ ?>2}}
+ }1?>}
+ set out
+} {<?1{2<?3<?*?>3?>2}1?>}
+
+
# =============================================================================
# web::put
# =============================================================================
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org