This is 0.64

[perl/modules/Variable-Magic.git] / t / 24-free.t

diff --git a/t/24-free.t b/t/24-free.t
index f66e6db0075f1d5b36a779ff47b96510d5f71ef5..eaa7db3ee4da7db5241424aec0cf9fa5edff23c4 100644 (file)
--- a/t/24-free.t
+++ b/t/24-free.t
@@ -5,22 +5,22 @@ use warnings;
 
 use Test::More tests => 2 * 5 + 1;
 
-use Variable::Magic qw/cast/;
+use Variable::Magic qw<cast>;
 
 use lib 't/lib';
 use Variable::Magic::TestWatcher;
 
-my $wiz = init 'free', 'free';
+my $wiz = init_watcher 'free', 'free';
 
 my $n = int rand 1000;
 
-check {
+watch {
  my $a = $n;
- check { cast $a, $wiz } { }, 'cast';
+ watch { cast $a, $wiz } { }, 'cast';
 } { free => 1 }, 'deletion at the end of the scope';
 
 my $a = $n;
-check { cast $a, $wiz } { }, 'cast 2';
-check { undef $a } { }, 'explicit deletion with undef()';
+watch { cast $a, $wiz } { }, 'cast 2';
+watch { undef $a } { }, 'explicit deletion with undef()';
 
 $Variable::Magic::TestWatcher::mg_end = { free => 1 };