ACIL FM

Nama	Ukuran	Aksi
inc	-	Open
lib	-	Open
00-load.t	232 B	View DL Edit
analyze-binary.t	1.55 MB	View DL Edit
bad-single-word-compiler.t	1.06 MB	View DL Edit
cmdline-LIBS-INC.t	2.06 MB	View DL Edit
coverage.sh	136 B	View DL Edit
custom-function.t	2.39 MB	View DL Edit
dash-l-libs.t	1.2 MB	View DL Edit
exit_with_message.t	550 B	View DL Edit
flags.t	1.18 MB	View DL Edit
found.t	1.44 MB	View DL Edit
headers.t	1.34 MB	View DL Edit
multi-word-compiler.t	1.03 MB	View DL Edit
not_found.t	1.41 MB	View DL Edit

Edit file: /home/.cpan/build/Devel-CheckLib-1.16-0/t/not_found.t

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

use Test::More;
use Config;
my $debug = 0;

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

my $platform_lib = 
    $^O eq 'MSWin32'                       # if Win32 (not Cygwin) ...
        ? (
            $Config{cc} =~ /(^|^\w+ )bcc/
                ? 'cc3250'                 # ... Borland
                : 'msvcrt'                 # ... otherwise assume Microsoft
          )
        : 'm'                              # default to Unix-style
;

# Cases are AoH: { arg => $string, missing => $string }
my @cases = (
    { arg => qq{lib => 'foo'},                    missing => ['foo'] },
    { arg => qq{lib => [qw/$platform_lib foo/]},  missing => ['foo'] },
    { arg => qq{lib => [qw/foo $platform_lib/]},  missing => ['foo'] },
    { arg => qq{lib => [qw/foo bar/]},            missing => [qw/foo bar/] },
);

plan tests => 3 * @cases;

for my $c ( @cases ) {
    eval "assert_lib(debug => $debug, $c->{arg})";
    my $err = $@;
    ok ( $err, "died on '$c->{arg}'" );
    my $miss_string = join(q{, }, map { qq{'$_'} } @{$c->{missing}} );
    like ($err, "/^Can't link\/include C library ${miss_string}/ms",
        "missing $miss_string detected"
    );
    ok(!check_lib(debug => $debug, eval($c->{arg})),
      "... and check_lib is false");
}

Batal