Author: geoff
Date: Wed Jan 24 10:41:13 2007
New Revision: 499523
URL: http://svn.apache.org/viewvc?view=rev&rev=499523
Log:
make sure that $r->dir_config('EDOESNOTEXIST') doesn't
dump core
Modified:
perl/modperl/trunk/t/response/TestModperl/dir_config.pm
Modified: perl/modperl/trunk/t/response/TestModperl/dir_config.pm
URL:
http://svn.apache.org/viewvc/perl/modperl/trunk/t/response/TestModperl/dir_config.pm?view=diff&rev=499523&r1=499522&r2=499523
==============================================================================
--- perl/modperl/trunk/t/response/TestModperl/dir_config.pm (original)
+++ perl/modperl/trunk/t/response/TestModperl/dir_config.pm Wed Jan 24 10:41:13
2007
@@ -16,7 +16,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 14;
+ plan $r, tests => 15;
#Apache2::RequestRec::dir_config tests
@@ -27,6 +27,13 @@
# object test
my $dir_config = $r->dir_config;
ok defined $dir_config && ref($dir_config) eq 'APR::Table';
+
+ # make sure trying to get something that's not defined
+ # doesn't blow up
+ my $undef = $r->dir_config('EDOESNOTEXIST');
+
+ ok t_cmp($undef, undef,
+ 'no PerlSetVar to get data from');
# PerlAddVar ITERATE2 test
{
