You are viewing a plain text version of this content. The canonical link for it is here.
Posted to rivet-dev@tcl.apache.org by da...@apache.org on 2002/03/15 19:41:55 UTC
cvs commit: tcl-rivet/tests config.rvt rivet.test template.conf.tcl test-htaccess
davidw 02/03/15 10:41:55
Modified: tests config.rvt rivet.test template.conf.tcl
test-htaccess
Log:
* tests/config.test: Added some new, automatically generated tests.
Revision Changes Path
1.3 +6 -2 tcl-rivet/tests/config.rvt
Index: config.rvt
===================================================================
RCS file: /home/cvs/tcl-rivet/tests/config.rvt,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- config.rvt 15 Mar 2002 17:59:01 -0000 1.2
+++ config.rvt 15 Mar 2002 18:41:55 -0000 1.3
@@ -1,4 +1,8 @@
<?
-# config-1.1
-broken
+if { [var exists config-1] } {
+ # config-1.1
+ broken
+} elseif { [var exists config-2] } {
+ puts "Page Body"
+}
?>
1.15 +2 -2 tcl-rivet/tests/rivet.test
Index: rivet.test
===================================================================
RCS file: /home/cvs/tcl-rivet/tests/rivet.test,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- rivet.test 15 Mar 2002 16:49:49 -0000 1.14
+++ rivet.test 15 Mar 2002 18:41:55 -0000 1.15
@@ -6,7 +6,7 @@
# See README file for more information.
-# $Id: rivet.test,v 1.14 2002/03/15 16:49:49 davidw Exp $
+# $Id: rivet.test,v 1.15 2002/03/15 18:41:55 davidw Exp $
package require tcltest
package require http
@@ -43,7 +43,7 @@
# with the desired result, which is placed after the block of code.
# See man tcltest for more information.
-set testgroup1 1
+set testgroup1 0
set testgroup2 1
set testgroup3 1
1.9 +13 -0 tcl-rivet/tests/template.conf.tcl
Index: template.conf.tcl
===================================================================
RCS file: /home/cvs/tcl-rivet/tests/template.conf.tcl,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- template.conf.tcl 15 Mar 2002 16:49:49 -0000 1.8
+++ template.conf.tcl 15 Mar 2002 18:41:55 -0000 1.9
@@ -59,3 +59,16 @@
</IfModule>
RivetServerConf UploadFilesToVar on
+
+<IfDefine SERVERCONFTEST>
+RivetServerConf BeforeScript 'puts "Page Header"'
+RivetServerConf AfterScript 'puts "Page Footer"'
+</IfDefine>
+
+<IfDefine DIRTEST>
+<Directory />
+RivetDirConf BeforeScript 'puts "Page Header"'
+RivetDirConf AfterScript 'puts "Page Footer"'
+</Directory>
+</IfDefine>
+
1.2 +2 -0 tcl-rivet/tests/test-htaccess
Index: test-htaccess
===================================================================
RCS file: /home/cvs/tcl-rivet/tests/test-htaccess,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- test-htaccess 15 Mar 2002 16:49:49 -0000 1.1
+++ test-htaccess 15 Mar 2002 18:41:55 -0000 1.2
@@ -1,3 +1,5 @@
# this file is a test file to simulate an .htaccess file.
RivetUserConf ErrorScript 'puts "this page is BROKEN"'
+RivetUserConf BeforeScript 'puts "Local Page Header"'
+RivetUserConf AfterScript 'puts "Local Page Footer"'
\ No newline at end of file
---------------------------------------------------------------------
To unsubscribe, e-mail: rivet-dev-unsubscribe@tcl.apache.org
For additional commands, e-mail: rivet-dev-help@tcl.apache.org