#!perl -w
use strict;
use Test::More;

use Text::Xslate::Util qw(import_from);

for(1 .. 2) {
    my $f = import_from("Scalar::Util" => [qw(blessed looks_like_number)]);

    is_deeply $f, {
            blessed           => \&Scalar::Util::blessed,
            looks_like_number => \&Scalar::Util::looks_like_number,
    };

    $f = import_from(
        "Carp",
        "Data::Dumper" => [qw(Dumper)],
    );

    is_deeply $f, {
            Dumper   => \&Data::Dumper::Dumper,
            carp     => \&Carp::carp,
            croak    => \&Carp::croak,
            confess  => \&Carp::confess,
    };

    # for constants
    $f = import_from(
           "Fcntl" => [qw(:flock)],
    );

    ok exists $f->{LOCK_EX} or diag explain($f);
    is $f->{LOCK_EX}->(), Fcntl::LOCK_EX(), 'constant';
    is $f->{LOCK_SH}->(), Fcntl::LOCK_SH(), 'constant';
}


done_testing;