X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F85-stress-unwind.t;h=c4712e55026059effd61cd0897b1e62f5981a0dc;hb=fb0c1b785ccd5e914422dc3c7479f188d0aaa96e;hp=5a59e7a01af26eae18b5be2d8682d2f2811d6561;hpb=df13e52b10dc5902a7f1a0b02dc7fb5eef429944;p=perl%2Fmodules%2FScope-Upper.git diff --git a/t/85-stress-unwind.t b/t/85-stress-unwind.t index 5a59e7a..c4712e5 100644 --- a/t/85-stress-unwind.t +++ b/t/85-stress-unwind.t @@ -5,12 +5,13 @@ use warnings; use Test::More 'no_plan'; -use Scope::Upper qw/unwind/; +use Scope::Upper qw/unwind UP HERE/; our ($call, @args, $args); $call = sub { my ($height, $level, $i) = @_; + $level = $level ? 'UP ' x $level : 'HERE'; return [ [ "unwind(\@args => $level)\n", '' ] ]; };