1N/A#!/usr/bin/perl -w
1N/A
1N/ABEGIN {
1N/A if( $ENV{PERL_CORE} ) {
1N/A chdir 't' if -d 't';
1N/A unshift @INC, '../lib';
1N/A }
1N/A else {
1N/A unshift @INC, 't/lib';
1N/A }
1N/A}
1N/Achdir 't';
1N/A
1N/Ause strict;
1N/Ause Test::More tests => 6;
1N/Ause Data::Dumper;
1N/A
1N/ABEGIN {
1N/A use_ok( 'ExtUtils::Liblist' );
1N/A}
1N/A
1N/Aok( defined &ExtUtils::Liblist::ext,
1N/A 'ExtUtils::Liblist::ext() defined for backwards compat' );
1N/A
1N/A{
1N/A my @warn;
1N/A local $SIG{__WARN__} = sub {push @warn, [@_]};
1N/A
1N/A my $ll = bless {}, 'ExtUtils::Liblist';
1N/A my @out = $ll->ext('-ln0tt43r3_perl');
1N/A is( @out, 4, 'enough output' );
1N/A unlike( $out[2], qr/-ln0tt43r3_perl/, 'bogus library not added' );
1N/A ok( @warn, 'had warning');
1N/A
1N/A is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
1N/A}