Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / author / test-externals.pl

diff --git a/author/test-externals.pl b/author/test-externals.pl
index 4b8d498..1e57e9e 100755 (executable)
--- a/author/test-externals.pl
+++ b/author/test-externals.pl
@@ -1,11 +1,16 @@
 #!perl -w
+# see also t/800_with_external/002-externals.t
+
 use strict;
 use FindBin qw($Bin);
 use autodie;
 
 my %dist = (
-    'HTTP-Engine' => q{git://github.com/http-engine/HTTP-Engine.git},
-    'Ark'         => q{git://github.com/typester/ark-perl.git},
+    'Ark'           => q{git://github.com/typester/ark-perl.git},
+    'Object-Container'
+                    => q{git://github.com/typester/object-container-perl.git},
+
+    'Data-Localize' => q{git://github.com/lestrrat/Data-Localize.git},
 );
 
 my $distdir = 'externals';
@@ -30,8 +35,11 @@ while(my($name, $repo) = each %dist){
     }
 
     print "$^X Makefile.PL\n";
-    system("$^X Makefile.PL") != 0 or next;
+    system("$^X Makefile.PL 2>&1 |tee ../$name.log");
+
+    print "make\n";
+    system("make 2>&1 >>../$name.log");
 
     print "make test\n";
-    system "make test";
+    system("make test 2>&1 |tee -a ../$name.log")
 }