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 brigade.pm
Date Fri, 21 May 2004 22:01:56 GMT
stas        2004/05/21 15:01:56

  Modified:    t/response/TestAPR brigade.pm
  Log:
  one more sub-test for concat()
  
  Revision  Changes    Path
  1.3       +4 -2      modperl-2.0/t/response/TestAPR/brigade.pm
  
  Index: brigade.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/brigade.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- brigade.pm	21 May 2004 18:39:05 -0000	1.2
  +++ brigade.pm	21 May 2004 22:01:56 -0000	1.3
  @@ -3,7 +3,7 @@
   # testing APR::Brigade in this tests.
   # Other tests do that too:
   # TestAPR::flatten : flatten()
  -# TestAPR::bucket  : empty(), first(), last()
  +# TestAPR::bucket  : is_empty(), first(), last()
   
   use strict;
   use warnings FATAL => 'all';
  @@ -20,7 +20,7 @@
   
       my $r = shift;
   
  -    plan $r, tests => 9;
  +    plan $r, tests => 10;
   
       # basic + pool + destroy
       {
  @@ -60,6 +60,8 @@
           # bb1: 11, 12, 21, 22
           ok t_cmp(8, $bb1->length, "total data length in bb");
           ok t_cmp("11122122", $bb1->flatten, "bb flatten");
  +        t_debug('$bb2 is empty');
  +        ok $bb2->is_empty;
   
           # split
           my $b = $bb1->first; # 11
  
  
  

Mime
View raw message