Commit | Line | Data |
7f42bc91 |
1 | #!perl -w |
15a4c574 |
2 | # see also t/800_with_external/002-externals.t |
3 | |
7f42bc91 |
4 | use strict; |
5 | use FindBin qw($Bin); |
6 | use autodie; |
7 | |
8 | my %dist = ( |
15a4c574 |
9 | 'Ark' => q{git://github.com/typester/ark-perl.git}, |
44945c48 |
10 | 'Object-Container' |
11 | => q{git://github.com/typester/object-container-perl.git}, |
12 | |
44945c48 |
13 | 'Data-Localize' => q{git://github.com/lestrrat/Data-Localize.git}, |
7f42bc91 |
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"; |
44945c48 |
38 | system("$^X Makefile.PL 2>&1 |tee ../$name.log"); |
39 | |
40 | print "make\n"; |
41 | system("make 2>&1 >>../$name.log"); |
7f42bc91 |
42 | |
43 | print "make test\n"; |
44945c48 |
44 | system("make test 2>&1 |tee -a ../$name.log") |
7f42bc91 |
45 | } |