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

use strict;
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;
	2	use Test::More;
	3	use Module::Metadata;
	4	use lib "t/lib/0.2";
	5
	6	plan tests => 4;
	7
	8	require Foo;
	9	is $Foo::VERSION, 0.2;
	10
	11	my $meta = Module::Metadata->new_from_module("Foo", inc => [ "t/lib/0.1" ] );
	12	is $meta->version, 0.1;
	13
	14	is $Foo::VERSION, 0.2;
	15
	16	ok eval "use Foo 0.2; 1";
	17
	18
	19
	20
	21
	22