Testsuite: test perl_taintmode main option

diff --git a/test/confs/3001 b/test/confs/3001
new file mode 100644 (file)
index 0000000..6e047f4
--- /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 (file)
index 0000000..653d38d
--- /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 (file)
index 0000000..87b32e7
--- /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 (symlink)
index 0000000..6fc99cf
--- /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 (file)
index 0000000..6506cb3
--- /dev/null
+++ b/test/stdout/3001
@@ -0,0 +1 @@
+OFF

diff --git a/test/stdout/3002 b/test/stdout/3002
new file mode 100644 (file)
index 0000000..76371f2
--- /dev/null
+++ b/test/stdout/3002
@@ -0,0 +1 @@
+ON