t/23-bad-notaint.t

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