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