Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-fixed / 0093.f-3
1 #Exim filter
2
3 testprint "From: is ${if def:h_from:{}{not }}defined"
4 testprint "Absent: is ${if def:h_absent:{}{not }}defined"
5 testprint "----------------------"
6 testprint $message_headers
7 testprint "----------------------"
8 testprint $message_headers+++more
9 testprint "----------------------"
10 testprint "+++$message_headers+++"
11 testprint "----------------------"
12 testprint "From: >$h_from:<"
13 testprint $h_repeated:
14 testprint "----------------------"
15 testprint +++$header_repeated:+++
16 testprint "----------------------"
17 testprint reply_address=$reply_address
18 testprint empty=>$h_empty:<
19 testprint repeated-empty=>$h_repeated-empty:<
20 testprint "----------------------"