[svn:parrot] r11988 - trunk/languages/APL/t

[coke]

Author: coke
Date: Wed Mar 22 11:56:18 2006
New Revision: 11988

Modified:
   trunk/languages/APL/t/APL.pm

Log:
[APL]
~ allow us to skip tests instead of die'ing if we don't have Test::Base
  installed.



Modified: trunk/languages/APL/t/APL.pm
==============================================================================
--- trunk/languages/APL/t/APL.pm        (original)
+++ trunk/languages/APL/t/APL.pm        Wed Mar 22 11:56:18 2006
@@ -1,6 +1,19 @@
 package t::APL;
 
-use Test::Base -Base;
+# Fail a little more gracefully for those without Test::Base installed.
+
+BEGIN {
+  eval {
+    require Test::Base2;
+    import Test::Base qw/ -Base /;
+  };
+  if ($@) {
+    require Test::More;
+    import Test::More;
+    plan(skip_all => "APL tests require Test::Base.;");
+    exit 0;
+  }
+}
 use Parrot::Config;
 use Parrot::Test;