X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F24-free.t;h=eaa7db3ee4da7db5241424aec0cf9fa5edff23c4;hb=HEAD;hp=f66e6db0075f1d5b36a779ff47b96510d5f71ef5;hpb=07b1a9b1aa7e77cd95018f9df7b3e449c39986a1;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/24-free.t b/t/24-free.t
index f66e6db..eaa7db3 100644
--- 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 };