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:29:47 UTC
cvs commit: tcl-websh/src/tests dehtmlify.test htmlify.test
ronnie 2005/09/09 05:29:47
Modified: src/tests dehtmlify.test htmlify.test
Log:
- added multi byte character tests for web::htmlify and web::dehtmlify
Revision Changes Path
1.3 +6 -1 tcl-websh/src/tests/dehtmlify.test
Index: dehtmlify.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/dehtmlify.test,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- dehtmlify.test 25 Oct 2001 11:04:29 -0000 1.2
+++ dehtmlify.test 9 Sep 2005 12:29:47 -0000 1.3
@@ -206,5 +206,10 @@
lappend res [web::dehtmlify ""]
} {m {}}
+test dehtmlify-6.0 {multibyte characters} {
+ set res [web::dehtmlify "あいうえお"]
+ expr {$res == "\u3042\u3044\u3046\u3048\u304a"}
+} {1}
+
# cleanup
::tcltest::cleanupTests
1.4 +7 -1 tcl-websh/src/tests/htmlify.test
Index: htmlify.test
===================================================================
RCS file: /home/cvs/tcl-websh/src/tests/htmlify.test,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- htmlify.test 14 Nov 2003 18:58:58 -0000 1.3
+++ htmlify.test 9 Sep 2005 12:29:47 -0000 1.4
@@ -108,5 +108,11 @@
set res
} {-test-test}
+
+test htmlify-6.0 {multibyte characters} {
+ web::htmlify "\u3042\u3044\u3046\u3048\u304a"
+} {あいうえお}
+
+
# cleanup
::tcltest::cleanupTests
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org