Use diag() for all test output

diff --git a/xt/author/test-my-dependents.t b/xt/author/test-my-dependents.t
index 8701803..83cc3e5 100644 (file)
--- a/xt/author/test-my-dependents.t
+++ b/xt/author/test-my-dependents.t
@@ -17,10 +17,13 @@ use Test::DependentModules qw( test_all_dependents test_module );
 use DateTime;
 use Class::MOP ();
 use Moose ();
-print 'Test run performed at: ' . DateTime->now,
-    ' with Class::MOP ', Class::MOP->VERSION,
-    ' and Moose ', Moose->VERSION, "\n";
 
+diag(     'Test run performed at: '
+        . DateTime->now
+        . ' with Class::MOP '
+        . Class::MOP->VERSION
+        . ' and Moose '
+        . Moose->VERSION );
 
 $ENV{PERL_TEST_DM_LOG_DIR} = abs_path('.');
 
@@ -31,7 +34,7 @@ if ( $ENV{MOOSE_TEST_MD_ALL} ) {
     done_testing;
 }
 else {
-    my @modules = map { chomp; $_ } <DATA>;
+    my @modules = grep { $_ eq 'KiokuDB' } map { chomp; $_ } <DATA>;
     plan tests => scalar @modules;
     test_module($_) for @modules;
 }