summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2010-11-23 20:40:09 +0200
committerSergey Poznyakoff <gray@gnu.org.ua>2010-11-23 20:40:09 +0200
commit764ebfd7f22dd2634413f1d427ab0f51b0b7797b (patch)
tree517a50c5cf3b34f5dda320846248e38c14d1a6e2
parent39160956df0ea814c08af4d60adb3bac63bd41f7 (diff)
downloadmailutils-764ebfd7f22dd2634413f1d427ab0f51b0b7797b.tar.gz
mailutils-764ebfd7f22dd2634413f1d427ab0f51b0b7797b.tar.bz2
mh: add repl tests.
* mh/repl.c: Minor changes. * tests/repl.at: New file. * tests/Makefile.am (TESTSUITE_AT): Add repl.at * mh/tests/testsuite.at: Include repl.at. * mh/TODO: Update.
-rw-r--r--mh/TODO2
-rw-r--r--mh/repl.c6
-rw-r--r--mh/tests/Makefile.am1
-rw-r--r--mh/tests/repl.at82
-rw-r--r--mh/tests/testsuite.at1
5 files changed, 88 insertions, 4 deletions
diff --git a/mh/TODO b/mh/TODO
index 7bc3a40c6..b686d8bd0 100644
--- a/mh/TODO
+++ b/mh/TODO
@@ -19,7 +19,7 @@ State Nice Utility Comments
-------------------------------------------
+ -20 scan
+ -20 inc
-* -20 repl --inplace
+* -20 repl --inplace,--query
+ -20 comp
* -20 forw --inplace
* -20 send --alias,--filter,--format,--forward,--mime,
diff --git a/mh/repl.c b/mh/repl.c
index 09c85a74b..8629d61f1 100644
--- a/mh/repl.c
+++ b/mh/repl.c
@@ -58,7 +58,7 @@ static struct argp_option options[] = {
{"inplace", ARG_INPLACE, N_("BOOL"), OPTION_ARG_OPTIONAL,
N_("* annotate the message in place")},
{"query", ARG_QUERY, N_("BOOL"), OPTION_ARG_OPTIONAL,
- N_("query for addresses to place in To: and Cc: lists")},
+ N_("* query for addresses to place in To: and Cc: lists")},
{"width", ARG_WIDTH, N_("NUMBER"), 0, N_("set output width")},
{"whatnowproc", ARG_WHATNOWPROC, N_("PROG"), 0,
N_("set the replacement for whatnow program")},
@@ -143,8 +143,7 @@ opt_handler (int key, char *arg, struct argp_state *state)
switch (key)
{
case ARGP_KEY_INIT:
- draftfolder = mh_global_profile_get ("Draft-Folder",
- mu_folder_directory ());
+ draftfolder = mh_global_profile_get ("Draft-Folder", NULL);
whatnowproc = mh_global_profile_get ("whatnowproc", NULL);
break;
@@ -225,6 +224,7 @@ opt_handler (int key, char *arg, struct argp_state *state)
break;
case ARG_QUERY:
+ mh_opt_notimpl_warning ("-inplace");
query_mode = is_true (arg);
break;
diff --git a/mh/tests/Makefile.am b/mh/tests/Makefile.am
index 72f470fcb..0c2bbe673 100644
--- a/mh/tests/Makefile.am
+++ b/mh/tests/Makefile.am
@@ -55,6 +55,7 @@ TESTSUITE_AT = \
pick.at\
scan.at\
refile.at\
+ repl.at\
rmf.at\
rmm.at\
testsuite.at
diff --git a/mh/tests/repl.at b/mh/tests/repl.at
new file mode 100644
index 000000000..2df8e6b94
--- /dev/null
+++ b/mh/tests/repl.at
@@ -0,0 +1,82 @@
+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2010 Free Software Foundation, Inc.
+#
+# GNU Mailutils is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 3, or (at
+# your option) any later version.
+#
+# GNU Mailutils is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
+
+m4_pushdef([MH_KEYWORDS],[repl])
+m4_pushdef([replcmd],[repl dnl
+-editor $abs_top_srcdir/mh/tests/mhed])
+
+MH_CHECK([repl msg],[repl00 repl-msg],[
+mkdir Mail/inbox
+AT_DATA([Mail/inbox/1],[From: gray@example.com
+To: root@example.com
+Subject: test input
+
+message body
+])
+echo "quit" | replcmd +inbox 1 | sed "s|$dir/*||;s| *$||"
+echo == Mail/draft ==
+cat Mail/draft
+],
+[0],
+[-- Editor invocation: Mail/draft
+-- Input file:
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+-- Input file end
+What now? draft left on "Mail/draft".
+== Mail/draft ==
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+Seen by mhed
+])
+
+MH_CHECK([repl -draftfolder],[repl01 repl-draftfolder],[
+mkdir Mail/inbox
+mkdir Mail/drafts
+AT_DATA([Mail/inbox/1],[From: gray@example.com
+To: root@example.com
+Subject: test input
+
+message body
+])
+echo "quit" | replcmd -draftfolder drafts +inbox 1 | sed "s|$dir/*||;s| *$||"
+echo == Mail/drafts/1 ==
+cat Mail/drafts/1
+],
+[0],
+[-- Editor invocation: Mail/drafts/1
+-- Input file:
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+-- Input file end
+What now? draft left on "Mail/drafts/1".
+== Mail/drafts/1 ==
+To: <gray@example.com>
+Subject: Re: test input
+X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION)
+--------
+Seen by mhed
+])
+
+m4_popdef([replcmd])
+m4_popdef([MH_KEYWORDS])
+# End of repl.at \ No newline at end of file
diff --git a/mh/tests/testsuite.at b/mh/tests/testsuite.at
index 1e07c4a24..f06f082b3 100644
--- a/mh/tests/testsuite.at
+++ b/mh/tests/testsuite.at
@@ -59,3 +59,4 @@ m4_include([pick.at])
m4_include([burst.at])
m4_include([comp.at])
m4_include([forw.at])
+m4_include([repl.at])

Return to:

Send suggestions and report system problems to the System administrator.