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; +}