1use strict;
2use warnings;
3use Test::More;
4use Module::Metadata;
5use lib "t/lib/0_2";
6
7plan tests => 4;
8
9require Foo;
10is($Foo::VERSION, 0.2, 'affirmed version of loaded module');
11
12my $meta = Module::Metadata->new_from_module("Foo", inc => [ "t/lib/0_1" ] );
13is($meta->version, 0.1, 'extracted proper version from scanned module');
14
15is($Foo::VERSION, 0.2, 'loaded module still retains its version');
16
17ok(eval "use Foo 0.2; 1", 'successfully loaded module again')
18    or diag 'got exception: ', $@;
19
20
21
22
23
24
25