aboutsummaryrefslogtreecommitdiff
path: root/t/syntax.t
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-05-03 20:06:31 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2006-05-03 20:06:31 +0000
commite5ae4bbcf70dd5d642bbe85e88585c110e523670 (patch)
treeae03b08133f3acf3dfb811f958d4cd90b8a7f36d /t/syntax.t
parenta44bfb158dac9e04647a75bc819a73bc18f5acce (diff)
downloadikiwiki-e5ae4bbcf70dd5d642bbe85e88585c110e523670.tar
ikiwiki-e5ae4bbcf70dd5d642bbe85e88585c110e523670.tar.gz
add a syntax check
Diffstat (limited to 't/syntax.t')
-rwxr-xr-xt/syntax.t19
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);
+}