t/23-bad-notaint.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
   9
  10 {
  11  my @warns;
  12  {
  13   no indirect hook => sub { push @warns, \@_ };
  14   eval { meh { } };
  15  }
  16  is_deeply \@warns, [ [ '{', 'meh', $0, __LINE__-2 ] ], 'covering OP_CONST';
  17 }