X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F16-scope.t;fp=t%2F16-scope.t;h=712bec2c81da136294d55297ea353c77bf301bd4;hb=28f52395e07f990ec77ca6b87352811f2a9c5f79;hp=0000000000000000000000000000000000000000;hpb=6e9765def6efaf02330bf276fc8006e13769d035;p=perl%2Fmodules%2FLexical-Types.git

diff --git a/t/16-scope.t b/t/16-scope.t
new file mode 100644
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';
+}