lets see if we can silence the error strawberry perl is upchucking

[catagits/Catalyst-Runtime.git] / t / aggregate.t

diff --git a/t/aggregate.t b/t/aggregate.t
index e52e766..e071379 100644 (file)
--- a/t/aggregate.t
+++ b/t/aggregate.t
@@ -1,16 +1,27 @@
-#!perl
-
 use strict;
 use warnings;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
+use File::Spec::Functions 'catfile', 'updir';
+
+BEGIN {
+    unless (-e catfile $FindBin::Bin, updir, '.aggregating') {
+        require Test::More;
+        Test::More::plan(skip_all => 'No test aggregation requested');
+    }
+}
 
-use Test::Aggregate;
+BEGIN {
+    unless (eval { require Test::Aggregate; Test::Aggregate->VERSION('0.364'); 1 }) {
+        require Test::More;
+        Test::More::plan(skip_all => 'Test::Aggregate 0.364 required for test aggregation');
+    }
+}
 
 my $tests = Test::Aggregate->new({
-    dirs          => 't/aggregate',
-    verbose       => 1,
+    (@ARGV ? (tests => \@ARGV) : (dirs => 't/aggregate')),
+    verbose       => 0,
     set_filenames => 1,
     findbin       => 1,
 });