httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestConfigPHP.pm
Date Mon, 25 Oct 2004 17:19:11 GMT
geoff       2004/10/25 10:19:11

  Modified:    perl-framework/Apache-Test/lib/Apache TestConfigPHP.pm
  Log:
  add diagnostics to like()
  
  Revision  Changes    Path
  1.5       +9 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm
  
  Index: TestConfigPHP.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestConfigPHP.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- TestConfigPHP.pm	25 Oct 2004 14:03:41 -0000	1.4
  +++ TestConfigPHP.pm	25 Oct 2004 17:19:11 -0000	1.5
  @@ -296,7 +296,15 @@
    
   function like($string, $regex, $name='')
   {
  -    return ok(preg_match($regex, $string), $name);
  +    $ok = ok(preg_match($regex, $string), $name);
  +
  +    if (!$ok)
  +    {
  +        diag("                   '$string'");
  +        diag("     doesn't match '$regex'");
  +
  +    }
  +    return $ok;
   }
    
   function diag($lines)
  
  
  

Mime
View raw message