test for ribasushi's @INC hook bug

diff --git a/t/inc-hook.t b/t/inc-hook.t
new file mode 100644 (file)
index 0000000..9dd0742
--- /dev/null
+++ b/t/inc-hook.t
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Test::Fatal;
+
+unshift @INC, sub { "some regex" =~ /match/; undef };
+
+is(exception { require Package::Stash }, undef, "works with an \@INC hook");
+
+done_testing;