[prev in list] [next in list] [prev in thread] [next in thread] 

List:       mason-cvs
Subject:    [Mason-checkins] CVS: mason/dist/t 08-ah.t,1.56,1.57
From:       Dave Rolsky <autarch () users ! sourceforge ! net>
Date:       2002-09-29 21:24:19
[Download RAW message or body]

Update of /cvsroot/mason/mason/dist/t
In directory usw-pr-cvs1:/tmp/cvs-serv29441

Modified Files:
	08-ah.t 
Log Message:
one more escaping test


Index: 08-ah.t
===================================================================
RCS file: /cvsroot/mason/mason/dist/t/08-ah.t,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- 08-ah.t	26 Sep 2002 18:02:03 -0000	1.56
+++ 08-ah.t	29 Sep 2002 21:24:16 -0000	1.57
@@ -37,7 +37,7 @@
 test_load_apache();
 
 my $tests = 4; # multi conf tests
-$tests += 56 if my $have_libapreq = have_module('Apache::Request');
+$tests += 57 if my $have_libapreq = have_module('Apache::Request');
 $tests += 40 if my $have_cgi      = have_module('CGI');
 $tests++ if $have_cgi && $mod_perl::VERSION >= 1.24;
 $tests++ if my $have_filter = have_module('Apache::Filter');
@@ -47,12 +47,12 @@
 
 write_test_comps();
 
-if ($have_libapreq) {        # 56 tests
+if ($have_libapreq) {        # 57 tests
     cleanup_data_dir();
     apache_request_tests(1); # 22 tests
 
     cleanup_data_dir();
-    apache_request_tests(0); # 19 tests
+    apache_request_tests(0); # 20 tests
 
     cleanup_data_dir();
     no_config_tests();       # 15 tests
@@ -263,6 +263,11 @@
 EOF
               );
 
+    write_comp( 'old_html_escape2', <<'EOF',
+<% '<>' | old_h2 %>
+EOF
+              );
+
     write_comp( 'uc_escape', <<'EOF',
 <% 'upper case' | uc %>
 EOF
@@ -370,6 +375,17 @@
 	ok($success);
 
 	$response = Apache::test->fetch('/comps/old_html_escape');
+	$actual = filter_response($response, $with_handler);
+	$success = HTML::Mason::Tests->check_output( actual => $actual,
+						     expect => <<'EOF',
+X-Mason-Test: Initial value
+&lt;&gt;
+Status code: 0
+EOF
+						   );
+	ok($success);
+
+	$response = Apache::test->fetch('/comps/old_html_escape2');
 	$actual = filter_response($response, $with_handler);
 	$success = HTML::Mason::Tests->check_output( actual => $actual,
 						     expect => <<'EOF',



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
Mason-checkins mailing list
Mason-checkins@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mason-checkins
[prev in list] [next in list] [prev in thread] [next in thread]