Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Config-AutoConf-0.317/t/03.link.t
# -*- cperl -*-
use strict;
use warnings;
use Test::More;
use Config::AutoConf;
END
{
foreach my $f (<config*.*>)
{
-e $f and unlink $f;
}
}
Config::AutoConf->check_header("stdio.h") or plan skip_all => "No working compile environment";
my $ac_1;
ok($ac_1 = Config::AutoConf->new(logfile => "config3.log"), "Instantiating Config::AutoConf for check_lib() tests");
ok($ac_1->check_header("stdio.h")) or plan skip_all => "No working compile environment";
ok($ac_1->check_func("printf"), "Every system should have a printf");
my $set_me;
$ac_1->check_func(
"scanf",
{
action_on_true => sub { $set_me = 1 },
action_on_false => sub { $set_me = 0 }
}
);
ok(defined $set_me, "Having scanf or not, but now we know");
ok($ac_1->check_funcs([qw(sprintf sscanf)]), "Every system should have sprintf and sscanf");
TODO:
{
local $TODO = "It seems some Windows machine doesn't have -lm" if $^O eq "MSWin32";
## OK, we really hope people have -lm around
ok(!$ac_1->check_lib("m", "foobar"), "foobar() not in -lm");
ok($ac_1->check_lib("m", "atan"), "atan() in -lm");
my ($where_atan, $ac_2);
ok($ac_2 = Config::AutoConf->new(logfile => "config4.log"), "Instantiating Config::AutoConf for search_libs() tests");
ok($where_atan = $ac_2->search_libs("atan", [qw(m)]), "searching lib for atan()");
isnt($where_atan, 0, "library for atan() found (or none required)");
}
TODO:
{
local $TODO = "__builtin_\$1 isn't supported overall - sane prove would need compiler detection";
ok($ac_1->check_builtin("expect"), "__buitin_expect available");
}
my ($ac_3, %math_funcs);
ok($ac_3 = Config::AutoConf->new(logfile => "config4_2.log"), "Instantiating Config::AutoConf for check_lm() tests");
$ac_3->check_lm(
{
action_on_func_lib_true => sub { my ($func, $lib, @extra) = @_; $math_funcs{$func} = $lib },
action_on_func_lib_false => sub { my ($func, $lib, @extra) = @_; $math_funcs{$func} = 0 },
}
);
is_deeply(
[sort keys %math_funcs],
[sort $ac_3->_check_lm_funcs],
"Math functions (" . join(", ", $ac_3->_check_lm_funcs) . ") tested for -lm"
);
eval {
$ac_3->check_lm(
{
action_on_lib_true => sub { },
action_on_func_lib_true => sub { },
}
);
};
ok($@, "action_on_lib_true and action_on_func_lib_true cannot be used together");
eval {
$ac_3->check_lm(
{
action_on_lib_false => sub { },
action_on_func_lib_false => sub { },
}
);
};
ok($@, "action_on_lib_false and action_on_func_lib_false cannot be used together");
TODO:
{
-f "META.yml" or $ENV{AUTOMATED_TESTING} = 1;
local $TODO = "Quick fix: TODO - analyse diag later" unless $ENV{AUTOMATED_TESTING};
my ($fh, $fbuf, $dbuf, @old_logfh);
$dbuf = "";
if ($] < 5.008)
{
require IO::String;
$fh = IO::String->new($dbuf);
}
else
{
open($fh, "+>", \$dbuf);
}
@old_logfh = @{$ac_1->{logfh}};
$ac_1->add_log_fh($fh);
cmp_ok(scalar @{$ac_1->{logfh}}, "==", 2, "Successfully added 2nd loghandle");
ok($ac_1->check_link_perlapi(), "Could link perl extensions") or diag($dbuf);
scalar @old_logfh and $ac_1->delete_log_fh($fh);
scalar @old_logfh and is_deeply(\@old_logfh, $ac_1->{logfh}, "add_log_fh/delete_log_fh");
defined $fh and close($fh);
$fh = undef;
}
done_testing;
Mini Shell