X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Temp.git;a=blobdiff_plain;f=t%2F10-base.t;h=d203f22fb360b07d1a61f3c48ddf1007ec6436a3;hp=57ea47f8ae5c55581cd1b34bf7358ddcbbaa46c5;hb=82a9214ead460768b5f3d77ea1f58badafc7b00c;hpb=4e16d31366a5659d17e1962fcf1a3507601e22b1

diff --git a/t/10-base.t b/t/10-base.t
index 57ea47f..d203f22 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -24,36 +24,36 @@ is $x, 1;
 }
 is $x, 1;
 
-our $y = 1;
-is $y, 1;
+our $X = 1;
+is $X, 1;
 {
- set_temp $y => 2;
- is $y, 2;
- $y = 3;
- is $y, 3;
+ set_temp $X => 2;
+ is $X, 2;
+ $X = 3;
+ is $X, 3;
  {
-  set_temp $y => 4;
-  is $y, 4;
-  set_temp $y => 5;
-  is $y, 5;
+  set_temp $X => 4;
+  is $X, 4;
+  set_temp $X => 5;
+  is $X, 5;
  }
- is $y, 3;
+ is $X, 3;
  {
-  local $y = 6;
-  is $y, 6;
+  local $X = 6;
+  is $X, 6;
  }
- is $y, 3;
+ is $X, 3;
  {
-  local $y = 7;
-  set_temp $y => 8;
-  is $y, 8;
+  local $X = 7;
+  set_temp $X => 8;
+  is $X, 8;
  }
- is $y, 3;
+ is $X, 3;
  {
-  set_temp $y => 9;
-  local $y = 10;
-  is $y, 10;
+  set_temp $X => 9;
+  local $X = 10;
+  is $X, 10;
  }
- is $y, 3;
+ is $X, 3;
 }
-is $y, 1;
+is $X, 1;