]> git.vpit.fr Git - perl/modules/Variable-Temp.git/blobdiff - t/12-destroy.t
This is 0.04
[perl/modules/Variable-Temp.git] / t / 12-destroy.t
index 359add1a8b300c0eb0b215b9dd80fed9ac43d8f0..5fdc85339f961bf611c6fe354b30b24afaf5cbda 100644 (file)
@@ -3,13 +3,13 @@
 use strict;
 use warnings;
 
-use lib 't/lib';
-use VPIT::TestHelpers;
-
-use Variable::Temp 'temp';
+use Variable::Temp 'set_temp';
 
 use Test::More tests => 16;
 
+use lib 't/lib';
+use VPIT::TestHelpers;
+
 my $x_is_destroyed       = 0;
 my $x_temp1_is_destroyed = 0;
 my $x_temp2_is_destroyed = 0;
@@ -22,7 +22,7 @@ my $x_temp2_is_destroyed = 0;
  });
  is $x_is_destroyed, 0;
 
temp $x = VPIT::TestHelpers::Guard->new(sub {
set_temp $x => VPIT::TestHelpers::Guard->new(sub {
   is $x_is_destroyed,       0;
   is $x_temp2_is_destroyed, 1;
   ++$x_temp1_is_destroyed;
@@ -31,7 +31,7 @@ my $x_temp2_is_destroyed = 0;
  is $x_temp1_is_destroyed, 0;
  is $x_temp2_is_destroyed, 0;
 
temp $x = VPIT::TestHelpers::Guard->new(sub {
set_temp $x => VPIT::TestHelpers::Guard->new(sub {
   is $x_is_destroyed,       0;
   is $x_temp1_is_destroyed, 0;
   ++$x_temp2_is_destroyed;