Move the last tests of t/13-padsv.t to t/10-base.t

[perl/modules/Lexical-Types.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
new file mode 100644 (file)
index 0000000..282863a
--- /dev/null
+++ b/t/10-base.t
@@ -0,0 +1,23 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 4;
+
+sub Int::TYPEDSCALAR { (caller(0))[2] }
+
+{
+ use Lexical::Types;
+
+ my Int $a;
+ is $a, __LINE__-1, 'single';
+
+ my Int ($b, $c);
+ is $b, __LINE__-1, 'double (a)';
+ is $c, __LINE__-2, 'double (b)';
+
+ for my Int $d (0) {
+  is $d, 0, 'for';
+ }
+}