1 files changed, 72 insertions, 0 deletions

diff --git a/tests/paolo.at b/tests/paolo.at
new file mode 100644
index 0000000..82da354
--- /dev/null
+++ b/tests/paolo.at
@@ -0,0 +1,72 @@
+# This file is part of GNU Anubis testsuite.        -*- autotest -*-
+# Copyright (C) 2003-2024 The Anubis Team.
+#
+# GNU Anubis 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 of the License, or (at your option)
+# any later version.
+#
+# GNU Anubis 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 Anubis.  If not, see <http://www.gnu.org/licenses/>.
+AT_SETUP([Removing substrings from the body])
+AT_ANUBIS_CONFIG([anubis.rc],
+[BEGIN CONTROL
+logfile $PWD/etc/anubis.log
+local-mta $abs_builddir/mta -bs -d $PWD/etc/mta.log
+use-pam no
+END
+
+BEGIN RULE
+modify body :extended [["[[:blank:]]*X-Anomy:.*"]] ""
+modify body :extended [["X-Paren\\\\([^)]*\\\\)"]] ""
+END
+])
+AT_DATA([input],
+[HELO localhost
+MAIL FROM:<gray@gnu.org>
+RCPT TO:<polak@gnu.org>
+DATA
+From: <gray@gnu.org>
+To: <polak@gnu.org>
+Subject: Removing substrings from the body
+
+X-Anomy: This string is removed entirely
+This line is left untouched
+This X-Paren(garbage)lineX-Paren(text) has some garX-Paren(or more)bage removed
+
+Regards,
+Sergey
+.
+QUIT
+])
+AT_DATA([expout],
+[HELO localhost
+MAIL FROM:<gray@gnu.org>
+RCPT TO:<polak@gnu.org>
+DATA
+From: <gray@gnu.org>
+To: <polak@gnu.org>
+Subject: Removing substrings from the body
+
+ 
+This line is left untouched
+This line has some garbage removed
+
+Regards,
+Sergey
+.
+QUIT
+])
+AT_CHECK([
+anubis --norc --relax-perm-check --altrc etc/anubis.rc --stdio < input | tr -d '\r'
+],
+[0],
+[ignore],
+[ignore])
+AT_CHECK([cat etc/mta.log],[0],[expout])
+AT_CLEANUP