changeset 137 | dd11d1262b6c |
parent 136 | a5d087334439 |
child 138 | 790ac145bccc |
--- a/t/000-syntax.t Sat Jul 25 17:16:13 2015 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,17 +0,0 @@ -use 5.010; -use strict; -use warnings; -use Test::More; - -use File::Find; - -my @scripts; -find(sub { /^\./ and return; - push @scripts, $File::Find::name if -f and (-x or /\.pm$/)}, "blib"); - -plan tests => scalar @scripts; - -foreach (@scripts) { - my $e = `perl -Mblib -c $_ 2>&1`; - ok(!$?, "syntax $_ ok") or diag $e; -}