Testsuite: perl version oddity
[exim.git] / test / scripts / 3000-Perl / 3000
1 # Embedded Perl
2 munge perl_variants
3 exim -be
4 ${perl{foo}}
5 ${perl{foo}{arg1}}
6 ${perl{foo_undef}}
7 ${perl{foo_die}}
8 ${perl{foo_warn}}
9 ${perl{unknown}}
10 ${perl{readvar}{primary_hostname}}
11 ${perl{readvar}{notexists}}
12
13 ${perl}
14 ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}}
15 ${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}
16
17 ${perl{return_scalar}}
18 ${perl{return_list}}
19 ${perl{return_variable_vector}}
20 ${sg{${perl{return_hash}}}{\\d+}{X}}
21
22 this change-locale fails in earlier systems.  Works on Fedora 29.
23 $tod_full // ${perl{change_locale}} // $tod_full
24 ****
25 exim -d-all+expand -be
26 ${perl{foo}{arg1}}
27 ${perl{foo_undef}}
28 ${perl{debug_write}{debug from Perl\n}}
29 ${perl{log_write}{log from Perl}}
30 ****
31 exim -v -bs
32 ehlo x.y.z
33 mail from:<>
34 rcpt to:<abc@x.y.z>
35 quit
36 ****
37 exim -bh 10.0.0.1
38 ehlo x.y.z
39 mail from:<>
40 rcpt to:<abc@x.y.z>
41 quit
42 ****
43 exim -DSERVER=server -bd -oX PORT_D
44 ****
45 client 127.0.0.1 PORT_D
46 ??? 220
47 helo x.y.z
48 ??? 250
49 mail from:<>
50 ??? 250
51 rcpt to:<abc@x.y.z>
52 ??? 250
53 quit
54 ??? 221
55 ****
56 killdaemon
57 exim -be
58 ${perl{no_warn}}
59 ${perl{foo_warn}}
60 ****
61 no_msglog_check