cvs commit: httpd-test/perl-framework/t/php strings3.t

[jorton]

jorton      2004/06/18 02:20:02

  Modified:    perl-framework/t/php strings3.t
  Log:
  Fail better.
  
  Revision  Changes    Path
  1.5       +2 -1      httpd-test/perl-framework/t/php/strings3.t
  
  Index: strings3.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/php/strings3.t,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -d -w -u -r1.4 -r1.5
  --- strings3.t        18 Sep 2001 15:41:04 -0000      1.4
  +++ strings3.t        18 Jun 2004 09:20:02 -0000      1.5
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest;
   
   my $result = GET_BODY "/php/strings3.php";
  @@ -50,5 +51,5 @@
   ok $count eq $count2;
   
   foreach (my $i = 0 ; $i < $count ; $i++) {
  -    ok $res[$i] eq $exp[$i];
  +    ok t_cmp("[".$res[$i]."]", "[".$exp[$i]."]", "test $i");
   }