]> git.vpit.fr Git - perl/modules/Lexical-Types.git/blobdiff - t/13-padsv.t
Test hooking declarations inside the 'as' callback
[perl/modules/Lexical-Types.git] / t / 13-padsv.t
index 8061e90456cf475a2273c51f5485c06bf7e5a503..5e5cc3d32d49f8e00c6732ed6fa18630131c91e6 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 4;
 
 sub Str::TYPEDSCALAR {
  my $buf = (caller(0))[2];
@@ -26,19 +26,19 @@ sub Str::TYPEDSCALAR {
  is $z, 7, 'trick for others';
 }
 
-my $count;
-sub Int::TYPEDSCALAR { return ++$count }
+my @lines;
 
-{ package INT; }
+sub Int::TYPEDSCALAR { push @lines, (caller(0))[2]; () }
 
 {
- use Lexical::Types as => sub { $_[0] eq 'Int' ? @_ : () };
-
- my Int ($x, $y);
- is $x, 1, 'successive padany 1';
- is $y, 2, 'successive padany 2';
-
- my INT ($z, $t);
- is $z, undef, 'successive padany 3';
- is $t, undef, 'successive padany 4';
+ use Lexical::Types as => sub {
+  # In 5.10, this closure is compiled before hints are enabled, so no hintseval
+  # op is added at compile time to propagate the hints inside the eval.
+  # That's why we need to re-use Lexical::Types explicitely.
+  eval 'use Lexical::Types; my Int $x';
+  @_;
+ };
+
+ my Int $x;
+ is_deeply \@lines, [ 1, __LINE__-1 ], 'hooking inside the \'as\' callback';
 }