Replace raw level numbers by words, except in t/55-unwind-multi.t

[perl/modules/Scope-Upper.git] / t / 85-stress-unwind.t

diff --git a/t/85-stress-unwind.t b/t/85-stress-unwind.t
index 5a59e7a01af26eae18b5be2d8682d2f2811d6561..c4712e55026059effd61cd0897b1e62f5981a0dc 100644 (file)
--- 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", '' ] ];
 };