stas 2003/03/31 19:07:20
Modified: ModPerl-Registry/t 500.t ModPerl-Registry/t/conf modperl_extra_startup.pl Added: ModPerl-Registry/t/cgi-bin use_error.pl Log: a sub-test to check the errors on failed use/require Revision Changes Path 1.1 modperl-2.0/ModPerl-Registry/t/cgi-bin/use_error.pl Index: use_error.pl =================================================================== use DoesNotExist (); print "Content-type: text/plain\n\n"; print "this script is expected to fail"; 1.4 +13 -2 modperl-2.0/ModPerl-Registry/t/500.t Index: 500.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/500.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- 500.t 7 Feb 2003 00:15:39 -0000 1.3 +++ 500.t 1 Apr 2003 03:07:20 -0000 1.4 @@ -5,7 +5,7 @@ use Apache::TestUtil; use Apache::TestRequest qw(GET); -plan tests => 6; +plan tests => 7; { # the script changes the status before the run-time error happens, @@ -29,7 +29,18 @@ ok t_cmp( 500, $res->code, - "500 error on syntax error", + "500 compile time error (syntax error)", + ); +} + +{ + my $url = "/registry/use_error.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + 500, + $res->code, + "500 compile error on use() failure", ); } 1.10 +1 -1 modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl Index: modperl_extra_startup.pl =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/conf/modperl_extra_startup.pl,v retrieving revision 1.9 retrieving revision 1.10 diff -u -r1.9 -r1.10 --- modperl_extra_startup.pl 8 Mar 2003 03:58:59 -0000 1.9 +++ modperl_extra_startup.pl 1 Apr 2003 03:07:20 -0000 1.10 @@ -36,7 +36,7 @@ my %skip = map { $_ => 1 } qw(lib.pl perlrun_require.pl syntax_error.pl runtime_error.pl - missing_headers.pl r_inherited.pl); + use_error.pl missing_headers.pl r_inherited.pl); my $dh = DirHandle->new($base_dir) or die $!; for my $file ($dh->read) { next unless $file =~ /\.pl$/;