t/10-base.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 4;
   7
   8 sub Int::TYPEDSCALAR { (caller(0))[2] }
   9
  10 {
  11  use Lexical::Types;
  12
  13  my Int $a;
  14  is $a, __LINE__-1, 'single';
  15
  16  my Int ($b, $c);
  17  is $b, __LINE__-1, 'double (a)';
  18  is $c, __LINE__-2, 'double (b)';
  19
  20  for my Int $d (0) {
  21   is $d, 0, 'for';
  22  }
  23 }