X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=t%2F12-destroy.t;h=359add1a8b300c0eb0b215b9dd80fed9ac43d8f0;hp=1193f0714ca31fd8f48ce1e1eca29a465ce6900f;hb=814870f9ed8669571ee7f95cce05765d45b7cf43;hpb=325778545db343888e4f002fd170c4eb557fdaa5

diff --git a/t/12-destroy.t b/t/12-destroy.t
index 1193f07..359add1 100644
--- a/t/12-destroy.t
+++ b/t/12-destroy.t
@@ -3,36 +3,26 @@
 use strict;
 use warnings;
 
+use lib 't/lib';
+use VPIT::TestHelpers;
+
 use Variable::Temp 'temp';
 
 use Test::More tests => 16;
 
-{
- package Variable::Temp::TestDestructor;
-
- sub new {
-  my ($class, $code) = @_;
-  bless { code => $code }, $class;
- }
-
- sub DESTROY {
-  $_[0]->{code}->();
- }
-}
-
 my $x_is_destroyed       = 0;
 my $x_temp1_is_destroyed = 0;
 my $x_temp2_is_destroyed = 0;
 
 {
- my $x = Variable::Temp::TestDestructor->new(sub {
+ my $x = VPIT::TestHelpers::Guard->new(sub {
   is $x_temp1_is_destroyed, 1;
   is $x_temp2_is_destroyed, 1;
   ++$x_is_destroyed;
  });
  is $x_is_destroyed, 0;
 
- temp $x = Variable::Temp::TestDestructor->new(sub {
+ temp $x = VPIT::TestHelpers::Guard->new(sub {
   is $x_is_destroyed,       0;
   is $x_temp2_is_destroyed, 1;
   ++$x_temp1_is_destroyed;
@@ -41,7 +31,7 @@ my $x_temp2_is_destroyed = 0;
  is $x_temp1_is_destroyed, 0;
  is $x_temp2_is_destroyed, 0;
 
- temp $x = Variable::Temp::TestDestructor->new(sub {
+ temp $x = VPIT::TestHelpers::Guard->new(sub {
   is $x_is_destroyed,       0;
   is $x_temp1_is_destroyed, 0;
   ++$x_temp2_is_destroyed;