urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

improve diagnostics

master
joey 2006-09-25 20:15:02 +00:00
parent eeae24f6c7
commit 52e06ad51e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
t/syntax.t
View File

@ -1,7 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
use warnings; use warnings;
use strict; use strict;
use Test; use Test::More;
my @progs="ikiwiki.pl"; my @progs="ikiwiki.pl";
my @libs="IkiWiki.pm"; my @libs="IkiWiki.pm";
@ -10,10 +10,8 @@ push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm`;
plan(tests => (@progs + @libs)); plan(tests => (@progs + @libs));
foreach my $file (@progs) { foreach my $file (@progs) {
print "# Testing $file\n"; ok(system("perl -T -c $file >/dev/null 2>&1") eq 0, $file);
ok(system("perl -T -c $file >/dev/null 2>&1"), 0);
} }
foreach my $file (@libs) { foreach my $file (@libs) {
print "# Testing $file\n"; ok(system("perl -c $file >/dev/null 2>&1") eq 0, $file);
ok(system("perl -c $file >/dev/null 2>&1"), 0);
} }