#!/bin/sh
######################################################
#
# Test slocal
#
######################################################

set -e

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

# Use proper program, maybe not the first one on PATH.
slocal="$MH_LIB_DIR"/slocal

expected="$MH_TEST_DIR"/$$.expected
actual="$MH_TEST_DIR"/$$.actual
actual2="$MH_TEST_DIR"/$$.actual2
md="$MH_TEST_DIR"/Mail/maildelivery

# check -help
cat >"$expected" <<EOF
Usage: slocal [switches]
  switches are:
  -addr address
  -user name
  -file file
  -sender address
  -mailbox file
  -info data
  -maildelivery file
  -[no]verbose
  -[no]suppressdup
  -debug
  -version
  -help
EOF

run_prog $slocal -help >"$actual" 2>&1
check "$expected" "$actual"

# check -version
case `$slocal -vers` in
  slocal\ --*) ;;
  *          ) printf '%s: slocal -vers generated unexpected output\n' "$0" >&2
               failed=`expr ${failed:-0} + 1`;;
esac

# check unknown switch
run_test "$slocal -nonexistent" 'slocal: -nonexistent unknown'

# check non-switch argument
run_test "$slocal nonexistent" 'slocal: only switch arguments are supported'

# If no mail spool, explicitly specify the mailbox.
if grep 'mmdfldir:.*/dev/null' ${MHMTSCONF}.old >/dev/null; then
  mbox="-mailbox ${MH_TEST_DIR}/Mail/mbox"
else
  mbox=
fi

#### Need to specify full path to tee on Cygwin.
[ -x /usr/bin/tee ]  &&  tee=/usr/bin/tee  ||  tee=tee

# check basic operation
# Can't use rcvstore because slocal wipes out the environment.
# So, it would put the message in the user's inbox, not the
# test inbox.  slocal also freopens stdout and stderr to
# /dev/null, so we can't view them to verify simulated delivery.
cat >"$md"  <<EOF
* - qpipe A "$tee $actual"
EOF
chmod go-w "$md"

run_prog $slocal -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/1
check "$MH_TEST_DIR/Mail/inbox/1" "$actual" 'keep first'

if [ ${failed:-0} -eq 1 ]; then
  printf "\nRerunning failed basic slocal command with -verbose -debug to help
    diagnose test failure . . .\n\n"
  run_prog $slocal -verbose -debug -maildelivery "$md" $mbox \
    <"$MH_TEST_DIR"/Mail/inbox/1
  exit 1
fi

# check -debug
run_prog $slocal -debug -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/1 \
  >"$actual2" 2>&1
run_test "grep ^retrieving $actual2" 'retrieving message from stdin'

# check -verbose
run_prog $slocal -verbose -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/1 >"$actual2" 2>&1
run_test "grep ^delivering $actual2" "delivering to pipe \"$tee\", success."

# check -noverbose
run_prog $slocal -verbose -noverbose -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/1 >"$actual2" 2>&1
run_test "grep ^delivering $actual2" ''
rm -f "$actual2"

# check match of From
cat >"$md"  <<EOF
From test2@example.com qpipe A "$tee $actual"
EOF

run_prog $slocal -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/2
check "$MH_TEST_DIR/Mail/inbox/2" "$actual" 'keep first'

# check R and ?
cat >"$md"  <<EOF
From test3@example.com qpipe R "$tee $actual"
From test3@example.com qpipe ? "$tee $actual2"
EOF

run_prog $slocal -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/3
check "$MH_TEST_DIR/Mail/inbox/3" "$actual" 'keep first'
check "$MH_TEST_DIR/Mail/inbox/3" "$actual2" 'keep first'

# check R and N
cat >"$md"  <<EOF
From test4@example.com qpipe R "$tee $actual"
From test4@example.com qpipe N "$tee $actual2"
EOF

run_prog $slocal -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/4
check "$MH_TEST_DIR/Mail/inbox/4" "$actual" 'keep first'
check "$MH_TEST_DIR/Mail/inbox/4" "$actual2" 'keep first'

# check default
cat >"$md"  <<EOF
From test5@example.com qpipe R "$tee $actual"
default 1 qpipe A "$tee $actual2"
EOF

run_prog $slocal -maildelivery "$md" $mbox <"$MH_TEST_DIR"/Mail/inbox/5
check "$MH_TEST_DIR/Mail/inbox/5" "$actual" 'keep first'
check "$MH_TEST_DIR/Mail/inbox/5" "$actual2" 'keep first'

# Use current login for address, user, etc., because it must be an
# existing user on the host.
me=`"$MH_LIB_DIR"/ap -format '%(me)' 0`

# check -addr
cat >"$md"  <<EOF
addr "$me" qpipe A "$tee $actual"
EOF

run_prog $slocal -addr "$me" -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/6
check "$MH_TEST_DIR/Mail/inbox/6" "$actual" 'keep first'

# check -info
cat >"$md"  <<EOF
* - qpipe A "\$(info) $actual"
EOF

run_prog $slocal -info $tee -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/7
check "$MH_TEST_DIR/Mail/inbox/7" "$actual" 'keep first'

# check -sender, which is compared with "source"
cat >"$md"  <<EOF
source "$me" qpipe A "$tee $actual"
EOF

run_prog $slocal -sender "$me" -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/8
check "$MH_TEST_DIR/Mail/inbox/8" "$actual" 'keep first'

# check -user
cat >"$md"  <<EOF
* - qpipe A "$tee $actual"
EOF

run_prog $slocal -user "$me" -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/9
check "$MH_TEST_DIR/Mail/inbox/9" "$actual" 'keep first'

# check -mailbox
cat >"$md"  <<EOF
EOF

run_prog $slocal -mailbox "$actual" -maildelivery "$md" \
  <"$MH_TEST_DIR"/Mail/inbox/10
inc -file "$actual" -silent -truncate
rm -f "$actual"
check "$MH_TEST_DIR/Mail/inbox/10" "$MH_TEST_DIR/Mail/inbox/11" 'keep first'

# check -file
run_prog $slocal -mailbox "$actual" -maildelivery "$md" \
  -file "$MH_TEST_DIR"/Mail/inbox/1
inc -file "$actual" -silent -truncate
rm -f "$actual"
check "$MH_TEST_DIR/Mail/inbox/1" "$MH_TEST_DIR/Mail/inbox/11" 'keep first'

# check -suppressdup
cat >"$md"  <<EOF
* - qpipe A "$tee $actual"
EOF

run_prog $slocal -suppressdup -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/2
check "$MH_TEST_DIR/Mail/inbox/2" "$actual" 'keep first'

run_prog $slocal -suppressdup -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/2
if [ -f "$actual" ]; then
  echo $0: check -suppressdup failed
  failed=`expr ${failed:-0} + 1`
fi

# check -nosuppressdup
run_prog $slocal -suppress -nosuppressdup -maildelivery "$md" $mbox \
  <"$MH_TEST_DIR"/Mail/inbox/2
check "$MH_TEST_DIR/Mail/inbox/2" "$actual" 'keep first'


exit ${failed:-0}