[p5sagit/Module-Metadata.git] / t / version.t

use strict;
use warnings;
use Test::More;
use Module::Metadata;
use lib "t/lib/0_2";

plan tests => 4;

require Foo;
is $Foo::VERSION, 0.2;

my $meta = Module::Metadata->new_from_module("Foo", inc => [ "t/lib/0_1" ] );
is $meta->version, 0.1;

is $Foo::VERSION, 0.2;

ok eval "use Foo 0.2; 1";
Commit	Line	Data
398fe5a2	1	use strict;
eed8b6fa	2	use warnings;
398fe5a2	3	use Test::More;
398fe5a2	4	use Module::Metadata;
d57f5df5	5	use lib "t/lib/0_2";
398fe5a2	6
	7	plan tests => 4;
	8
	9	require Foo;
	10	is $Foo::VERSION, 0.2;
	11
d57f5df5	12	my $meta = Module::Metadata->new_from_module("Foo", inc => [ "t/lib/0_1" ] );
398fe5a2	13	is $meta->version, 0.1;
	14
	15	is $Foo::VERSION, 0.2;
	16
	17	ok eval "use Foo 0.2; 1";
	18
	19
	20
	21
	22
	23