Testsuite: try to trace intermittent callout fails
[exim.git] / test / scripts / 3000-Perl / 3000
CommitLineData
59371ea7 1# Embedded Perl
c3161b1d 2munge perl_variants
59371ea7
PH
3exim -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}}
9d85e46a 20${sg{${perl{return_hash}}}{\\d+}{X}}
59371ea7 21
efc8902f 22this change-locale fails in earlier systems. Works on Fedora 29.
59371ea7
PH
23$tod_full // ${perl{change_locale}} // $tod_full
24****
25exim -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****
31exim -v -bs
32ehlo x.y.z
33mail from:<>
34rcpt to:<abc@x.y.z>
35quit
36****
37exim -bh 10.0.0.1
38ehlo x.y.z
39mail from:<>
40rcpt to:<abc@x.y.z>
41quit
42****
43exim -DSERVER=server -bd -oX PORT_D
44****
45client 127.0.0.1 PORT_D
46??? 220
47helo x.y.z
48??? 250
49mail from:<>
50??? 250
51rcpt to:<abc@x.y.z>
52??? 250
53quit
54??? 221
55****
56killdaemon
57exim -be
58${perl{no_warn}}
59${perl{foo_warn}}
60****
61no_msglog_check