X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F85-stress-unwind.t;h=c4712e55026059effd61cd0897b1e62f5981a0dc;hb=0a6221d3f467b5f819e3c119b4cda0218399cb51;hp=5a59e7a01af26eae18b5be2d8682d2f2811d6561;hpb=e4bb8d889bcaaf2a3c9f1f9cd2a8185115db5db0;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", '' ] ];
 };