#!/bin/sh
#
# Tests to see if the -from, -to, -cc, -fcc, and -subject switches to
# "comp" work correctly.
#

if test -z "${MH_OBJ_DIR}"; then
    srcdir=`dirname "$0"`/../..
    MH_OBJ_DIR=`cd "$srcdir" && pwd`; export MH_OBJ_DIR
fi

. "$MH_OBJ_DIR/test/common.sh"

setup_test

check_exit '-eq 1' comp - # gcov
check_exit '-eq 1' comp -xyzzy # gcov
check_exit '-eq 0' comp -help # gcov
check_exit '-eq 0' comp -version # gcov
check_exit '-eq 1' comp -build -noedit -editor # gcov
check_exit '-eq 1' comp -whatnowproc # gcov
check_exit '-eq 1' comp -whatnowproc '' - # gcov
check_exit '-eq 1' comp -use -nouse -form # gcov
check_exit '-eq 1' comp -file # gcov
check_exit '-eq 1' comp -file foo -file # gcov
check_exit '-eq 1' comp -nodraftfolder -draftfolder # gcov
check_exit '-eq 1' comp -draftfolder foo -draftfolder # gcov
check_exit '-eq 1' comp -draftmessage # gcov
check_exit '-eq 1' comp -draftmessage foo -draftmessage # gcov
check_exit '-eq 1' comp -to # gcov
check_exit '-eq 1' comp -cc # gcov
check_exit '-eq 1' comp -from # gcov
check_exit '-eq 1' comp -fcc # gcov
check_exit '-eq 1' comp -fcc @ - # gcov
check_exit '-eq 1' comp -width # gcov
check_exit '-eq 1' comp -width 0 # gcov
check_exit '-eq 1' comp -subject # gcov
check_exit '-eq 1' comp + @ # gcov
check_exit '-eq 1' comp 42 314 # gcov
check_exit '-eq 1' comp -form foo 42 # gcov
check_exit '-eq 1' comp + # gcov
check_exit '-eq 1' comp 42 # gcov

#
# Create a test template file (we create one here just in case the master
# one changes)
#

form="${MH_TEST_DIR}/$$.components"
cat > $form <<EOF
%(void{from})%(void(width))%(putaddr From: )
%(void{to})%(void(width))%(putaddr To: )
%(void{cc})%(void(width))%(putaddr cc: )
Fcc: %{fcc}
Subject: %{subject}
--------
EOF

expected="${MH_TEST_DIR}/$$.expected"
actual="${MH_TEST_DIR}/Mail/draft"
from="Mr Test User <test@example.com>"
to1="User One <userone@example.com>"
to2="User Two <usertwo@example.com>"
cc1="CC User One <ccuserone@example.com>"
cc2="CC User Two <ccusertwo@example.com>"
cc3="CC User Three <ccuserthree@example.com>"
cc4="CC User Four <ccuserfour@example.com>"
fcc1="+nosuchmailbox"
fcc2="+nosuchmailbox2"
subject="Totally bogus subject"

cat > $expected <<EOF
From: ${from}
To: ${to1},
    ${to2}
cc: ${cc1},
    ${cc2},
    ${cc3},
    ${cc4}
Fcc: ${fcc1}, ${fcc2}
Subject: ${subject}
--------
EOF

run_prog \
comp -editor true -form "${form}" -from "${from}" -to "${to1}" -to "${to2}" \
    -cc "${cc1}" -cc "${cc2}" -cc "${cc3}" -cc "${cc4}" -fcc "${fcc1}" \
    -fcc "${fcc2}" -subject "${subject}" -width 60 -nowhatnowproc || exit 1

check "${expected}" "${actual}"

test "${failed:-0}" -eq 0 && rm "${form}"

exit $failed