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 2006/03/10 18:44:38 UTC
svn commit: r384873 - /tcl/websh/trunk/src/tests/cfg.test
Author: ronnie
Date: Fri Mar 10 09:44:35 2006
New Revision: 384873
URL: http://svn.apache.org/viewcvs?rev=384873&view=rev
Log:
- added test for [web::config reset] and check return values (cfg-2.2a)
Modified:
tcl/websh/trunk/src/tests/cfg.test
Modified: tcl/websh/trunk/src/tests/cfg.test
URL: http://svn.apache.org/viewcvs/tcl/websh/trunk/src/tests/cfg.test?rev=384873&r1=384872&r2=384873&view=diff
==============================================================================
--- tcl/websh/trunk/src/tests/cfg.test (original)
+++ tcl/websh/trunk/src/tests/cfg.test Fri Mar 10 09:44:35 2006
@@ -46,9 +46,19 @@
lappend res [web::config uploadfilesize]
} {0 13 13 0}
-test cfg-2.2 {default retrun values} {
+test cfg-2.2 {default return values} {
set res [list [web::config uploadfilesize] [web::config cmdparam] [web::config timeparam]]
} {0 cmd t}
+
+test cfg-2.2a {return values when new value is set and reset} {
+ set res {}
+ lappend res [list [web::config uploadfilesize 1] [web::config cmdparam page] [web::config timeparam f] [web::config cmdurltimestamp 0] [web::config logsubst 1] [web::config putxmarkup tag] [web::config encryptchain foo] [web::config decryptchain bar]]
+ lappend res [list [web::config uploadfilesize 2] [web::config cmdparam c] [web::config timeparam g] [web::config cmdurltimestamp] [web::config logsubst] [web::config putxmarkup] [web::config encryptchain] [web::config decryptchain]]
+ lappend res [list [web::config uploadfilesize] [web::config cmdparam] [web::config timeparam]]
+ web::config reset
+ lappend res [list [web::config uploadfilesize] [web::config cmdparam] [web::config timeparam] [web::config cmdurltimestamp] [web::config logsubst] [web::config putxmarkup] [web::config encryptchain] [web::config decryptchain]]
+
+} {{0 cmd t 1 0 brace web::encryptd web::decryptd} {1 page f 0 1 tag foo bar} {2 c g} {0 cmd t 1 0 brace web::encryptd web::decryptd}}
test cfg-2.3 {crypt default} {
set res [web::config encryptchain [list a b]]
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org