Test set/free magic

diff --git a/MANIFEST b/MANIFEST
index 5104b3589789ae81348d6192be0c67fb4ba58a57..d6d63d8dc1ff625694a0df4f1277728b0dbe26a2 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -10,4 +10,5 @@ t/01-import.t
 t/10-lexical.t
 t/11-global.t
 t/12-destroy.t
+t/13-magic.t
 t/lib/VPIT/TestHelpers.pm

diff --git a/t/13-magic.t b/t/13-magic.t
new file mode 100644 (file)
index 0000000..883088b
--- /dev/null
+++ b/t/13-magic.t
@@ -0,0 +1,48 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Variable::Temp 'temp';
+
+use Test::More tests => 14;
+
+use lib 't/lib';
+use VPIT::TestHelpers;
+
+load_or_skip_all('Variable::Magic', '0.55', undef);
+
+my $replaced = 0;
+my $freed    = 0;
+
+my $wiz = Variable::Magic::wizard(
+ set  => sub { ++$replaced; () },
+ free => sub { ++$freed;    () },
+);
+
+{
+ my $y = 1;
+ &Variable::Magic::cast(\$y, $wiz);
+ is $y,        1;
+ is $replaced, 0;
+ is $freed,    0;
+
+ {
+  temp $y = 2;
+  is $y,        2;
+  is $replaced, 1;
+  is $freed,    0;
+
+  $y = 3;
+  is $y,        3;
+  is $replaced, 2;
+  is $freed,    0;
+ }
+
+ is $y,        1;
+ is $replaced, 3;
+ is $freed,    0;
+}
+
+is $replaced, 3;
+is $freed,    1;