Work around the hints propagation in requires on perl <= 5.10.0

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

diff --git a/t/16-scope.t b/t/16-scope.t
new file mode 100644 (file)
index 0000000..712bec2
--- /dev/null
+++ b/t/16-scope.t
@@ -0,0 +1,22 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => (1 + 2) + (1 + 4);
+
+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';
+}