t/000-syntax.t
changeset 20 6c5ad12e1f2d
child 32 02ef2d1b190a
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/t/000-syntax.t	Thu Jul 28 10:25:45 2011 +0200
@@ -0,0 +1,16 @@
+use 5.010;
+use strict;
+use warnings;
+use Test::More;
+
+use File::Find;
+
+my @scripts;
+find(sub { push @scripts, $File::Find::name if -f and -x }, "blib");
+
+plan tests => scalar @scripts;
+
+foreach (@scripts) {
+	my $e = `perl -c $_ 2>&1`;
+	ok(!$?, "syntax ok") or diag $e;
+}