t/05-TOPLEVEL.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 9;
   7
   8 use Scope::Upper qw/TOPLEVEL/;
   9
  10 is TOPLEVEL, 0, 'main is 0';
  11
  12 {
  13  is TOPLEVEL, 1, '{ 1 }';
  14 }
  15
  16 do {
  17  is TOPLEVEL, 1, 'do { 1 }';
  18 };
  19
  20 eval {
  21  is TOPLEVEL, 1, 'eval { 1 }';
  22 };
  23
  24 eval q[
  25  is TOPLEVEL, 1, 'eval "1"';
  26 ];
  27
  28 do {
  29  is TOPLEVEL, 1, 'do { 1 } while (0)';
  30 } while (0);
  31
  32 sub {
  33  is TOPLEVEL, 1, 'sub { 1 }';
  34 }->();
  35
  36 for (1) {
  37  is TOPLEVEL, 1, 'for () { 1 }';
  38 }
  39
  40 do {
  41  eval {
  42   do {
  43    sub {
  44     eval q[
  45      {
  46       is TOPLEVEL, 6, 'all'
  47      }
  48     ];
  49    }->();
  50   }
  51  };
  52 } while (0);