diff options
Diffstat (limited to 't/author-00-compile.t')
-rw-r--r-- | t/author-00-compile.t | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/t/author-00-compile.t b/t/author-00-compile.t new file mode 100644 index 0000000..e2a109f --- /dev/null +++ b/t/author-00-compile.t @@ -0,0 +1,68 @@ + +BEGIN { + unless ($ENV{AUTHOR_TESTING}) { + require Test::More; + Test::More::plan(skip_all => 'these tests are for testing by the author'); + } +} + +use 5.006; +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.053 + +use Test::More; + +plan tests => 8; + +my @module_files = ( + 'Attribute/Params/Validate.pm', + 'Params/Validate.pm', + 'Params/Validate/Constants.pm', + 'Params/Validate/PP.pm', + 'Params/Validate/XS.pm', + 'Params/ValidatePP.pm', + 'Params/ValidateXS.pm' +); + + + +# no fake home requested + +my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib'; + +use File::Spec; +use IPC::Open3; +use IO::Handle; + +open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; + +my @warnings; +for my $lib (@module_files) +{ + # see L<perlfaq8/How can I capture STDERR from an external command?> + my $stderr = IO::Handle->new; + + my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); + binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @_warnings = <$stderr>; + waitpid($pid, 0); + is($?, 0, "$lib loaded ok"); + + shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ + and not eval { blib->VERSION('1.01') }; + + if (@_warnings) + { + warn @_warnings; + push @warnings, @_warnings; + } +} + + + +is(scalar(@warnings), 0, 'no warnings found') + or diag 'got warnings: ', ( Test::More->can('explain') ? Test::More::explain(\@warnings) : join("\n", '', @warnings) ); + + |