From f92dd928f3e2e8b4a6e42f43b403dcefefee747a Mon Sep 17 00:00:00 2001 From: "Heiko Schlittermann (HS12)" Date: Mon, 1 Feb 2016 13:57:33 +0100 Subject: [PATCH] Testsuite: test perl_taintmode main option --- test/confs/3001 | 2 ++ test/confs/3002 | 3 +++ test/scripts/3000-Perl/3001 | 3 +++ test/scripts/3000-Perl/3002 | 1 + test/stdout/3001 | 1 + test/stdout/3002 | 1 + 6 files changed, 11 insertions(+) create mode 100644 test/confs/3001 create mode 100644 test/confs/3002 create mode 100644 test/scripts/3000-Perl/3001 create mode 120000 test/scripts/3000-Perl/3002 create mode 100644 test/stdout/3001 create mode 100644 test/stdout/3002 diff --git a/test/confs/3001 b/test/confs/3001 new file mode 100644 index 000000000..6e047f440 --- /dev/null +++ b/test/confs/3001 @@ -0,0 +1,2 @@ +tls_advertise_hosts = +perl_startup = sub taint_flag { ${^TAINT} ? 'ON' : 'OFF' } diff --git a/test/confs/3002 b/test/confs/3002 new file mode 100644 index 000000000..653d38d04 --- /dev/null +++ b/test/confs/3002 @@ -0,0 +1,3 @@ +tls_advertise_hosts = +perl_startup = sub taint_flag { ${^TAINT} ? 'ON' : 'OFF' } +perl_taintmode = yes diff --git a/test/scripts/3000-Perl/3001 b/test/scripts/3000-Perl/3001 new file mode 100644 index 000000000..87b32e7cf --- /dev/null +++ b/test/scripts/3000-Perl/3001 @@ -0,0 +1,3 @@ +# Perl w/o taintmode +exim -be '${perl{taint_flag}}' +**** diff --git a/test/scripts/3000-Perl/3002 b/test/scripts/3000-Perl/3002 new file mode 120000 index 000000000..6fc99cfbb --- /dev/null +++ b/test/scripts/3000-Perl/3002 @@ -0,0 +1 @@ +3001 \ No newline at end of file diff --git a/test/stdout/3001 b/test/stdout/3001 new file mode 100644 index 000000000..6506cb3d7 --- /dev/null +++ b/test/stdout/3001 @@ -0,0 +1 @@ +OFF diff --git a/test/stdout/3002 b/test/stdout/3002 new file mode 100644 index 000000000..76371f28f --- /dev/null +++ b/test/stdout/3002 @@ -0,0 +1 @@ +ON -- 2.25.1