package __test__;

use v5.22;
use warnings;

use Test::More;
use lib "../lib";

sub dummy {}

{
    my $line = __LINE__;
    use lexical 'Scalar::Util' => qw/looks_like_number/;
    is(__LINE__, $line+2, "line numbers are not messed up ");

    is( defined(&looks_like_number) ,1 ,"sub exists");
    is( looks_like_number("42"), 1, "42 is number" );
    isnt( looks_like_number("XX"), 1, "XX isn't number" );

    is(defined  &__test__::dummy, 1, "namespace testable");
    isnt( defined(&__test__::looks_like_number) ,1 ,"namespace is clean");
}

isnt( defined(&looks_like_number) ,1 ,"lex sub doesn't exist out of scope");

diag( "Testing lexical $lexical::VERSION, Perl $], $^X" );

done_testing;