cvs commit: modperl-2.0/t/response/TestAPR table.pm

[geoff]

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';
       }