Login | Register For Free | Help
Search for: (Advanced)

Mailing List Archive: ModPerl: ModPerl-cvs

svn commit: r1302463 - /perl/modperl/trunk/t/lib/TestAPRlib/pool.pm

 

 

ModPerl modperl-cvs RSS feed   Index | Next | Previous | View Threaded


torsten at apache

Mar 19, 2012, 7:13 AM

Post #1 of 1 (226 views)
Permalink
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 ###

ModPerl modperl-cvs RSS feed   Index | Next | Previous | View Threaded
 
 


Interested in having your list archived? Contact Gossamer Threads
 
  Web Applications & Managed Hosting Powered by Gossamer Threads Inc.