diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-05-03 20:06:31 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-05-03 20:06:31 +0000 |
commit | e5ae4bbcf70dd5d642bbe85e88585c110e523670 (patch) | |
tree | ae03b08133f3acf3dfb811f958d4cd90b8a7f36d | |
parent | a44bfb158dac9e04647a75bc819a73bc18f5acce (diff) |
add a syntax check
-rwxr-xr-x | t/syntax.t | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/t/syntax.t b/t/syntax.t new file mode 100755 index 000000000..1e6b04747 --- /dev/null +++ b/t/syntax.t @@ -0,0 +1,19 @@ +#!/usr/bin/perl +use warnings; +use strict; +use Test; + +my @progs="ikiwiki"; +my @libs="IkiWiki.pm"; +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); +} +foreach my $file (@libs) { + print "# Testing $file\n"; + ok(system("perl -c $file >/dev/null 2>&1"), 0); +} |