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

[stas]

stas        2003/11/07 12:30:21

  Modified:    t/response/TestAPR table.pm
  Log:
  use t_cmp so we can see why ok has failed
  
  Revision  Changes    Path
  1.9       +7 -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.8
  retrieving revision 1.9
  diff -u -u -r1.8 -r1.9
  --- table.pm  22 Aug 2003 19:15:08 -0000      1.8
  +++ table.pm  7 Nov 2003 20:30:21 -0000       1.9
  @@ -4,6 +4,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   
   use APR::Table ();
   
  @@ -127,8 +128,12 @@
           $overlay->compress(APR::OVERLAP_TABLES_MERGE);
   
           # $add first, then $base
  -        ok $overlay->get('foo') eq 'three, one, two';
  -        ok $overlay->get('bar') eq 'beer';
  +        ok t_cmp($overlay->get('foo'),
  +                 'three, one, two',
  +                 "$overlay->compress");
  +        ok t_cmp($overlay->get('bar'),
  +                 'beer',
  +                 "\$overlay->compress");
       }
   
       Apache::OK;