[p5sagit/p5-mst-13.2.git] / lib / Test / Simple / t / 00test_harness_check.t

#!/usr/bin/perl -w
# $Id: /mirror/googlecode/test-more/t/00test_harness_check.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51  $

# A test to make sure the new Test::Harness was installed properly.

use Test::More;
plan tests => 1;

my $TH_Version = 2.03;

require Test::Harness;
unless( cmp_ok( eval $Test::Harness::VERSION, '>=', $TH_Version, "T::H version" ) ) {
    diag <<INSTRUCTIONS;

Test::Simple/More/Builder has features which depend on a version of
Test::Harness greater than $TH_Version.  You have $Test::Harness::VERSION.
Please install a new version from CPAN.

If you've already tried to upgrade Test::Harness and still get this
message, the new version may be "shadowed" by the old.  Check the
output of Test::Harness's "make install" for "## Differing version"
messages.  You can delete the old version by running 
"make install UNINST=1".

INSTRUCTIONS
}
Commit	Line	Data
30e302f8	1	#!/usr/bin/perl -w
ccbd73a4	2	# $Id: /mirror/googlecode/test-more/t/00test_harness_check.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
30e302f8	3
	4	# A test to make sure the new Test::Harness was installed properly.
	5
	6	use Test::More;
	7	plan tests => 1;
	8
b1ddf169	9	my $TH_Version = 2.03;
b1ddf169	10
30e302f8	11	require Test::Harness;
004caa16	12	unless( cmp_ok( eval $Test::Harness::VERSION, '>=', $TH_Version, "T::H version" ) ) {
30e302f8	13	diag <<INSTRUCTIONS;
	14
	15	Test::Simple/More/Builder has features which depend on a version of
b1ddf169	16	Test::Harness greater than $TH_Version. You have $Test::Harness::VERSION.
30e302f8	17	Please install a new version from CPAN.
	18
	19	If you've already tried to upgrade Test::Harness and still get this
	20	message, the new version may be "shadowed" by the old. Check the
	21	output of Test::Harness's "make install" for "## Differing version"
	22	messages. You can delete the old version by running
	23	"make install UNINST=1".
	24
	25	INSTRUCTIONS
	26	}
	27