Codebase list libapache-asp-perl / HEAD t / strict_error.t
HEAD

Tree @HEAD (Download .tar.gz)

strict_error.t @HEAD — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
use Apache::ASP::CGI;
&Apache::ASP::CGI::do_self(UseStrict => 1, NoState => 0, Debug => 3);

__END__

<%
eval { $Response->Include('strict_error.inc') };
my $error = $@;
$t->eok($error, "no strict error");
$t->eok($error =~ /MyStrictError/ ? 1 : 0, "wrong strict error, should match MyStrictError");
%>