stas        2004/06/04 16:57:32

  Modified:    t/response/TestAPR bucket.pm
  Log:
  test: buckets with no data to read should return an empty string
  
  Revision  Changes    Path
  1.3       +4 -1      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.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- bucket.pm 21 May 2004 22:01:16 -0000      1.2
  +++ bucket.pm 4 Jun 2004 23:57:32 -0000       1.3
  @@ -20,7 +20,7 @@
   
       my $r = shift;
   
  -    plan $r, tests => 25;
  +    plan $r, tests => 26;
   
       my $ba = $r->connection->bucket_alloc;
   
  @@ -95,6 +95,9 @@
           ok t_cmp('EOS', $type->name, "eos_create");
   
           ok t_cmp(0, $b->length, "eos b->length");
  +
  +        # buckets with no data to read should return an empty string
  +        ok t_cmp("", $b->read, "eos b->read");
       }
   
       # flush_create
  
  
  

Reply via email to