[Bps-public-commit] r13037 - in Prophet/trunk: . lib/Prophet/Test

[jesse at bestpractical.com]

Author: jesse
Date: Sun Jun  8 18:39:11 2008
New Revision: 13037

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/Makefile.PL
   Prophet/trunk/lib/Prophet/Test.pm
   Prophet/trunk/lib/Prophet/Test/Arena.pm

Log:
 r32472 at 31b:  jesse | 2008-06-08 18:39:03 -0400
 * Test cleanups


Modified: Prophet/trunk/Makefile.PL
==============================================================================
--- Prophet/trunk/Makefile.PL	(original)
+++ Prophet/trunk/Makefile.PL	Sun Jun  8 18:39:11 2008
@@ -39,9 +39,13 @@
         -default => 0,
         recommends( 'SVN::Core') # SVN::Repos SVN::Fs SVN::Ra SVN::Delta::Editor SVN::Client SVN::Delta
     ],
-    'Crazy debugging tools' => [
+    'Maintainer testing tools' => [
         -default   => 1,
         recommends('Acme::MetaSyntactic'),
+        recommends('Test::POD::Coverage')
+    ],
+    "Devel::Gladiator support (contact sky at crucially.net if it's not on CPAN)" => [
+        -default => 0,
         recommends('Devel::Gladiator')
     ],
 );

Modified: Prophet/trunk/lib/Prophet/Test.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test.pm	Sun Jun  8 18:39:11 2008
@@ -61,9 +61,12 @@
     local $Test::Builder::Level = $Test::Builder::Level + 1;
 
     my $types;
-    require "Devel::Gladiator"
-        or die
+    eval { require Devel::Gladiator; };
+    if ($@) {
+        return $code->();
+        die
         'Get Devel::Gladiator from http://code.sixapart.com/svn/Devel-Gladiator/trunk/ and harass sky at crucially.net to CPAN it';
+    } 
     for ( @{ Devel::Gladiator::walk_arena() } ) {
         $types->{ ref($_) }--;
     }

Modified: Prophet/trunk/lib/Prophet/Test/Arena.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test/Arena.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test/Arena.pm	Sun Jun  8 18:39:11 2008
@@ -89,7 +89,6 @@
 
 }
 
-use Devel::Gladiator;
 my $TB = Test::Builder->new();
 
 sub step {