diff options
Diffstat (limited to 'tests/hdr-cap.at')
-rw-r--r-- | tests/hdr-cap.at | 80 |
1 files changed, 80 insertions, 0 deletions
diff --git a/tests/hdr-cap.at b/tests/hdr-cap.at new file mode 100644 index 00000000..7cfbe7d8 --- /dev/null +++ b/tests/hdr-cap.at @@ -0,0 +1,80 @@ +# This file is part of Mailfromd testsuite. -*- Autotest -*- +# Copyright (C) 2009 Sergey Poznyakoff +# +# This program 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. +# +# This program 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 this program. If not, see <http://www.gnu.org/licenses/>. + +AT_SETUP(current_header vs. capturing) +AT_KEYWORDS([curhdr current_header_cap]) + +m4_pushdef([MTASIM_DEFS],-DTESTDIR="$TESTDIR") +AT_DATA([$TESTDIR/capture.mbx],[]) + +AT_WITH_MAILFROMD_OPTIONS([--stderr --gacopyz-log=err],[ +AT_MTA_TEST_SCRIPT([ +prog eoh +do + echo "TOTAL: " current_header_count() + echo "FROM: " current_header("From") +done + +func deliver(string mailto) +do + set m umask(0) + set mbx mailbox_open(%mailto, "w+") + + set msg current_message() + mailbox_append_message(%mbx, %msg) + mailbox_close(%mbx) + umask(%m) +done + +prog eom +do + deliver("mbox:$TESTDIR/capture.mbx") +done +], +[hdr.mts], +[0], +[], +[mailfromd: mailfromd (AT_PACKAGE_TARNAME AT_PACKAGE_VERSION) started +TOTAL: 5 +FROM: Sergey Poznyakoff <gray@gnu.org.ua> +mailfromd: mailfromd terminating +]) +]) + +AT_CHECK([sed '1d' $TESTDIR/capture.mbx], +0, +[Received: foo +Received: bar +From: Sergey Poznyakoff <gray@gnu.org.ua> +To: gray@localhost +Subject: Amsterdam (1) + + Dans le port d'Amsterdam + Y a des marins qui chantent + Les rêves qui les hantent + Au large d'Amsterdam + Dans le port d'Amsterdam + Y a des marins qui dorment + Comme des oriflammes + Le long des berges mornes + +],[],[], +[rm $TESTDIR/capture.mbx]) + +m4_popdef([MTASIM_DEFS]) + +AT_CLEANUP + |