stas 2004/08/14 23:25:47
Modified: t/response/TestAPR bucket.pm
Log:
make it easier to visualize what's going on
Revision Changes Path
1.9 +6 -14 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.8
retrieving revision 1.9
diff -u -u -r1.8 -r1.9
--- bucket.pm 15 Aug 2004 05:29:35 -0000 1.8
+++ bucket.pm 15 Aug 2004 06:25:47 -0000 1.9
@@ -62,22 +62,14 @@
### create a chain of buckets
my $bb = APR::Brigade->new($r->pool, $ba);
- $bb->insert_head($d1);
-
- # d1->d2
- $d1->insert_after($d2);
-
- # d1->f1->d2
- $d2->insert_before($f1);
-
- # d1->f1->d2->f2
- $d2->insert_after($f2);
-
- # d1->f1->d2->f2->e1
- $bb->insert_tail($e1);
+ # head->tail
+ $bb->insert_head( $d1); # head->d1->tail
+ $d1->insert_after( $d2); # head->d1->d2->tail
+ $d2->insert_before($f1); # head->d1->f1->d2->tail
+ $d2->insert_after( $f2); # head->d1->f1->d2->f2->tail
+ $bb->insert_tail( $e1); # head->d1->f1->d2->f2->e1->tail
### now test
-
my $b = $bb->first;
$b->read(my $read);
ok t_cmp($read, "d1", "d1 bucket");
