use strict;
use warnings;

use Test::More;
use FindBin;
use Path::Class qw( dir );

# FILENAME: 02_version.t
# CREATED: 24/03/12 04:29:05 by Kent Fredric (kentnl) <kentfredric@gmail.com>
# ABSTRACT: Test version lookup

my $gtlib = dir($FindBin::RealBin)->subdir('tlib');

unshift @INC, "$gtlib";
require Whitelist;

my $wl = Whitelist->new();

$wl->whitelist(qw( Module::Data Test::More Data::Dumper warnings ));
$wl->whitelist(qw( Module::Runtime overload ));
$wl->noload_whitelist(qw( TB2::History Carp TB2::Mouse TB2::Types TB2::StackBuilder ));
$wl->noload_whitelist(qw( TB2::Mouse::Exporter TB2::Mouse::Meta::Role::Composite ));
$wl->noload_whitelist(qw( TB2::Mouse::Meta::Role::Application ));
$wl->freeze;

my $newinc  = $wl->{whitelist_inc};
my $realinc = $wl->{real_inc};

{
	unshift @INC, $wl->checker();

	local %INC;

	%INC = ( %{$newinc} );

	my $module = Module::Data->new('Test::More');    # because we know its loaded already

	isnt( $module->version, undef, 'Module->version  works' );

	note explain [ $module->version ];
}
done_testing;