22

✏️ Editing: found.t

use strict;
# compatible use warnings
BEGIN{ if (not $] < 5.006) { require warnings; warnings->import } }

use lib 't/lib';
use Capture::Tiny qw(capture);
use Config;

use File::Spec;
use Test::More;

eval "use Devel::CheckLib";
if($@ =~ /Couldn't find your C compiler/) {
    plan skip_all => "Couldn't find your C compiler";
} else {
    eval "use Helper qw/create_testlib/";
}

my $debug = $ENV{DEVEL_CHECKLIB_DEBUG} || 0;

# compile a test library
my $libdir = create_testlib("bazbam");

my @lib =
    $^O eq 'MSWin32'                       # if Win32 (not Cygwin) ...
        ? (
            $Config{cc} =~ /(^|^\w+ )bcc/
                # FIXME - find a second Borland lib
                ? ('cc3250', 'cc3250')     # ... Borland
                : ('msvcrt', 'kernel32')   # ... otherwise assume Microsoft
          )
        : qw(m c)                          # default to Unix-style
;

# cases are strings to interpolate into the assert_lib call
my @cases = (
    qq/lib => '$lib[0]'/,
    qq/lib => '$lib[1]'/,
    qq/lib => ['$lib[0]', '$lib[1]']/,
);

push @cases, qq{lib => 'bazbam', libpath => '$libdir'} if $libdir;

plan tests => 2 * scalar @cases;

for my $c ( @cases ) {
    my $error;
    my ($stdout, $stderr) = capture {
        eval "assert_lib(debug => $debug, $c)";
        $error = $@;
    };
    is($error, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
    ok(check_lib(debug => $debug, eval($c)), "... and check_lib is true");
}

MR SKB