From: Florian Ragwitz <rafl@debian.org>
Date: Sat, 5 Jun 2010 23:07:20 +0000 (+0200)
Subject: Allow the debugger test to be skipped early
X-Git-Tag: 0.17~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fnamespace-clean.git;a=commitdiff_plain;h=f91327653f5f70c320dc8d90c0f397f45b960ce6

Allow the debugger test to be skipped early

Loading the debugger often goes wrong, so it's important we skip the
test before it gets loaded.
---

diff --git a/xt/author/07-debugger.t b/xt/author/07-debugger.t
index 40c0466..7335992 100644
--- a/xt/author/07-debugger.t
+++ b/xt/author/07-debugger.t
@@ -1,19 +1,14 @@
-#!/usr/bin/perl -d
-
 use Test::More;
 
 BEGIN {
-    # apparently we can't just skip_all with -d, because the debugger breaks at
-    # Test::Testers END block
-    if ($] <= 5.008008) {
-        pass;
-        done_testing;
-    }
-    else {
-        push @DB::typeahead, "c";
-    }
+    plan skip_all => 'Only applicable on perl >= 5.8.9'
+        if $] <= 5.008008;
+
+#line 1
+#!/usr/bin/perl -d
+#line 10
 
-    push @DB::typeahead, "q";
+    push @DB::typeahead, "c", "q";
 
     # try to shut it up at least a little bit
     open my $out, ">", \my $out_buf;