geoff 2003/08/20 06:59:45
Modified: t/response/TestAPR table.pm
Log:
tweak test - table insertion order is guaranteed
Submitted by: joe schaeffer
Reviewed by: geoff
Revision Changes Path
1.7 +2 -2 modperl-2.0/t/response/TestAPR/table.pm
Index: table.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/table.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- table.pm 19 Aug 2003 19:30:33 -0000 1.6
+++ table.pm 20 Aug 2003 13:59:45 -0000 1.7
@@ -125,8 +125,8 @@
if (HAVE_APACHE_2_0_47) {
$overlay->compress(APR::OVERLAP_TABLES_MERGE);
- # XXX is insertion order guaranteed on all platforms?
- ok $overlay->get('foo') =~ m!(\w+, ){2}\w+!;
+ # $add first, then $base
+ ok $overlay->get('foo') eq 'three, one, two';
ok $overlay->get('bar') eq 'beer';
}
