Testsuite: revert some of the modernish Perl constructs
[exim.git] / test / aux-var-src / 0093.f-1
1 # Exim filter
2
3 testprint "${if eq {1}{1}{yes}{no}}"
4 testprint "${if eq {1}{01}{yes}{no}}"
5 testprint "${if == {1}{01}{yes}{no}}"
6
7 testprint 
8 "${if eq {1}{1}{yes}{${lookup{key1}lsearch{DIR/aux-fixed/junkjunk}{$value}{notfound}}}}"
9
10 testprint 
11 "${if eq {1}{1}{yes}{${lookup{key1}lsearch{DIR/aux-fixed/0093.lsearch}{$value}{notfound}}}}"
12
13 testprint 
14 "${if eq {1}{0}{yes}{${lookup{key1}lsearch{DIR/aux-fixed/0093.lsearch}{$value}{notfound}}}}"
15
16 testprint "body_linecount=$body_linecount"