remove extraneous garbage from tests

[gitmo/Class-C3.git] / t / 00_load.t

diff --git a/t/00_load.t b/t/00_load.t
index 125fbde..b8c9fd3 100644 (file)
--- a/t/00_load.t
+++ b/t/00_load.t
@@ -5,7 +5,28 @@ use warnings;
 
 use Test::More tests => 2;
 
-BEGIN {
-    use_ok('Class::C3');
-    use_ok('Class::C3::next');
+use Class::C3;
+use Class::C3::next;
+
+if ($] > 5.009_004) {
+  ok ($Class::C3::C3_IN_CORE, 'C3 in core');
+  ok (!$Class::C3::C3_XS, 'Not using XS');
+  diag "Fast C3 provided by this perl version $] in core"
+    unless $INC{'Devel/Hide.pm'};
+}
+else {
+  ok (!$Class::C3::C3_IN_CORE, 'C3 not in core');
+
+  if (eval { require Class::C3::XS; Class::C3::XS->VERSION }) {
+    ok ($Class::C3::C3_XS, 'Using XS');
+    diag "XS speedups available (via Class::C3::XS)"
+      unless $INC{'Devel/Hide.pm'};
+  }
+  else {
+    ok (! $Class::C3::C3_XS, 'Not using XS');
+    unless ($INC{'Devel/Hide.pm'}) {
+      diag "NO XS speedups - YOUR CODE WILL BE VERY SLOW. Consider installing Class::C3::XS";
+      sleep 3 if -t *STDIN or -t *STDERR;
+    }
+  }
 }