X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F05-words.t;h=751b464b0a12ca7e0d37fdd78dff1ad3bdd1c6a5;hb=b1705371d0b8be388540f125bde19d10e3e14ea8;hp=2376d3559ed008b7ba70d7d5ed094b8d24c7a5df;hpb=50d757921d9013018ad16813fa5264a5791c6ad3;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/05-words.t b/t/05-words.t
index 2376d35..751b464 100644
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -7,17 +7,17 @@ use Test::More tests => 33;
 
 use Scope::Upper qw/:words/;
 
-is CURRENT, 0, 'main : current';
-is TOP, 0, 'main : top';
-is UP, 0, 'main : up';
+is HERE, 0, 'main : here';
+is TOP,  0, 'main : top';
+is UP,   0, 'main : up';
 is DOWN, 0, 'main : down';
-is SUB, undef, 'main : sub';
+is SUB,  undef, 'main : sub';
 is EVAL, undef, 'main : eval';
 
 {
- is CURRENT, 0, '{ 1 } : current';
- is TOP, 1, '{ 1 } : top';
- is UP, 1, '{ 1 } : up';
+ is HERE, 0, '{ 1 } : here';
+ is TOP,  1, '{ 1 } : top';
+ is UP,   1, '{ 1 } : up';
  is DOWN, 0, '{ 1 } : down';
  is DOWN(UP), 0, '{ 1 } : up then down';
  is UP(DOWN), 1, '{ 1 } : down then up';
@@ -61,12 +61,12 @@ do {
    sub {
     eval q[
      {
-      is CURRENT, 0, 'mixed : current';
-      is TOP, 6, 'mixed : top';
-      is SUB, 2, 'mixed : first sub';
+      is HERE, 0, 'mixed : here';
+      is TOP,  6, 'mixed : top';
+      is SUB,  2, 'mixed : first sub';
       is SUB(SUB), 2, 'mixed : still first sub';
       is EVAL, 1, 'mixed : first eval';
-      is EVAL(EVAL), 1, 'mixed : still first eval';
+      is EVAL(EVAL),     1, 'mixed : still first eval';
       is EVAL(UP(EVAL)), 4, 'mixed : second eval';
      }
     ];