2_0_13/ModPerl-Registry/t/fatalstobrowser.t

# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestUtil qw(
                        t_cmp t_write_perl_script 
                        t_client_log_error_is_expected
                       );
use Apache::TestRequest qw(GET);

use File::Spec::Functions qw(catfile);

plan tests => 4, need need_module(qw(mod_alias)),
                      need_cgi,
                      need_min_module_version CGI => 99.99,
                      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");

    t_client_log_error_is_expected();

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