Cover ck_scope actually handling an OP_SCOPE

[perl/modules/indirect.git] / t / 23-bad-notaint.t

diff --git a/t/23-bad-notaint.t b/t/23-bad-notaint.t
new file mode 100644 (file)
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';
+}