]> git.vpit.fr Git - perl/modules/Variable-Temp.git/blobdiff - t/11-global.t
Use set_temp() in tests instead of temp()
[perl/modules/Variable-Temp.git] / t / 11-global.t
index 047529c1fdd3d9f0792a659788abf9165fe3d020..99a40f5980de738ce97297d343af9366bda13a6c 100644 (file)
@@ -3,21 +3,21 @@
 use strict;
 use warnings;
 
-use Variable::Temp 'temp';
+use Variable::Temp 'set_temp';
 
 use Test::More tests => 13;
 
 our $x = 1;
 is $x, 1;
 {
temp $x = 2;
set_temp $x => 2;
  is $x, 2;
  $x = 3;
  is $x, 3;
  {
-  temp $x = 4;
+  set_temp $x => 4;
   is $x, 4;
-  temp $x = 5;
+  set_temp $x => 5;
   is $x, 5;
  }
  is $x, 3;
@@ -28,12 +28,12 @@ is $x, 1;
  is $x, 3;
  {
   local $x = 7;
-  temp  $x = 8;
+  set_temp $x => 8;
   is $x, 8;
  }
  is $x, 3;
  {
-  temp  $x = 9;
+  set_temp $x => 9;
   local $x = 10;
   is $x, 10;
  }