git.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/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 {
  10
  11     #28567
  12     unshift @INC, 'wibble';
  13     my @before = Test::Harness::_filtered_inc();
  14     unshift @INC, sub {die};
  15     my @after = Test::Harness::_filtered_inc();
  16     is_deeply \@after, \@before, 'subref removed from @INC';
  17 }