From: Vincent Pit 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';