Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / scripts / 3000-Perl / 3001
1 # Environment
2 # settings
3 FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -bP keep_environment add_environment
4 ****
5 # result via -bP environment
6 FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -bP environment
7 ****
8 # result via -n -bP environment
9 FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -n -bP environment
10 ****
11 # result via perl_at_start
12 FOO=foo FOO1=foo1 FOO2=foo2 BAR=bar BAR1=bar1 BAR2=bar2 exim -ps -be ''
13 ***