Renumber test files

[perl/modules/Lexical-Types.git] / t / 16-scope.t

diff --git a/t/16-scope.t b/t/16-scope.t
deleted file mode 100644 (file)
index e62ceb0..0000000
--- a/t/16-scope.t
+++ /dev/null
@@ -1,47 +0,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => (1 + 2) + (1 + 4) + (3 + 3);
-
-sub Int::TYPEDSCALAR { join ':', (caller 0)[1, 2] }
-
-our ($x, $y, $z, $t);
-
-use lib 't/lib';
-
-{
- eval 'use Lexical::Types; use Lexical::Types::TestRequired1';
- is $@, '', 'first require test didn\'t croak prematurely';
-}
-
-{
- eval 'use Lexical::Types; use Lexical::Types::TestRequired2';
- is $@, '', 'second require test didn\'t croak prematurely';
-}
-
-{
- my (@decls, @w);
- sub cb3 { push @decls, $_[0]; @_ }
- {
-  no strict 'refs';
-  *{"Int3$_\::TYPEDSCALAR"} = \&Int::TYPEDSCALAR for qw<X Y Z>;
- }
- local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
- eval <<' TESTREQUIRED3';
-  {
-   package Lexical::Types::TestRequired3Z;
-   use Lexical::Types as => \&main::cb3;
-   use Lexical::Types::TestRequired3X;
-   use Lexical::Types::TestRequired3Y;
-   my Int3Z $z;
-   ::is($z, __FILE__.':6', 'pragma in use at the end');
-  }
- TESTREQUIRED3
- @w = grep !/^warn:Attempt\s+to\s+free\s+unreferenced/, @w if "$]" <= 5.008_003;
- is         $@,     '',  'third require test didn\'t croak prematurely';
- is_deeply \@w,     [ ], 'third require test didn\'t warn';
- is_deeply \@decls, [ map "Int3$_", qw<X Z> ],
-                         'third require test propagated in the right scopes';
-}