t/porting/cmp_version.t

   1 #!./perl -w
   2
   3 # Original by slaven@rezic.de, modified by jhi and matt.w.johnson@gmail.com
   4 #
   5 # Adapted from Porting/cmpVERSION.pl by Abigail
   6 # Changes folded back into that by Nicholas
   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.
  12
  13 BEGIN {
  14     @INC = '..' if -f '../TestInit.pm';
  15 }
  16 use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
  17 use strict;
  18
  19 require './t/test.pl';
  20 my $source = find_git_or_skip('all');
  21 chdir $source or die "Can't chdir to $source: $!";
  22
  23 system "$^X Porting/cmpVERSION.pl --tap";