X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F05-words.t;h=1598e46fd2b57dd31e507ad7057e24858e810f9b;hb=fb0c1b785ccd5e914422dc3c7479f188d0aaa96e;hp=2405d6ba47d54b1fc2ee6e5540bd1a2f47b2b95f;hpb=9a258ccdcca73cc6ca9470c06e7db103c3ba8193;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/05-words.t b/t/05-words.t
index 2405d6b..1598e46 100644
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -7,6 +7,10 @@ use Test::More 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';
 is UP,   0, 'main : up';