# This file is part of GNU Mailutils. -*- Autotest -*- # Copyright (C) 2007, 2008, 2009, 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. # # 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 GNU Mailutils. If not, see <http://www.gnu.org/licenses/>. # This file is part of Mailfromd testsuite. MUT_TESTCASE([address :all],[test address all address-all], [ if address :is :all "From" "coyote@desert.example.org" { discard; } ],[],[0],[], [DISCARD on msg uid 1: marking as deleted IMPLICIT KEEP on msg uid 2 IMPLICIT KEEP on msg uid 3 ]) MUT_TESTCASE([address :domain],[test address domain address-domain], [ if address :is :domain "From" "desert.example.org" { discard; } ],[],[0],[], [DISCARD on msg uid 1: marking as deleted IMPLICIT KEEP on msg uid 2 IMPLICIT KEEP on msg uid 3 ]) MUT_TESTCASE([address :localpart],[test address localpart address-localpart], [ if address :is :localpart "From" "youcouldberich!" { discard; } ],[],[0],[], [IMPLICIT KEEP on msg uid 1 DISCARD on msg uid 2: marking as deleted IMPLICIT KEEP on msg uid 3 ]) MUT_TESTCASE([address :matches],[test address matches address-matches], [ if address :matches :all "From" "*invalid" { discard; } ],[],[0],[], [IMPLICIT KEEP on msg uid 1 DISCARD on msg uid 2: marking as deleted IMPLICIT KEEP on msg uid 3 ])