Merge from master into 4.next

[exim.git] / test / scripts / 3000-Perl / 3001

diff --git a/test/scripts/3000-Perl/3001 b/test/scripts/3000-Perl/3001
index 87b32e7cf5cb69b2487f2bc69adc2433bcf97b07..c49a5f352222f3ce8da1dbfe3ff79a6484ff34c4 100644 (file)
--- a/test/scripts/3000-Perl/3001
+++ b/test/scripts/3000-Perl/3001
@@ -1,3 +1,13 @@
-# Perl w/o taintmode
-exim -be '${perl{taint_flag}}'
+# Environment
+# settings
+FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -bP keep_environment add_environment
 ****
+# result via -bP environment
+FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -bP environment
+****
+# result via -n -bP environment
+FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -n -bP environment
+****
+# result via perl_at_start
+FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -ps -be ''
+***