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
