From: Dave Rolsky <autarch@urth.org>
Date: Mon, 18 Oct 2010 04:41:44 +0000 (-0500)
Subject: Use diag() for all test output
X-Git-Tag: 1.16~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41a0b2a9c3f80475233eb8091f1b3d5a5ffecb91;p=gitmo%2FMoose.git

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
--- 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;
 }