]> git.vpit.fr Git - perl/modules/indirect.git/blob - t/12-env.t
Harden t/40-threads.t and t/42-threads-global.t against stray exits
[perl/modules/indirect.git] / t / 12-env.t
1 #!perl
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 3;
7
8 {
9  local $ENV{PERL_INDIRECT_PM_DISABLE} = 1;
10  my $err = 0;
11  my $res = eval <<' TEST_ENV_VARIABLE';
12   return 1;
13   no indirect hook => sub { ++$err };
14   my $x = new Flurbz;
15  TEST_ENV_VARIABLE
16  is $@,   '', 'PERL_INDIRECT_PM_DISABLE test doesn\'t croak';
17  is $res, 1,  'PERL_INDIRECT_PM_DISABLE test returns the correct value';
18  is $err, 0,  'PERL_INDIRECT_PM_DISABLE test didn\'t generate any error';
19 }