From 96fcd34ebc0a0cd737ddea12e98d8996b0f39036 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 29 Nov 2011 03:31:12 -0600 Subject: test for ribasushi's @INC hook bug --- t/inc-hook.t | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 t/inc-hook.t (limited to 't') diff --git a/t/inc-hook.t b/t/inc-hook.t new file mode 100644 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; -- cgit v1.2.3-54-g00ecf