Code tidying

[exim.git] / test / scripts / 0000-Basic / 0002

# Common string expansions
#
# This is the main string expansion test that tests those expansions that will
# be present in the basic Exim binary which we require in order to run these
# tests at all. Specialized expansion tests also exist for optional features
# in other test scripts.
munge dnssec

exim -be

# These expansions can test variables in the configuration, but as there
# is no message being processed, there is no message-related data. But
# that of course gets tested in plenty of other places.

# Some fixed variables

exim_path: $exim_path
primary_hostname: $primary_hostname
primary_hostname: ${primary_hostname}
qualify_domain: $qualify_domain
bounce_return_size_limit: ${bounce_return_size_limit}
spool_directory: $spool_directory
unknown: ${unknown}
h_subject: $h_subject:(should be empty)
h_subject:$h_subject (should be empty)
header in curlies: ${header_subject:} (should fail)

# \$message_headers should be empty
message_headers: >$message_headers<

# Continuation
x\
y
x\
             y

# Overlong names and overbig numbers

+$aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+${aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa}
+$11111111111111111111111111111111111
+${11111111111111111111111111111111111}

# List operations

filter: "${filter{a:b:c}{eq{1}{1}}}"
filter: ${filter{a:b:c}{!eq{$item}{b}}}
filter: ${filter{<' a'b'c}{!eq{$item}{b}}}
filter: ${filter{<' ''a'b' ''c}{!eq{$item}{b}}}
filter: "${filter{}{!eq{$item}{b}}}"

map: "${map{}{$item}}"
map: ${map{a:b:c}{$item}}
map: ${map{a:b:c}{:$item:}}
map: ${if eq{1}{0}{${map{a:b:c}{:$item:}}}{fail string}}
map: ${map{:b:c}{[$item]}}

reduce: "${reduce{}{+}{$value$item}}"
reduce: ${reduce{a:b:c}{+}{$value$item}}
reduce: ${reduce {<, 1,2,3}{0}{${eval:$value+$item}}}
reduce: ${reduce {3:0:9:4:6}{0}{${if >{$item}{$value}{$item}{$value}}}}

listnamed: ${listnamed:dlist}
listnamed: ${listnamed:+dlist}
listnamed: ${listnamed:hlist}
listnamed: ${listnamed:elist}
listnamed: ${listnamed:flist}
listnamed: ${listnamed:nolist}
listnamed: ${listnamed_d:dlist}
listnamed: ${listnamed_d:hlist}
listnamed: ${listnamed_z:dlist}

listcount: ${listcount:a:b:c}
listcount: ${listcount:}
listcount: ${listcount:<;a;b;c}
listcount: ${listcount:${listnamed:dlist}}

listextract: ${listextract{ 2}{a:b:c:d}}
listextract: ${listextract{-2}{<,a,b,c,d}{X${value}X}}
listextract: ${listextract{ 5}{a:b:c:d}}
listextract: ${listextract{-5}{a:b:c:d}}
listextract: ${listextract{ 5}{a:b:c:d}{}{fail}}
listextract: ${listextract{ 5}{a:b:c:d}{}fail}

sort: ${sort{3:2:1:4}{<}{$item}}
sort: ${sort {<, 3,2,1,4}{>}{$item}}
sort: ${sort{c:B:a:aa}{lti}{$item}}
sort: ${sort{666 r99.ex.com:10 smtp.ex.com:100 r2.ex.com}{<}{${sg {$item}{([0-9]*).*\$}{\$1}}}}
sort: ${sort{666,r99.ex.com:10,smtp.ex.com:100,r2.ex.com}{<}{${listextract{1}{<,$item}}}}
sort: "${sort{}{<}{$item}}"

# Tests with iscntrl() and illegal separators

map: ${map{<\n a\n\nb\nc}{'$item'}}

reduce: ${reduce {<n 1\n2\n3}{0}{${eval:$value+$item}}}
reduce: ${reduce {<\n 1\n2\n3}{0}{${eval:$value+$item}}}
reduce: ${reduce { <\n 1\n 2 \n 3 }{0}{${eval:$value+$item}}}
reduce: ${reduce {<\x7f 1\x7f2\177 3}{0}{${eval:$value+$item}}}

# Operators

acl: ${acl
acl: ${acl}
acl: ${acl {a_nosuch}}
acl: ${acl {a_ret}}
acl: ${acl {a_ret}{person@dom.ain}}
acl: ${acl {a_ret}{firstarg}{secondarg}}
acl: ${acl {a_ret}{arg with spaces}}
acl: ${acl {a_none}}
acl: ${acl {a_none}{person@dom.ain}}
acl: ${acl {a_deny}}
acl: ${acl {a_deny}{person@dom.ain}}
acl: ${acl {a_defer}}
acl: ${acl {a_sub}{top_arg_1}{top_arg_2}{top_arg_3}}
acl: ${reduce {1:2:3:4} {} {$value ${acl {a_ret}{$item}}}}

addrss: ${address:local-part@dom.ain}
addrss: ${address:Exim Person <local-part@dom.ain> (that's me)}
domain: ${domain:local-part@dom.ain}
domain: ${domain:Exim Person <local-part@dom.ain> (that's me)}

addresses: ${addresses:>' 'abc@xyz, 'pqr@xyz}
addresses: ${addresses:Exim Person <local-part@dom.ain> (that's me)}
addresses: ${addresses:>+ Exim Person <local-part@dom.ain> (that's me),\
           xyz@abc}
addresses: ${addresses:Exim Person <local-part@dom.ain> (that's me), \
           xyz@abc, nullgroupname:;, group: p@q, r@s; }
addresses: ${addresses:local-part@dom.ain <local-part@dom.ain>}