view release on metacpan or  search on metacpan

t/coretests.pm  view on Meta::CPAN

	$new_version = $CLASS->$method(1);
	ok($version == $new_version, '$version == $new_version');
	skip "version require'd instead of use'd, cannot test declare", 1
	    unless defined $qv_declare;
	$version = &$qv_declare(1.2.3);
	ok("$version" eq "v1.2.3", 'v-string initialized $qv_declare()');
    }

SKIP: 	{
	skip 'Cannot test bare alpha v-strings with Perl < 5.8.1', 2
		if $] lt 5.008_001;
	$version = $CLASS->$method(v1.2.3_4);
	$DB::single = 1;
	is($version, "v1.2.34", '"$version" eq "v1.2.34"');
	$version = $CLASS->$method(eval "v1.2.3_4");
	is($version, "v1.2.34", '"$version" eq "v1.2.34" (from eval)');
    }

    # trailing zero testing (reported by Andreas Koenig).
    $version = $CLASS->$method("1");
    ok($version->numify eq "1.000", "trailing zeros preserved");