3 # Test that env vars are honoured.
10 ? ( skip_all => 'VMS' )
16 # HARNESS_PERL_SWITCHES
18 my $test_template = <<'END';
21 use Test::More tests => 1;
23 is $ENV{HARNESS_PERL_SWITCHES}, '-w';
26 open TEST, ">env_check_t.tmp";
27 print TEST $test_template;
30 END { unlink 'env_check_t.tmp'; }
33 local $ENV{HARNESS_PERL_SWITCHES} = '-w';
35 = Test::Harness::execute_tests( tests => ['env_check_t.tmp'] );