Implement context_info()

[perl/modules/Scope-Upper.git] / t / 55-yield-target.t

diff --git a/t/55-yield-target.t b/t/55-yield-target.t
index 594a04be93aa1f815dff46f7d92d846608c43e54..46ea7f5d51e44287355cb7d3aea7dd0c290e5a60 100644 (file)
--- a/t/55-yield-target.t
+++ b/t/55-yield-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 18;
 
-use Scope::Upper qw<yield>;
+use Scope::Upper qw<yield leave>;
 
 my @res;
 
@@ -72,7 +72,7 @@ is_deeply \@res, [ 20, 23 ], 'yield() in while () { ... }';
  my $err  = $@;
  my $line = __LINE__-3;
  like $err,
-      qr/^yield\(\) cannot target a substitution context at \Q$0\E line $line/,
+      qr/^yield\(\) can't target a substitution context at \Q$0\E line $line/,
       'yield() cannot exit subst';
 }