From: Heiko Schlittermann (HS12) Date: Mon, 1 Feb 2016 12:57:33 +0000 (+0100) Subject: Testsuite: test perl_taintmode main option X-Git-Url: https://git.exim.org/users/jgh/exim.git/commitdiff_plain/f92dd928f3e2e8b4a6e42f43b403dcefefee747a?ds=inline Testsuite: test perl_taintmode main option --- 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