ignore PERL_XMLDUMP when tainting
[perl.git] / t / run / mad.t
1 #!./perl
2 #
3 # Tests for Perl mad environment
4 #
5 # $PERL_XMLDUMP
6
7 BEGIN {
8     chdir 't' if -d 't';
9     @INC = '../lib';
10     require Config; import Config;
11     require './test.pl';
12     skip_all_without_config('mad');
13 }
14
15 use File::Path;
16
17 my $tempdir = tempfile;
18
19 mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";
20 chdir $tempdir or die die "Can't chdir '$tempdir': $!";
21 unshift @INC, '../../lib';
22 my $cleanup = 1;
23
24 END {
25     if ($cleanup) {
26         chdir '..' or die "Couldn't chdir .. for cleanup: $!";
27         rmtree($tempdir);
28     }
29 }
30
31 plan tests => 4;
32
33 {
34     local %ENV = %ENV;
35     $ENV{PERL_XMLDUMP} = "withoutT.xml";
36     fresh_perl_is('print q/hello/', '', {}, 'mad without -T');
37     ok(-f "withoutT.xml", "xml file created without -T as expected");
38 }
39
40 {
41     local %ENV = %ENV;
42     $ENV{PERL_XMLDUMP} = "withT.xml";
43     fresh_perl_is('print q/hello/', 'hello', { switches => [ "-T" ] },
44                   'mad with -T');
45     ok(!-e "withT.xml", "no xml file created with -T as expected");
46 }