view release on metacpan or  search on metacpan

xt/metacpan-live.t  view on Meta::CPAN

	or diag $@;

ok( $data->{version}, 'MetaCPAN release has version field' );

{
	local $ENV{PREPARE4RELEASE_PERL_MAX};
	delete $ENV{PREPARE4RELEASE_PERL_MAX};

	my $v = App::prepare4release->fetch_latest_perl_release_version;

	like( $v, qr/\A5\.\d+\z/, 'fetch_latest_perl_release_version looks like 5.xx' );

	my $got = eval { version->parse($v) };
	ok( $got, 'ceiling parses as a Perl version' )
		or diag $@;

	ok(
		$got && $got >= version->parse('v5.10.0'),
		'ceiling is at least 5.10'
	);
}