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 ###