tcl-mod_dtcl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dav...@apache.org
Subject cvs commit: tcl-moddtcl/tests dtcl.test
Date Tue, 08 May 2001 11:57:44 GMT
davidw      01/05/08 04:57:44

  Modified:    tests    dtcl.test
  Log:
  Added a test to make sure multiple variables work.
  
  Revision  Changes    Path
  1.7       +6 -1      tcl-moddtcl/tests/dtcl.test
  
  Index: dtcl.test
  ===================================================================
  RCS file: /home/cvs/tcl-moddtcl/tests/dtcl.test,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- dtcl.test	2001/03/19 17:33:33	1.6
  +++ dtcl.test	2001/05/08 11:57:35	1.7
  @@ -2,7 +2,7 @@
   
   # mod_dtcl test suite, by David N. Welton <davidw@apache.org>
   
  -# $Id: dtcl.test,v 1.6 2001/03/19 17:33:33 davidw Exp $ 
  +# $Id: dtcl.test,v 1.7 2001/05/08 11:57:35 davidw Exp $ 
   
   package require tcltest
   package require http 2.1
  @@ -48,6 +48,11 @@
   ::tcltest::test postvariables-1.3 {POST variables + I18N + encoding} {
       set page [ ::http::geturl "${urlbase}$testfilename" -query [ ::http::formatQuery Más
Tú ] ]
       regexp -line {^VARS\(Más\) = Tú$} [ ::http::data $page ]
  +} 1
  +
  +::tcltest::test multivariables-1.1 {multiple variables: foo=1&foo=2} {
  +    set page [ ::http::geturl "${urlbase}$testfilename?foobar=1&foobar=2&foobar=foo+bar"
]
  +    regexp -line {^VARS\(foobar\) = 1 2 foo bar$} [ ::http::data $page ]
   } 1
   
   ::tcltest::test env-1.1 {Environment variable} {
  
  
  

Mime
View raw message