X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F00_load.t;h=b8c9fd356176615d27484a026d52b355a8ee45cb;hb=ef29cd706106f8ab6e7b0c25e8dc832bb337c5ed;hp=125fbde71dea4615f39fb820a23901ebde12533f;hpb=8d45f443f7bad158e1a37618b9370c554439e557;p=gitmo%2FClass-C3.git

diff --git a/t/00_load.t b/t/00_load.t
index 125fbde..b8c9fd3 100644
--- 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;
+    }
+  }
 }