X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=test%2Fscripts%2F3000-Perl%2F3001;h=46e9d57627777825d2820f40d79e067dbb72391d;hb=04e5caa9a7e84b2afca642d28096d988cb6802e7;hp=87b32e7cf5cb69b2487f2bc69adc2433bcf97b07;hpb=f92dd928f3e2e8b4a6e42f43b403dcefefee747a;p=user%2Fhenk%2Fcode%2Fexim.git

diff --git a/test/scripts/3000-Perl/3001 b/test/scripts/3000-Perl/3001
index 87b32e7cf..46e9d5762 100644
--- 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 ''
 ****