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

List:       apache-modperl-cvs
Subject:    svn commit: r365957 -
From:       geoff () apache ! org
Date:       2006-01-04 17:47:23
Message-ID: 20060104174723.67848.qmail () minotaur ! apache ! org
[Download RAW message or body]

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";


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