cvs commit: tcl-rivet/tests access.conf rivet1-test.ttml srm.conf rivet.test template.conf.tcl rivet1-test.tcl

[da...@apache.org]

davidw      01/09/23 01:49:46

  Modified:    tests    rivet.test template.conf.tcl
  Added:       tests    access.conf rivet1-test.ttml srm.conf
  Removed:     tests    rivet1-test.tcl
  Log:
  Fixed up tests - Rivet now passes all 16.
  
  Revision  Changes    Path
  1.2       +7 -2      tcl-rivet/tests/rivet.test
  
  Index: rivet.test
  ===================================================================
  RCS file: /home/cvs/tcl-rivet/tests/rivet.test,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- rivet.test	2001/09/19 23:56:24	1.1
  +++ rivet.test	2001/09/23 08:49:46	1.2
  @@ -6,14 +6,19 @@
   
   # See README file for more information.
   
  -# $Id: rivet.test,v 1.1 2001/09/19 23:56:24 davidw Exp $ 
  +# $Id: rivet.test,v 1.2 2001/09/23 08:49:46 davidw Exp $ 
   
   package require tcltest
   package require http 2.1
   
   set urlbase "http://localhost:8080/"
   set testfilename1 "rivet1-test.ttml"
  -set testfilename2 "rivet2-test.ttml"
  +set testfilename2 "rivet2-test.tcl"
  +
  +# Test stanzas are created by giving the test a name and a
  +# description.  The code is then executed, and the results compared
  +# with the desired result, which is placed after the block of code.
  +# See man tcltest for more information.
   
   ::tcltest::test hello-1.1 {hello world test} {
       set page [ ::http::geturl "${urlbase}$testfilename1" ]
  
  
  
  1.2       +1 -1      tcl-rivet/tests/template.conf.tcl
  
  Index: template.conf.tcl
  ===================================================================
  RCS file: /home/cvs/tcl-rivet/tests/template.conf.tcl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- template.conf.tcl	2001/09/19 23:56:24	1.1
  +++ template.conf.tcl	2001/09/23 08:49:46	1.2
  @@ -20,7 +20,7 @@
   
   $LOADMODULES
   
  -LoadModule rivet_module $CWD/../mod_rivet[info sharedlibextension]
  +LoadModule rivet_module $CWD/../src/mod_rivet[info sharedlibextension]
   
   Port 8080
   
  
  
  
  1.1                  tcl-rivet/tests/access.conf
  
  	<<Binary file>>
  
  
  1.1                  tcl-rivet/tests/rivet1-test.ttml
  
  Index: rivet1-test.ttml
  ===================================================================
  <?
  # $Id: rivet1-test.ttml,v 1.1 2001/09/23 08:49:46 davidw Exp $
  # rivet page used with Rivet's rivet1-test
  
  hgetvars
  
  headers setcookie -name mod -value rivet -expires 01-01-2003 
  
  # hello-1.1
  hputs "Hello, World\n"
  
  # i18n-1.1
  hputs "� � � � � � - El Burro Sabe M�s Que T�!\n"
  
  if { [ var number ] > 0 } {
      # get/post variables 1.1
      if { [ var exists foobar ] } {
  	hputs "VARS(foobar) = [var get foobar]\n"
      }
      # get/post variables 1.{2,3}
      if { [ var exists M�s ] } {
  	hputs "VARS(M�s) = [var get M�s]\n"
      }
  }
  
  # env
  hputs "ENVS(DOCUMENT_NAME) = $ENVS(DOCUMENT_NAME)\n"
  
  # cookies
  if { [ array exists COOKIES ] } {
      foreach { ck } [ array names COOKIES ]  {
          hputs "COOKIES($ck) = $COOKIES($ck)\n"
      }
  }
  
  ?>
  
  
  1.1                  tcl-rivet/tests/srm.conf
  
  	<<Binary file>>