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)
