diff options
Diffstat (limited to 'mh/tests')
| -rw-r--r-- | mh/tests/comp.at | 43 | ||||
| -rw-r--r-- | mh/tests/forw.at | 123 | ||||
| -rw-r--r-- | mh/tests/repl.at | 64 |
3 files changed, 230 insertions, 0 deletions
diff --git a/mh/tests/comp.at b/mh/tests/comp.at index 563310cca..7a63e5ff7 100644 --- a/mh/tests/comp.at +++ b/mh/tests/comp.at @@ -193,6 +193,49 @@ message body Seen by mhed ]) +MH_CHECK([use Draft-Folder],[comp07 draftfolder], +[mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH +echo 'quit' | compcmd | cwdrepl +sed 's/ *$//' Mail/drafts/1 +], +[0], +[-- Editor invocation: ./Mail/drafts/1 +-- Input file: +To: +cc: +Subject: +-------- +-- Input file end +What now? draft left on "./Mail/drafts/1". +To: +cc: +Subject: +-------- +Seen by mhed +]) + +MH_CHECK([-nodraftfolder],[comp08 nodraftfolder draftfolder], +[mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH +echo 'quit' | compcmd -nodraftfolder | cwdrepl +sed 's/ *$//' Mail/draft +], +[0], +[-- Editor invocation: ./Mail/draft +-- Input file: +To: +cc: +Subject: +-------- +-- Input file end +What now? draft left on "./Mail/draft". +To: +cc: +Subject: +-------- +Seen by mhed +]) m4_popdef([compcmd]) m4_popdef([MH_KEYWORDS]) diff --git a/mh/tests/forw.at b/mh/tests/forw.at index e0566dfe7..f668a3389 100644 --- a/mh/tests/forw.at +++ b/mh/tests/forw.at @@ -397,6 +397,129 @@ message body What now? draft left on "./Mail/draft". ]) +MH_CHECK([Draft-Folder],[forw07 forw-draftfolder draftfolder],[ +mkdir Mail/inbox +mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH + +AT_DATA([Mail/inbox/1],[From: gray +To: root +Subject: test input + +message body +]) + +echo "quit" | forwcmd 1 | cwdrepl +echo == Mail/drafts/1 == +cat Mail/drafts/1 +echo == Message == +sed '/^X-IMAPbase/d' Mail/inbox/1 +], +[0], +[-- Editor invocation: ./Mail/drafts/1 +-- Input file: +To: +cc: +Subject: +-------- + +------- Forwarded message +From: gray +To: root +Subject: test input + +message body + +------- End of Forwarded message + +-- Input file end +What now? draft left on "./Mail/drafts/1". +== Mail/drafts/1 == +To: +cc: +Subject: +-------- + +------- Forwarded message +From: gray +To: root +Subject: test input + +message body + +------- End of Forwarded message + +Seen by mhed +== Message == +From: gray +To: root +Subject: test input + +message body +]) + +MH_CHECK([-nodraftfolder],[forw08 forw-nodraftfolder nodraftfolder draftfolder],[ +mkdir Mail/inbox +mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH + +AT_DATA([Mail/inbox/1],[From: gray +To: root +Subject: test input + +message body +]) + +echo "quit" | forwcmd -nodraftfolder 1 | cwdrepl +echo == Mail/draft == +cat Mail/draft +echo == Message == +sed '/^X-IMAPbase/d' Mail/inbox/1 +], +[0], +[-- Editor invocation: ./Mail/draft +-- Input file: +To: +cc: +Subject: +-------- + +------- Forwarded message +From: gray +To: root +Subject: test input + +message body + +------- End of Forwarded message + +-- Input file end +What now? draft left on "./Mail/draft". +== Mail/draft == +To: +cc: +Subject: +-------- + +------- Forwarded message +From: gray +To: root +Subject: test input + +message body + +------- End of Forwarded message + +Seen by mhed +== Message == +From: gray +To: root +Subject: test input + +message body +]) + + m4_popdef([forwcmd]) m4_popdef([MH_KEYWORDS]) diff --git a/mh/tests/repl.at b/mh/tests/repl.at index bd58e9f33..f8a194c08 100644 --- a/mh/tests/repl.at +++ b/mh/tests/repl.at @@ -79,6 +79,70 @@ X-Mailer: MH (AT_PACKAGE_NAME AT_PACKAGE_VERSION) Seen by mhed ]) +MH_CHECK([Draft-Folder],[repl02 repl-draftfolder draftfolder],[ +mkdir Mail/inbox +mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH + +AT_DATA([Mail/inbox/1],[From: gray@example.com +To: root@example.com +Subject: test input + +message body +]) +echo "quit" | replcmd +inbox 1 | cwdrepl +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 +]) + +MH_CHECK([-nodraftfolder],[repl03 repl-nodraftfolder nodraftfolder draftfolder],[ +mkdir Mail/inbox +mkdir Mail/drafts +echo "Draft-Folder: +drafts" >> $MH + +AT_DATA([Mail/inbox/1],[From: gray@example.com +To: root@example.com +Subject: test input + +message body +]) +echo "quit" | replcmd -nodraftfolder +inbox 1 | cwdrepl +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 +]) + m4_popdef([replcmd]) m4_popdef([MH_KEYWORDS]) # End of repl.at |