[perl5.git] / t / porting / cmp_version.t

#!./perl -w

# Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com
#
# Adapted from Porting/cmpVERSION.pl by Abigail
# Changes folded back into that by Nicholas
#
# If some modules fail this, you need a version bump (_001, etc.)
# AND you should probably also nudge the upstream maintainer for
# example by filing a bug, with a patch attached and linking to
# the core change.

BEGIN {
    @INC = '..' if -f '../TestInit.pm';
}
use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
use strict;

require 't/test.pl';
my $source = find_git_or_skip('all');
chdir $source or die "Can't chdir to $source: $!";

system "$^X Porting/cmpVERSION.pl --exclude --tap";
Commit	Line	Data
c8aeb9c6 A	1	#!./perl -w
c8aeb9c6 A	2
c8aeb9c6 A	3	# Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com
	4	#
	5	# Adapted from Porting/cmpVERSION.pl by Abigail
76733a60	6	# Changes folded back into that by Nicholas
1b67236f JH	7	#
	8	# If some modules fail this, you need a version bump (_001, etc.)
	9	# AND you should probably also nudge the upstream maintainer for
	10	# example by filing a bug, with a patch attached and linking to
	11	# the core change.
c8aeb9c6	12
18388fdb NC	13	BEGIN {
	14	@INC = '..' if -f '../TestInit.pm';
	15	}
7eccb5a9	16	use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
c8aeb9c6	17	use strict;
76733a60	18
7cadc1d0	19	require 't/test.pl';
fb7d5399 NC	20	my $source = find_git_or_skip('all');
fb7d5399 NC	21	chdir $source or die "Can't chdir to $source: $!";
c8aeb9c6	22
7eccb5a9	23	system "$^X Porting/cmpVERSION.pl --exclude --tap";