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
