Author: geoff
Date: Wed Jan 4 09:47:20 2006
New Revision: 365957
URL: http://svn.apache.org/viewcvs?rev=365957&view=rev
Log:
add fatalsToBrowser test so that developers have
something to work with when trying to get it to work
Added:
perl/modperl/trunk/ModPerl-Registry/t/fatalstobrowser.t
Added: perl/modperl/trunk/ModPerl-Registry/t/fatalstobrowser.t
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/ModPerl-Registry/t/fatalstobrowser.t?rev=365957&view=auto
==============================================================================
--- perl/modperl/trunk/ModPerl-Registry/t/fatalstobrowser.t (added)
+++ perl/modperl/trunk/ModPerl-Registry/t/fatalstobrowser.t Wed Jan 4 09:47:20
2006
@@ -0,0 +1,45 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestUtil qw(t_cmp t_write_perl_script);
+use Apache::TestRequest qw(GET);
+
+use File::Spec::Functions qw(catfile);
+
+plan tests => 4, need need_module(qw(alias)),
+ need_cgi,
+ need_min_module_version CGI => 3.16,
+ skip_reason('fatalsToBrowser known not to work');
+
+my $file = catfile(Apache::Test::vars('serverroot'),
+ qw(cgi-bin fatalstobrowser.pl));
+
+t_write_perl_script($file, <DATA>);
+
+foreach my $base (qw(cgi-bin registry)) {
+
+ my $url = "$base/fatalstobrowser.pl";
+ my $res = GET $url;
+
+ ok t_cmp($res->code,
+ 200,
+ "error intercepted");
+
+ ok t_cmp($res->content,
+ qr/uninitiated_scalar/,
+ "error message captured and returned");
+}
+
+__END__
+use strict;
+use CGI::Carp qw (fatalsToBrowser);
+
+use CGI;
+
+my $cgi = new CGI;
+print $cgi->header;
+
+print "$uninitiated_scalar";
+
+print "Hello World";
