author/test-externals.pl

   1 #!perl -w
   2 # see also t/800_with_external/002-externals.t
   3
   4 use strict;
   5 use FindBin qw($Bin);
   6 use autodie;
   7
   8 my %dist = (
   9     'Ark'           => q{git://github.com/typester/ark-perl.git},
  10     'Object-Container'
  11                     => q{git://github.com/typester/object-container-perl.git},
  12
  13     'Data-Localize' => q{git://github.com/lestrrat/Data-Localize.git},
  14 );
  15
  16 my $distdir = 'externals';
  17
  18 chdir $Bin;
  19 mkdir $distdir if not -e $distdir;
  20
  21 $ENV{ANY_MOOSE} = 'Mouse';
  22
  23 while(my($name, $repo) = each %dist){
  24     chdir "$Bin/$distdir";
  25
  26     print "Go $name ($repo)\n";
  27
  28     if(!(-e "$name")){
  29         system "git clone $repo $name";
  30         chdir $name;
  31     }
  32     else{
  33         chdir $name;
  34         system "git pull";
  35     }
  36
  37     print "$^X Makefile.PL\n";
  38     system("$^X Makefile.PL 2>&1 |tee ../$name.log");
  39
  40     print "make\n";
  41     system("make 2>&1 >>../$name.log");
  42
  43     print "make test\n";
  44     system("make test 2>&1 |tee -a ../$name.log")
  45 }