diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-11-23 20:40:09 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2010-11-23 20:40:09 +0200 |
commit | 764ebfd7f22dd2634413f1d427ab0f51b0b7797b (patch) | |
tree | 517a50c5cf3b34f5dda320846248e38c14d1a6e2 /mh | |
parent | 39160956df0ea814c08af4d60adb3bac63bd41f7 (diff) | |
download | mailutils-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.
Diffstat (limited to 'mh')
-rw-r--r-- | mh/TODO | 2 | ||||
-rw-r--r-- | mh/repl.c | 6 | ||||
-rw-r--r-- | mh/tests/Makefile.am | 1 | ||||
-rw-r--r-- | mh/tests/repl.at | 82 | ||||
-rw-r--r-- | mh/tests/testsuite.at | 1 |
5 files changed, 88 insertions, 4 deletions
@@ -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, @@ -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]) |