X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F23-bad-notaint.t;fp=t%2F23-bad-notaint.t;h=cb7580beac51dc3b95510642e092a8fb09b81c7e;hp=0000000000000000000000000000000000000000;hb=0bab4804e04c39ec8e6141b4fa78ee6a43a59491;hpb=2e90ec38338004255fcb27593f534db66393ddd9

diff --git a/t/23-bad-notaint.t b/t/23-bad-notaint.t
new file mode 100644
index 0000000..cb7580b
--- /dev/null
+++ b/t/23-bad-notaint.t
@@ -0,0 +1,15 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+{
+ my @warns;
+ {
+  no indirect hook => sub { push @warns, \@_ };
+  eval { meh { } };
+ }
+ is_deeply \@warns, [ [ '{', 'meh', $0, __LINE__-2 ] ], 'covering OP_CONST';
+}