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/tests | |
| 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/tests')
| -rw-r--r-- | mh/tests/Makefile.am | 1 | ||||
| -rw-r--r-- | mh/tests/repl.at | 82 | ||||
| -rw-r--r-- | mh/tests/testsuite.at | 1 |
3 files changed, 84 insertions, 0 deletions
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]) |