ext/Test/Harness/t/compat/regression.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use lib 't/lib';
   5
   6 use Test::More tests => 1;
   7 use Test::Harness;
   8
   9 # 28567
  10 my ( @before, @after );
  11 {
  12     local @INC;
  13     unshift @INC, 'wibble';
  14     @before = Test::Harness::_filtered_inc();
  15     unshift @INC, sub {die};
  16     @after = Test::Harness::_filtered_inc();
  17 }
  18
  19 is_deeply \@after, \@before, 'subref removed from @INC';