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/headers.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";
}

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

# cases are strings to interpolate into the assert_lib call
my %failcases = (
    qq{incpath => '.',  header => 'headerfile.h'} => "Can't link/include",
    qq{INC => '-t/inc', header => 'headerfile.h'} => "INC argument badly-formed"
);
my @passcases = (
    qq{incpath => '.',         header => 't/inc/headerfile.h'},
    qq{incpath => [qw(t/inc)], header => 'headerfile.h'},
    qq{INC => '-I. -It/inc',   header => 'headerfile.h'}
);

plan tests => scalar(keys %failcases) + scalar(@passcases);

for my $c (keys %failcases) {
    my $error;
    my ($stdout, $stderr) = capture {
        eval "assert_lib(debug => $debug, $c)";
        $error = $@;
    };
    ok($error =~ /^$failcases{$c}/, "$c") ||
        diag("$@\n\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
}
for my $c ( @passcases ) {
    my $error;
    my ($stdout, $stderr) = capture {
        eval "assert_lib(debug => $debug, $c)";
        $error = $@;
    };
    is($error, q{}, "$c") || diag("\tSTDOUT: $stdout\n\tSTDERR: $stderr\n");
}

Batal