#!/bin/sh

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

cat >> "$MH" <<EOF
Draft-Folder: drafts
Local-Mailbox: norm@example.com
EOF

# Set this for the EHLO command
echo "clientname: nosuchhost.example.com" >> ${MHMTSCONF}

cat > "$MH_TEST_DIR/Mail/scan.dateless" <<EOF
%4(msg)%<(cur)+%| %>%<(unseen)U%| %>%<{replied}-%| %>\
%<(mymbox{from})%<{to}To:%(unquote(decode(friendly{to})))%>%>\
%<(zero)%(unquote(decode(friendly{from})))%>  \
%(decode{subject})%<{body}<<%{body}>>%>
EOF

sbackup="`mhparam sbackup`"

arith_eval 64000 + $$ % 1000
smtp_port=$arith_val

expected="$MH_TEST_DIR/$$.expected"
actual="$MH_TEST_DIR/$$.actual"

################################################################################
start_test 'comp with Draft-Folder'

check_exit '-eq 0' comp -noedit -to phyl@example.com -fcc sent -subject test -nowhatnowproc < /dev/null

################################################################################
start_test 'scan +drafts shows the draft'

cat > "$expected" <<EOF
   1+  To:phyl@example.com  test
EOF

run_prog scan -form scan.dateless +drafts > "$actual"
check "$actual" "$expected"

################################################################################
start_test 'send with Draft-Folder'

pid=`"${MH_OBJ_DIR}/test/fakesmtp" /dev/null $smtp_port`

if ! (echo y | check_exit '-eq 0' send -server 127.0.0.1 -port $smtp_port); then
    failed=`expr ${failed:-0} + 1`
fi
kill $pid 2> /dev/null || :
[ ${failed:-0} -eq 0 ]

################################################################################
start_test 'drafts/.mh_sequences'

cat > "$expected" <<EOF
cur: 1
EOF
check "`mhpath +drafts`/.mh_sequences" "$expected"

################################################################################
start_test 'scan +drafts shows no messages'

cat > "$expected" <<EOF
scan: no messages in drafts
EOF

run_prog scan -form scan.dateless +drafts > "$actual" 2>&1 || :
check "$actual" "$expected"

################################################################################
start_test 'scan +sent shows the sent message'

cat > "$expected" <<EOF
   1   To:phyl@example.com  test
EOF

run_prog scan -form scan.dateless +sent > "$actual"
check "$actual" "$expected"

################################################################################
start_test 'drafts/,1.orig is the original draft'

cat > "$expected" <<EOF
From: norm@example.com
To: phyl@example.com
cc:
Fcc: sent
Subject: test
--------
EOF
check "`mhpath +drafts`/,1.orig" "$expected"

################################################################################
start_test 'drafts/,1 is the post-mhbuild draft'

cat > "$expected" <<EOF
From: norm@example.com
To: phyl@example.com
cc:
Fcc: sent
Subject: test
MIME-Version: 1.0
Content-Type: text/plain
EOF
check "`mhpath +drafts`/,1" "$expected"

################################################################################
# Now test with -draftfolder.
# TODO Why are these different?!
################################################################################

################################################################################
start_test 'comp with Draft-Folder now for send -draftfolder'

check_exit '-eq 0' comp -noedit -to phyl@example.com -fcc sent -subject test2 -nowhatnowproc < /dev/null

################################################################################
start_test 'scan +drafts shows the draft now for send -draftfolder'

cat > "$expected" <<EOF
   1+  To:phyl@example.com  test2
EOF

run_prog scan -form scan.dateless +drafts > "$actual"
check "$actual" "$expected"

################################################################################
start_test 'send -draftfolder'

pid=`"${MH_OBJ_DIR}/test/fakesmtp" /dev/null $smtp_port`

if ! check_exit '-eq 0' send -draftfolder drafts -server 127.0.0.1 -port $smtp_port < /dev/null; then
    failed=`expr ${failed:-0} + 1`
fi
kill $pid 2> /dev/null || :
[ ${failed:-0} -eq 0 ]

################################################################################
start_test 'drafts/.mh_sequences'

cat > "$expected" <<EOF
cur: 1
EOF
check "`mhpath +drafts`/.mh_sequences" "$expected"

################################################################################
start_test 'scan +drafts shows no messages now for send -draftfolder'

cat > "$expected" <<EOF
scan: no messages in drafts
EOF

run_prog scan -form scan.dateless +drafts > "$actual" 2>&1 || :
check "$actual" "$expected"

################################################################################
start_test 'scan +sent shows the sent message now for send -draftfolder'

cat > "$expected" <<EOF
   1   To:phyl@example.com  test
   2   To:phyl@example.com  test2
EOF

run_prog scan -form scan.dateless +sent > "$actual"
check "$actual" "$expected"

################################################################################
start_test "drafts/${sbackup}1.orig is the original draft now for send -draftfolder"

cat > "$expected" <<EOF
From: norm@example.com
To: phyl@example.com
cc:
Fcc: sent
Subject: test2
--------
EOF
check "`mhpath +drafts`/${sbackup}1.orig" "$expected"

################################################################################
start_test "drafts/${sbackup}1 is the post-mhbuild draft now for send -draftfolder"

cat > "$expected" <<EOF
From: norm@example.com
To: phyl@example.com
cc:
Fcc: sent
Subject: test2
MIME-Version: 1.0
Content-Type: text/plain
EOF
check "`mhpath +drafts`/${sbackup}1" "$expected"

finish_test

exit ${failed:-0}