3 # Test to make sure repl doesn't put trailing spaces at the end of components
9 if test -z "${MH_OBJ_DIR}"; then
10 srcdir=`dirname "$0"`/../..
11 MH_OBJ_DIR=`cd "$srcdir" && pwd`; export MH_OBJ_DIR
14 . "$MH_OBJ_DIR/test/common.sh"
18 # create test replcomps
19 form="$MH_TEST_DIR/$$.replcomps"
21 From: Nowhere User <nowhere@example.com>
22 %(lit)%(formataddr %<{reply-to}%?{from}%>)\
23 %<(nonnull)%(void(width))%(putaddr To: )\n%>\
24 %<{subject}Subject: Re: %{subject}\n%>\
28 expected="$MH_TEST_DIR/$$.expected"
29 actual="$MH_TEST_DIR/Mail/draft"
31 cat > "$expected" <<EOF
32 From: Nowhere User <nowhere@example.com>
33 To: Test1 <test1@example.com>
34 Subject: Re: Testing message 1
37 > This is message number 1
40 repl -editor true -format -form $form -nowhatnowproc 1 || exit 1
42 check "$expected" "$actual"
44 test ${failed:-0} -eq 0 && rm "$form"