From: Vincent Pit Date: Fri, 16 Jan 2009 23:47:10 +0000 (+0100) Subject: Add a warning in t/05-words.t X-Git-Tag: v0.06~1 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=fb0c1b785ccd5e914422dc3c7479f188d0aaa96e;p=perl%2Fmodules%2FScope-Upper.git Add a warning in t/05-words.t --- 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';