t/05-words.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 42;
   7
   8 use Scope::Upper qw/:words/;
   9
  10 is HERE, 0, 'main : here';
  11 is TOP,  0, 'main : top';
  12 is UP,   0, 'main : up';
  13 is SUB,  undef, 'main : sub';
  14 is EVAL, undef, 'main : eval';
  15
  16 {
  17  is HERE, 1, '{ 1 } : here';
  18  is TOP,  0, '{ 1 } : top';
  19  is UP,   0, '{ 1 } : up';
  20 }
  21
  22 do {
  23  is HERE, 1,     'do { 1 } : here';
  24  is SUB,  undef, 'do { 1 } : sub';
  25  is EVAL, undef, 'do { 1 } : eval';
  26 };
  27
  28 eval {
  29  is HERE, 1,     'eval { 1 } : here';
  30  is SUB,  undef, 'eval { 1 } : sub';
  31  is EVAL, 1,     'eval { 1 } : eval';
  32 };
  33
  34 eval q[
  35  is HERE, 1,     'eval "1" : here';
  36  is SUB,  undef, 'eval "1" : sub';
  37  is EVAL, 1,     'eval "1" : eval';
  38 ];
  39
  40 do {
  41  is HERE, 1, 'do { 1 } while (0) : here';
  42 } while (0);
  43
  44 sub {
  45  is HERE, 1,     'sub { 1 } : here';
  46  is SUB,  1,     'sub { 1 } : sub';
  47  is EVAL, undef, 'sub { 1 } : eval';
  48 }->();
  49
  50 for (1) {
  51  is HERE, 1, 'for () { 1 } : here';
  52 }
  53
  54 do {
  55  eval {
  56   do {
  57    sub {
  58     eval q[
  59      {
  60       is HERE,           6, 'mixed : here';
  61       is TOP,            0, 'mixed : top';
  62       is SUB,            4, 'mixed : first sub';
  63       is SUB(SUB),       4, 'mixed : still first sub';
  64       is EVAL,           5, 'mixed : first eval';
  65       is EVAL(EVAL),     5, 'mixed : still first eval';
  66       is EVAL(UP(EVAL)), 2, 'mixed : second eval';
  67      }
  68     ];
  69    }->();
  70   }
  71  };
  72 } while (0);
  73
  74 {
  75  is CALLER,    0, '{ } : caller';
  76  is CALLER(0), 0, '{ } : caller 0';
  77  is CALLER(1), 0, '{ } : caller 1';
  78  sub {
  79   is CALLER,    2, '{ sub { } } : caller';
  80   is CALLER(0), 2, '{ sub { } } : caller 0';
  81   is CALLER(1), 0, '{ sub { } } : caller 1';
  82   for (1) {
  83    is CALLER,    2, '{ sub { for { } } } : caller';
  84    is CALLER(0), 2, '{ sub { for { } } } : caller 0';
  85    is CALLER(1), 0, '{ sub { for { } } } : caller 1';
  86    eval {
  87     is CALLER,    4, '{ sub { for { eval { } } } } : caller';
  88     is CALLER(0), 4, '{ sub { for { eval { } } } } : caller 0';
  89     is CALLER(1), 2, '{ sub { for { eval { } } } } : caller 1';
  90     is CALLER(2), 0, '{ sub { for { eval { } } } } : caller 2';
  91    }
  92   }
  93  }->();
  94 }