You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by to...@apache.org on 2012/03/19 15:13:27 UTC
svn commit: r1302463 - /perl/modperl/trunk/t/lib/TestAPRlib/pool.pm
Author: torsten
Date: Mon Mar 19 14:13:26 2012
New Revision: 1302463
URL: http://svn.apache.org/viewvc?rev=1302463&view=rev
Log:
add another pool cleanup exception test
Modified:
perl/modperl/trunk/t/lib/TestAPRlib/pool.pm
Modified: perl/modperl/trunk/t/lib/TestAPRlib/pool.pm
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/lib/TestAPRlib/pool.pm?rev=1302463&r1=1302462&r2=1302463&view=diff
==============================================================================
--- perl/modperl/trunk/t/lib/TestAPRlib/pool.pm (original)
+++ perl/modperl/trunk/t/lib/TestAPRlib/pool.pm Mon Mar 19 14:13:26 2012
@@ -11,7 +11,7 @@ use APR::Pool ();
use APR::Table ();
sub num_of_tests {
- return 76;
+ return 77;
}
sub test {
@@ -363,11 +363,13 @@ sub test {
my @warnings;
local $SIG{__WARN__} = sub {push @warnings, @_};
+ local $@="to be preserved";
undef $p;
ok t_cmp(\@warnings,
[map "APR::Pool: cleanup died: $_\n", 2, 1],
"exceptions thrown by cleanups");
+ ok t_cmp($@, "to be preserved", '$@ is preserved');
}
### $p->clear ###