diff options
| author |   Frédéric Buclin <LpSolit@gmail.com> | 2015-03-16 18:20:32 +0100 |
|---|---|---|
| committer | Frédéric Buclin <LpSolit@gmail.com> | 2015-03-16 18:20:32 +0100 |
| commit | 6cfdba05babdc098b7bfa4b2cb766f4e4789bd34 (patch) | |
| tree | 672f23486ce060921454894ec57f3e87a445d7e2 | |
| parent | (TaskCluster) Allow retrieval of the selenium.log for Selenium tests (diff) | |
| download | bugzilla-6cfdba05babdc098b7bfa4b2cb766f4e4789bd34.tar.gz bugzilla-6cfdba05babdc098b7bfa4b2cb766f4e4789bd34.tar.bz2 bugzilla-6cfdba05babdc098b7bfa4b2cb766f4e4789bd34.zip | |
Bug 1137669: 003safesys.t doesn't test any file due to a missing -T argument
r=dylan a=glob
| -rw-r--r-- | t/003safesys.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/003safesys.t b/t/003safesys.t index b4f41f61c..5415f4068 100644 --- a/t/003safesys.t +++ b/t/003safesys.t @@ -52,7 +52,16 @@ my $perlapp = "\"$^X\""; foreach my $file (@testitems) { $file =~ s/\s.*$//; # nuke everything after the first space (#comment) next if (!$file); # skip null entries - my $command = "$perlapp -c -It -MSupport::Systemexec $file 2>&1"; + + open(my $fh2, '<', $file); + my $bang = <$fh2>; + close $fh2; + + my $T = ""; + if ($bang =~ m/#!\S*perl\s+-.*T/) { + $T = "T"; + } + my $command = "$perlapp -c$T -It -MSupport::Systemexec $file 2>&1"; my $loginfo=`$command`; if ($loginfo =~ /arguments for Support::Systemexec::(system|exec)/im) { ok(0,"$file DOES NOT use proper system or exec calls"); |