X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/9dee2ec20e840a05445646f2e4b1c7137700a97e..c887bc05c37798e5ffee47ce7371f94c3f05bf8f:/t/syntax.t?ds=inline diff --git a/t/syntax.t b/t/syntax.t index 2462464ef..b7c6efd58 100755 --- a/t/syntax.t +++ b/t/syntax.t @@ -1,19 +1,20 @@ #!/usr/bin/perl use warnings; use strict; -use Test; +use Test::More; -my @progs="ikiwiki.pl"; +my @progs="ikiwiki.in"; my @libs="IkiWiki.pm"; -push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm`; +# monotone, external, amazon_s3, po, and cvs +# skipped since they need perl modules +push @libs, map { chomp; $_ } `find IkiWiki -type f -name \\*.pm | grep -v monotone.pm | grep -v external.pm | grep -v amazon_s3.pm | grep -v po.pm | grep -v cvs.pm`; +push @libs, 'IkiWiki/Plugin/skeleton.pm.example'; 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 -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); }