From: Vincent Pit <vince@profvince.com>
Date: Fri, 16 Apr 2010 22:13:59 +0000 (+0200)
Subject: Skip t/05-words.t when ran under the debugger
X-Git-Tag: v0.11~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a06eb7aacdd80daabe3b1565c15b37096ea2b57c;p=perl%2Fmodules%2FScope-Upper.git

Skip t/05-words.t when ran under the debugger

With this change, the whole test suite passes under the debugger. Hurray!
---

diff --git a/t/05-words.t b/t/05-words.t
index 1598e46..1141a58 100644
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -3,13 +3,20 @@
 use strict;
 use warnings;
 
-use Test::More tests => 29 + 13 * 2;
+use Test::More;
+
+BEGIN {
+ if ($^P) {
+  plan skip_all => 'hardcoded values are wrong under the debugger';
+ } else {
+  plan tests    => 29 + 13 * 2;
+ }
+}
 
 use Scope::Upper qw/:words/;
 
 # This test is for internal use only and doesn't imply any kind of future
 # compatibility on what the words should actually return.
-# It is expected to fail when ran under the debugger.
 
 is HERE, 0, 'main : here';
 is TOP,  0, 'main : top';