# -*- cperl -*-

use strict;

use warnings;

use Test::More;

use Config::AutoConf;

END

{

    foreach my $f (<config*.*>)

    {

        -e $f and unlink $f;

    }

}

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;