aboutsummaryrefslogtreecommitdiff
path: root/tests/hdr-cap.at
diff options
context:
space:
mode:
Diffstat (limited to 'tests/hdr-cap.at')
-rw-r--r--tests/hdr-cap.at80
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
+

Return to:

Send suggestions and report system problems to the System administrator.