perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/xs/APR/APR apr-test
Date Thu, 13 Sep 2001 02:38:19 GMT
dougm       01/09/12 19:38:19

  Modified:    xs/APR/APR apr-test
  Log:
  num_bytes no longer exists (without apr debug flag)
  
  Revision  Changes    Path
  1.2       +4 -18     modperl-2.0/xs/APR/APR/apr-test
  
  Index: apr-test
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/xs/APR/APR/apr-test,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- apr-test	2001/03/05 03:51:16	1.1
  +++ apr-test	2001/09/13 02:38:19	1.2
  @@ -1,8 +1,10 @@
   #!perl
  -
  +BEGIN {
  +    *ModPerl::XSLoader::BOOTSTRAP = sub () {1};
  +}
   use Test;
   
  -plan tests => 10;
  +plan tests => 8;
   
   use blib;
   use warnings FATAL => 'all';
  @@ -23,12 +25,6 @@
   
   my $p = APR::Pool->new;
   
  -my $num_bytes = $p->num_bytes;
  -
  -ok $num_bytes;
  -
  -#print "begin bytes=$num_bytes\n";
  -
   ok $p;
   
   my $lock = APR::Lock->new($p, 0, 1, "lock.file");
  @@ -56,16 +52,6 @@
   ok $decoded eq $bytes;
   
   $p->clear;
  -
  -while ($num_bytes == $p->num_bytes) {
  -    APR::Lock->new($p);
  -}
  -
  -my $cur_num_bytes = $p->num_bytes;
  -
  -#print "end bytes=$cur_num_bytes\n";
  -
  -ok (($cur_num_bytes / 2) == $num_bytes);
   
   for (1..9) {
       my $desc = APR::Signal::get_description($_);
  
  
  

Mime
View raw message