X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F05-words.t;h=bcb3ac9bcc806e5b986df0706cef95818c3e5f27;hb=2236279ceecd37fc3e752bdf1142808a0f671d6e;hp=2405d6ba47d54b1fc2ee6e5540bd1a2f47b2b95f;hpb=b74d16df98351c4bacb0a1a9d029ce7d7924591f;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/05-words.t b/t/05-words.t
index 2405d6b..bcb3ac9 100644
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -3,9 +3,20 @@
 use strict;
 use warnings;
 
-use Test::More tests => 29 + 13 * 2;
+use Test::More;
 
-use Scope::Upper qw/:words/;
+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.
 
 is HERE, 0, 'main : here';
 is TOP,  0, 'main : top';