X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/e7eda725fb69f5fe8ac2e17da308b3952b7fb39a..a69b69121b49e6de84d0e8bf0e39ba3a96b67188:/test/whatnow/test-attach-detach

diff --git a/test/whatnow/test-attach-detach b/test/whatnow/test-attach-detach
index 84b0487b..ba22a19c 100755
--- a/test/whatnow/test-attach-detach
+++ b/test/whatnow/test-attach-detach
@@ -68,13 +68,13 @@ esac
 # whatnow's exit status is always 1 so that is not a failure
 set +e
 echo "attach $testname_quoted" | \
-  run_prog whatnow -attach foo -noedit -prompt '' 2>>$actualerr >>$actual
+  run_prog whatnow -noedit -prompt '' 2>>$actualerr >>$actual
 echo "alist" | \
-  run_prog whatnow -attach foo -noedit -prompt '' 2>>$actualerr >>$actual
+  run_prog whatnow -noedit -prompt '' 2>>$actualerr >>$actual
 echo "detach $testname_quoted" | \
-  run_prog whatnow -attach foo -noedit -prompt '' 2>>$actualerr >>$actual
+  run_prog whatnow -noedit -prompt '' 2>>$actualerr >>$actual
 echo "alist" | \
-  run_prog whatnow -attach foo -noedit -prompt '' 2>>$actualerr >>$actual
+  run_prog whatnow -noedit -prompt '' 2>>$actualerr >>$actual
 set -e
 
 check "$expectederr" "$actualerr"
@@ -82,119 +82,28 @@ check "$expected" "$actual"
 
 if [ "$readline" = 0 ]; then
 cat >"$expected" <<EOF
-
-What now? whatnow: attach command requires file argument(s).
-
-What now? whatnow: attach command requires file argument(s).
-
-What now? whatnow: ignoring attach -a without format argument.
-whatnow: attach command requires file argument(s).
-
-What now? whatnow: attach command requires file argument(s).
-
-What now? whatnow: ignoring attach -a without format argument.
 whatnow: attach command requires file argument(s).
-
-What now? whatnow: ignoring attach -a without format argument.
 whatnow: attach command requires file argument(s).
-
-What now? whatnow: attach command requires file argument(s).
-
-What now? 
-What now? whatnow: ignoring attach -a without format argument.
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? whatnow: ingoring invalid attachformat value of 3
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? #text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? #text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? #text/plain; name="context"; x-unix-mode=0600 [ ASCII text ] ${MH_TEST_DIR}/Mail/context
-
-What now? 
+Attaching ${MH_TEST_DIR}/Mail/context as a text/plain
 EOF
 else
 cat >"$expected" <<EOF
-
-What now? at
+at
 whatnow: attach command requires file argument(s).
-
-What now? at -v
-whatnow: attach command requires file argument(s).
-
-What now? at -v -a
-whatnow: ignoring attach -a without format argument.
-whatnow: attach command requires file argument(s).
-
-What now? at -v -a 0
+at -v
 whatnow: attach command requires file argument(s).
-
-What now? at -a
-whatnow: ignoring attach -a without format argument.
-whatnow: attach command requires file argument(s).
-
-What now? at -a -v
-whatnow: ignoring attach -a without format argument.
-whatnow: attach command requires file argument(s).
-
-What now? at -a 0 -v
-whatnow: attach command requires file argument(s).
-
-What now? at -a 0 Mail/context
-
-What now? at -v -a Mail/context
-whatnow: ignoring attach -a without format argument.
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? at -v -a 3 Mail/context
-whatnow: ingoring invalid attachformat value of 3
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? at -v Mail/context
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? at -v -a 1 Mail/context
-#text/plain; name="context" <> [context]{attachment} ${MH_TEST_DIR}/Mail/context
-
-What now? at -v -a 0 Mail/context
-#text/plain; name="context"; x-unix-mode=0600 [ ASCII text ] ${MH_TEST_DIR}/Mail/context
-
-What now? quit -delete
+at -v Mail/context
+Attaching ${MH_TEST_DIR}/Mail/context as a text/plain
+quit -delete
 EOF
 fi
 
-# Don't depend on the mode of Mail/context:
-chmod 0600 ${MH_TEST_DIR}/Mail/context
-
-set +e
 printf '%s\n' \
-'at' \
-'at -v' \
-'at -v -a' \
-'at -v -a 0' \
-'at -a' \
-'at -a -v' \
-'at -a 0 -v' \
-'at -a 0 Mail/context' \
-'at -v -a Mail/context' \
-'at -v -a 3 Mail/context' \
-'at -v Mail/context' \
-'at -v -a 1 Mail/context' \
-'at -v -a 0 Mail/context' \
-'quit -delete' | whatnow 2>&1 | \
-  sed -e 's/; charset=us-ascii//' -e 's/ *ASCII text/ ASCII text/' \
-      -e 's/ *ascii text/ ASCII text/'  >"$actual"
-set -e
-
-#### Without readline, need to add trailing newline.  And the final
-#### prompt that might have been lost.
-if [ "$readline" = 0 ]; then
-  printf '\n' >>"$actual"
-  sed -e '32,32s/^$/What now? /' "$actual" >"$actual.tmp"
-  mv "$actual.tmp" "$actual"
-fi
+  'at' \
+  'at -v' \
+  'at -v Mail/context' \
+  'quit -delete' | whatnow -prompt '' 2>&1 | \
+  sed -e 's/; charset=us-ascii//' >"$actual"
 
 check "$expected" "$actual"