t/16-scope.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => (1 + 2) + (1 + 4);
   7
   8 sub Int::TYPEDSCALAR { join ':', (caller 0)[1, 2] }
   9
  10 our ($x, $y, $z, $t);
  11
  12 use lib 't/lib';
  13
  14 {
  15  eval 'use Lexical::Types; use Lexical::Types::TestRequired1';
  16  is $@, '', 'first require test didn\'t croak prematurely';
  17 }
  18
  19 {
  20  eval 'use Lexical::Types; use Lexical::Types::TestRequired2';
  21  is $@, '', 'second require test didn\'t croak prematurely';
  22 }