perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR bucket.pm
Date Sun, 15 Aug 2004 06:25:47 GMT
stas        2004/08/14 23:25:47

  Modified:    t/response/TestAPR bucket.pm
  Log:
  make it easier to visualize what's going on
  
  Revision  Changes    Path
  1.9       +6 -14     modperl-2.0/t/response/TestAPR/bucket.pm
  
  Index: bucket.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/bucket.pm,v
  retrieving revision 1.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- bucket.pm	15 Aug 2004 05:29:35 -0000	1.8
  +++ bucket.pm	15 Aug 2004 06:25:47 -0000	1.9
  @@ -62,22 +62,14 @@
           ### create a chain of buckets
           my $bb = APR::Brigade->new($r->pool, $ba);
   
  -        $bb->insert_head($d1);
  -
  -        # d1->d2
  -        $d1->insert_after($d2);
  -
  -        # d1->f1->d2
  -        $d2->insert_before($f1);
  -
  -        # d1->f1->d2->f2
  -        $d2->insert_after($f2);
  -
  -        # d1->f1->d2->f2->e1
  -        $bb->insert_tail($e1);
  +                                 # head->tail
  +        $bb->insert_head(  $d1); # head->d1->tail
  +        $d1->insert_after( $d2); # head->d1->d2->tail
  +        $d2->insert_before($f1); # head->d1->f1->d2->tail
  +        $d2->insert_after( $f2); # head->d1->f1->d2->f2->tail
  +        $bb->insert_tail(  $e1); # head->d1->f1->d2->f2->e1->tail
   
           ### now test
  -
           my $b = $bb->first;
           $b->read(my $read);
           ok t_cmp($read, "d1", "d1 bucket");
  
  
  

Mime
View raw message