t/12-padsv.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 sub Str::TYPEDSCALAR {
   9  my $buf = (caller(0))[2];
  10  open $_[1], '<', \$buf;
  11  ()
  12 }
  13
  14 use Lexical::Types;
  15
  16 my Str $x;
  17 our $r = <$x>;
  18 is $r, __LINE__-2, 'trick for our - readline';
  19
  20 my Str $y;
  21 my $s = <$y>;
  22 is $s, __LINE__-2, 'trick for my - readline';
  23
  24 my $z = 7;
  25 is $z, 7, 'trick for others';