t/inc-hook.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Fatal;
   6 use lib 't/lib';
   7
   8 unshift @INC, sub { "some regex" =~ /match/; undef };
   9
  10 is(exception { require Package::Stash }, undef, "works with an \@INC hook");
  11
  12 done_testing;