[p5sagit/p5-mst-13.2.git] / cpan / Test-Simple / t / versions.t

#!/usr/bin/perl -w

# Make sure all the modules have the same version
#
# TBT has its own version system.

use strict;
use Test::More;

require Test::Builder;
require Test::Builder::Module;
require Test::Simple;

my $dist_version = Test::More->VERSION;

like( $dist_version, qr/^ \d+ \. \d+ $/x );

my @modules = qw(
    Test::Simple
    Test::Builder
    Test::Builder::Module
);

for my $module (@modules) {
    is( $dist_version, $module->VERSION, $module );
}

done_testing(4);
Commit	Line	Data
3e887aae	1	#!/usr/bin/perl -w
	2
	3	# Make sure all the modules have the same version
	4	#
	5	# TBT has its own version system.
	6
	7	use strict;
	8	use Test::More;
	9
	10	require Test::Builder;
	11	require Test::Builder::Module;
	12	require Test::Simple;
	13
2c4d5b9b	14	my $dist_version = Test::More->VERSION;
3e887aae	15
3e887aae	16	like( $dist_version, qr/^ \d+ \. \d+ $/x );
2c4d5b9b	17
	18	my @modules = qw(
	19	Test::Simple
	20	Test::Builder
	21	Test::Builder::Module
	22	);
	23
	24	for my $module (@modules) {
	25	is( $dist_version, $module->VERSION, $module );
	26	}
3e887aae	27
3e887aae	28	done_testing(4);