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 }