aboutsummaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-09-25 20:15:02 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-09-25 20:15:02 +0000
commit52e06ad51e9f029bb5a560ea20ec49f5ab9e751e (patch)
tree8027ca09f760995e977097f62bfdc074c9862f82 /t
parenteeae24f6c7977e66cbadb7e956ca319b6556a627 (diff)
downloadikiwiki-52e06ad51e9f029bb5a560ea20ec49f5ab9e751e.tar
ikiwiki-52e06ad51e9f029bb5a560ea20ec49f5ab9e751e.tar.gz
improve diagnostics
Diffstat (limited to 't')
-rwxr-xr-xt/syntax.t8
1 files changed, 3 insertions, 5 deletions
diff --git a/t/syntax.t b/t/syntax.t
index 2462464ef..cbbdee62f 100755
--- a/t/syntax.t
+++ b/t/syntax.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test;
+use Test::More;
my @progs="ikiwiki.pl";
my @libs="IkiWiki.pm";
@@ -10,10 +10,8 @@ push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm`;
plan(tests => (@progs + @libs));
foreach my $file (@progs) {
- print "# Testing $file\n";
- ok(system("perl -T -c $file >/dev/null 2>&1"), 0);
+ ok(system("perl -T -c $file >/dev/null 2>&1") eq 0, $file);
}
foreach my $file (@libs) {
- print "# Testing $file\n";
- ok(system("perl -c $file >/dev/null 2>&1"), 0);
+ ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file);
}