perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From tors...@apache.org
Subject svn commit: r1302463 - /perl/modperl/trunk/t/lib/TestAPRlib/pool.pm
Date Mon, 19 Mar 2012 14:13:27 GMT
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 ###



Mime
View raw message