Testsuite: perl syntax (l-brace in RE)
[users/jgh/exim.git] / test / aux-fixed / 0316.f-user
1 # Exim filter
2
3 if foranyaddress "a@b, c@d" ( $thisaddress matches ^c ) then
4   testprint "1 Matched $thisaddress"
5 endif   
6
7 if foranyaddress "Group name: a@b, c@d;, cc@dd" ( $thisaddress matches ^c ) 
8 then
9   testprint "2 Matched $thisaddress"
10 endif   
11     
12 if foranyaddress "Group name: a@b, c@d;, cc@dd" ( $thisaddress matches ^cc ) 
13 then
14   testprint "3 Matched $thisaddress"
15 endif   
16     
17 if foranyaddress "Group name: a@b, c@d;, cc@dd, N2: e@f;, ee@ff" 
18   ( $thisaddress matches ^e ) 
19 then
20   testprint "4 Matched $thisaddress"
21 endif   
22