Mailing-List: contact modperl-cvs-help@perl.apache.org; run by ezmlm
Precedence: bulk
Reply-To: dev@perl.apache.org
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: svn commit: r1302463 - /perl/modperl/trunk/t/lib/TestAPRlib/pool.pm
Date: Mon, 19 Mar 2012 14:13:27 -0000
To: modperl-cvs@perl.apache.org
From: torsten@apache.org
Message-Id: <20120319141327.5FD652388860@eris.apache.org>

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