Commit | Line | Data |
---|---|---|
53fc1c7e | 1 | use strict; |
2 | use warnings; | |
3 | use lib 't/lib'; | |
4 | use MBTest; | |
5 | use File::Find qw/find/; | |
6 | ||
7 | my @files; | |
8 | find( sub { -f && /\.pm$/ && push @files, $File::Find::name }, 'lib' ); | |
9 | ||
10 | plan tests => scalar @files; | |
11 | ||
12 | for my $f ( sort @files ) { | |
13 | my $ec; | |
14 | my $output = stdout_stderr_of( sub { $ec = system( $^X, '-c', $f ) } ); | |
15 | ok( ! $ec, "compiling $f" ) or diag $output; | |
16 | } | |
17 |