Properly skip debugger test when optional deps not available

[p5sagit/namespace-clean.git] / t / 07-debugger.t

diff --git a/t/07-debugger.t b/t/07-debugger.t
index 0d40f0e..9138a5d 100644 (file)
--- a/t/07-debugger.t
+++ b/t/07-debugger.t
@@ -1,6 +1,15 @@
 use Test::More;
 
 BEGIN {
+  eval { require Sub::Name }
+    or plan skip_all => "Test requires Sub::Name";
+
+  eval { require Sub::Identify }
+    or plan skip_all => "Test requires Sub::Identify";
+}
+
+
+BEGIN {
   # shut up the debugger
   $ENV{PERLDB_OPTS} = 'NonStop';