Add ARM files

[dh-make-perl] / dev / arm / libtest-harness-perl / libtest-harness-perl-3.12 / t / taint.t

diff --git a/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/taint.t b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/taint.t
new file mode 100644 (file)
index 0000000..91335ac
--- /dev/null
+++ b/dev/arm/libtest-harness-perl/libtest-harness-perl-3.12/t/taint.t
@@ -0,0 +1,79 @@
+#!/usr/bin/perl -w
+
+BEGIN {
+    if ( $ENV{PERL_CORE} ) {
+        chdir 't';
+        @INC = ( '../lib', 'lib' );
+    }
+    else {
+        unshift @INC, 't/lib';
+    }
+}
+
+# Test that options in PERL5LIB and PERL5OPT are propogated to tainted
+# tests
+
+use strict;
+use Test::More ( $^O eq 'VMS' ? ( skip_all => 'VMS' ) : ( tests => 3 ) );
+
+use Config;
+use TAP::Parser;
+
+my $lib_path = join( ', ', map "'$_'", grep !ref, grep defined, @INC );
+
+sub run_test_file {
+    my ( $test_template, @args ) = @_;
+
+    my $test_file = 'temp_test.tmp';
+
+    open TEST, ">$test_file" or die $!;
+    printf TEST $test_template, @args;
+    close TEST;
+
+    my $p = TAP::Parser->new( { source => $test_file } );
+    1 while $p->next;
+    ok !$p->has_problems;
+
+    unlink $test_file;
+}
+
+{
+    local $ENV{PERL5LIB} = join $Config{path_sep}, grep defined, 'wibble',
+      $ENV{PERL5LIB};
+    run_test_file( <<'END', $lib_path );
+#!/usr/bin/perl -T
+
+BEGIN { unshift @INC, ( %s ); }
+use Test::More tests => 1;
+
+ok grep(/^wibble$/, @INC) or diag join "\n", @INC;
+END
+}
+
+{
+    my $perl5lib = $ENV{PERL5LIB};
+    local $ENV{PERL5LIB};
+    local $ENV{PERLLIB} = join $Config{path_sep}, grep defined, 'wibble',
+      $perl5lib;
+    run_test_file( <<'END', $lib_path );
+#!/usr/bin/perl -T
+
+BEGIN { unshift @INC, ( %s ); }
+use Test::More tests => 1;
+
+ok grep(/^wibble$/, @INC) or diag join "\n", @INC;
+END
+}
+
+{
+    local $ENV{PERL5LIB} = join $Config{path_sep}, @INC;
+    local $ENV{PERL5OPT} = '-Mstrict';
+    run_test_file(<<'END');
+#!/usr/bin/perl -T
+
+print "1..1\n";
+print $INC{'strict.pm'} ? "ok 1\n" : "not ok 1\n";
+END
+}
+
+1;