Rewrite Sieve testssuite in Autotest.

* mailbox/cfg_parser.y (mu_cfg_create_subtree): Optional prefix
character may be used to alter the separator or to suppress
value splitting.

@@ -1209,6 +1209,10 @@ AC_ARG_WITH([mh-bindir],
                     [MH_BIN_DIR='${exec_prefix}/bin/mu-mh'])
                     [MH_BIN_DIR='${exec_prefix}/bin/mu-mh'])
 
 
 
 
+# Initialize the (autotest) test suite.
+AC_CONFIG_TESTDIR(tests)
+AC_CONFIG_FILES([sieve/tests/Makefile sieve/tests/atlocal]) 
+AM_MISSING_PROG([AUTOM4TE], [autom4te])
 
 
 dnl Make sysconfdir available to the application
 dnl Make sysconfdir available to the application
 dnl This must be done LAST, since CPPFLAGS is passed by configure
 dnl This must be done LAST, since CPPFLAGS is passed by configure
@@ -1371,7 +1375,6 @@ AC_CONFIG_FILES([
  mu-aux/Makefile
  mu-aux/Makefile
  mu-aux/mailutils.spec
  mu-aux/mailutils.spec
  sieve/Makefile
  sieve/Makefile
- sieve/testsuite/Makefile
  testsuite/Makefile
  testsuite/Makefile
  ])
  ])
 AC_OUTPUT
 AC_OUTPUT

@@ -36,6 +36,7 @@
 #include <mailutils/iterator.h>
 #include <mailutils/iterator.h>
 #include <mailutils/debug.h>
 #include <mailutils/debug.h>
 #include <mailutils/mutil.h>
 #include <mailutils/mutil.h>
+#include <mailutils/cctype.h>
 
 
 int mu_cfg_parser_verbose;
 int mu_cfg_parser_verbose;
 static mu_list_t /* of mu_cfg_node_t */ parse_node_list; 
 static mu_list_t /* of mu_cfg_node_t */ parse_node_list; 
@@ -1741,25 +1742,53 @@ mu_cfg_create_subtree (const char *path, mu_cfg_node_t **pnode)
 {
 {
   int rc;
   int rc;
   int argc, i;
   int argc, i;
+  char *p;
   char **argv;
   char **argv;
   mu_cfg_locus_t locus;
   mu_cfg_locus_t locus;
   enum mu_cfg_node_type type;
   enum mu_cfg_node_type type;
   mu_cfg_node_t *node = NULL;
   mu_cfg_node_t *node = NULL;
+  char *delim = MU_CFG_PATH_DELIM_STR;
+  char static_delim[2] = { 0, 0 };
   
   
   locus.file = "<int>";
   locus.file = "<int>";
   locus.line = 0;
   locus.line = 0;
 
 
-  rc = mu_argcv_get_np (path, strlen (path), MU_CFG_PATH_DELIM_STR, NULL, 0,
+  if (path[0] == '\\')
+    {
+      argv = calloc (2, sizeof (*argv));
+      if (!argv)
+	return ENOMEM;
+      argv[0] = strdup (path + 1);
+      if (!argv[0])
+	{
+	  free (argv);
+	  return ENOMEM;
+	}
+      argv[1] = NULL;
+      argc = 1;
+      rc = 0;
+    }
+  else
+    {
+      if (mu_ispunct (path[0]))
+	{
+	  delim = static_delim;
+	  delim[0] = path[0];
+	  path++;
+	}
+      rc = mu_argcv_get_np (path, strlen (path), delim, NULL, 0,
 			    &argc, &argv, NULL);
 			    &argc, &argv, NULL);
+    }
+  
   if (rc)
   if (rc)
     return rc;
     return rc;
 
 
   for (i = argc - 1; i >= 0; i--)
   for (i = argc - 1; i >= 0; i--)
     {
     {
       mu_list_t nodelist = NULL;
       mu_list_t nodelist = NULL;
-      char *p = strrchr (argv[i], '=');
       mu_config_value_t *label = NULL;
       mu_config_value_t *label = NULL;
 
 
+      p = strrchr (argv[i], '=');
       type = mu_cfg_node_statement;
       type = mu_cfg_node_statement;
       if (p)
       if (p)
 	{
 	{

@@ -18,7 +18,7 @@
 ##   02110-1301 USA
 ##   02110-1301 USA
 
 
 INCLUDES = @MU_APP_COMMON_INCLUDES@ 
 INCLUDES = @MU_APP_COMMON_INCLUDES@ 
-SUBDIRS  = testsuite
+SUBDIRS  = tests
 
 
 bin_PROGRAMS = sieve
 bin_PROGRAMS = sieve
 sieve_SOURCES = sieve.c
 sieve_SOURCES = sieve.c

+atconfig
+atlocal
+package.m4
+status.mf
+testsuite
+testsuite.dir
+testsuite.log

+# This file is part of GNU Mailutils.
+# 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/>.
+
+EXTRA_DIST = $(TESTSUITE_AT) testsuite package.m4 
+DISTCLEANFILES       = atconfig $(check_SCRIPTS)
+MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
+#SUBDIRS = etc
+
+## ------------ ##
+## package.m4.  ##
+## ------------ ##
+
+$(srcdir)/package.m4: $(top_srcdir)/configure.ac
+	{                                      \
+	  echo '# Signature of the current package.'; \
+	  echo 'm4_define([AT_PACKAGE_NAME],      [@PACKAGE_NAME@])'; \
+	  echo 'm4_define([AT_PACKAGE_TARNAME],   [@PACKAGE_TARNAME@])'; \
+	  echo 'm4_define([AT_PACKAGE_VERSION],   [@PACKAGE_VERSION@])'; \
+	  echo 'm4_define([AT_PACKAGE_STRING],    [@PACKAGE_STRING@])'; \
+	  echo 'm4_define([AT_PACKAGE_BUGREPORT], [@PACKAGE_BUGREPORT@])'; \
+	} >$(srcdir)/package.m4
+
+#
+
+## ------------ ##
+## Test suite.  ##
+## ------------ ##
+
+TESTSUITE_AT = \
+  action.at\
+  address.at\
+  allof.at\
+  anyof.at\
+  compile.at\
+  envelope.at\
+  exists.at\
+  ext.at\
+  false.at\
+  header.at\
+  i-casemap.at\
+  i-numeric.at\
+  i-octet.at\
+  mul-addr.at\
+  not.at\
+  redirect.at\
+  reject.at\
+  relational.at\
+  size.at\
+  true.at\
+  testsuite.at\
+  version.at
+
+TESTSUITE = $(srcdir)/testsuite
+M4=m4
+
+AUTOTEST = $(AUTOM4TE) --language=autotest
+$(TESTSUITE): package.m4 $(TESTSUITE_AT)
+	$(AM_V_GEN)$(AUTOTEST) -I $(srcdir) testsuite.at -o $@.tmp
+	$(AM_V_at)mv $@.tmp $@
+
+atconfig: $(top_builddir)/config.status
+	cd $(top_builddir) && ./config.status tests/$@
+
+clean-local:
+	@test ! -f $(TESTSUITE) || $(SHELL) $(TESTSUITE) --clean
+
+check-local: atconfig atlocal $(TESTSUITE) 
+	@$(SHELL) $(TESTSUITE)
+
+# Run the test suite on the *installed* tree.
+#installcheck-local:
+#	$(SHELL) $(TESTSUITE) AUTOTEST_PATH=$(exec_prefix)/bin
+
+

+# 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([action stop], [], [stop;],[],[0],[],
+[STOP on msg uid 1
+STOP on msg uid 2
+STOP on msg uid 3
+])
+
+MUT_TESTCASE([action null],[],[],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([action keep],[],[keep;],[],[0],[],
+[KEEP on msg uid 1
+KEEP on msg uid 2
+KEEP on msg uid 3
+])
+
+MUT_TESTCASE([action discard],[],[discard;],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+
+m4_pushdef([MUT_SIEVE_OPTIONS],[--set ":mailbox:folder=`pwd`"])
+
+MUT_TESTCASE([action fileinto],[],
+[require "fileinto";
+fileinto "+file";
+],
+[cat file
+],
+[0],
+[From coyote@desert.example.org Sun May  6 22:16:47 2001
+From: coyote@desert.example.org
+To: roadrunner@acme.example.com
+Subject: I have a present for you
+X-Caffeine: C8H10N4O2
+
+Look, I'm sorry about the whole anvil thing, and I really
+didn't mean to try and drop it on you from the top of the
+cliff.  I want to try to make it up to you.  I've got some
+great birdseed over here at my place--top of the line
+stuff--and if you come by, I'll have it all wrapped up
+for you.  I'm really sorry for all the problems I've caused
+for you over the years, but I know we can work this out.
+
+--
+Wile E. Coyote   "Super Genius"   coyote@desert.example.org
+
+From b1ff@de.res.example.com Sun May  6 22:17:15 2001
+From: youcouldberich!@reply-by-postal-mail.invalid
+To: rube@landru.example.edu
+Subject: $$$ YOU, TOO, CAN BE A MILLIONAIRE! $$$
+Date: TBD
+X-Number: 0015
+
+YOU MAY HAVE ALREADY WON TEN MILLION DOLLARS, BUT I DOUBT
+IT!  SO JUST POST THIS TO SIX HUNDRED NEWSGROUPS!  IT WILL
+GUARANTEE THAT YOU GET AT LEAST FIVE RESPONSES WITH MONEY!
+MONEY! MONEY! COLD HARD CASH!  YOU WILL RECEIVE OVER
+$20,000 IN LESS THAN TWO MONTHS!  AND IT'S LEGAL!!!!!!!!!
+!!!!!!!!!!!!!!!!!!111111111!!!!!!!11111111111!!1  JUST
+SEND $5 IN SMALL, UNMARKED BILLS TO THE ADDRESSES BELOW!
+
+From bar@dontmailme.org  Fri Dec 28 23:28:09 2001
+Received: (from bar@dontmailme.org)
+	by dontmailme.org id fERKR9N16790
+	for foobar@nonexistent.net; Fri, 28 Dec 2001 22:18:08 +0200
+Date: Fri, 28 Dec 2001 23:28:08 +0200
+From: Bar <bar@dontmailme.org>
+To: Foo Bar <foobar@nonexistent.net>
+Message-Id: <200112232808.fERKR9N16790@dontmailme.org>
+Subject: Coffee
+
+How about some coffee?
+
+],
+[FILEINTO on msg uid 1: delivering into +file
+FILEINTO on msg uid 2: delivering into +file
+FILEINTO on msg uid 3: delivering into +file
+])
+
+m4_popdef([MUT_SIEVE_OPTIONS])
+
+
+

+# 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
+])
+
+
+

+# 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([allof 00],[test allof allof00],
+[
+if allof(false,false) {
+     discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([allof 01],[test allof allof01],
+[
+if allof(false,true) {
+     discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([allof 11],[test allof allof11],
+[
+if allof(true,true) {
+     discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+
+	

+# 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([anyof 00],[test anyof anyof00],
+[
+if anyof(false,false) {
+     discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([anyof 01],[test anyof anyof01],
+[
+if anyof(false,true) {
+     discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+
+MUT_TESTCASE([anyof 11],[test anyof anyof11],
+[
+if anyof(true,true) {
+     discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+
+	

+# @configure_input@                                     -*- shell-script -*-
+# Configurable variable values for Mailutils test suite.
+# Copyright (C) 2004, 2010 Free Software Foundation, Inc.
+
+PATH=@abs_builddir@:@abs_top_builddir@/sieve:$top_srcdir:$srcdir:$PATH
+top_srcdir=@abs_top_srcdir@
+top_builddir=@abs_top_builddir@
+
+initspool() {
+  test -d data || mkdir data
+  test -d data/spool || mkdir data/spool
+  cp $top_srcdir/testsuite/spool/* data/spool
+}
+  
\ No newline at end of file

+# 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. 
+
+testcompile([ex-null.sv])
+testcompile([box.sv])
+testcompile([ex-1.10.2.sv])
+testcompile([ex-2.3a.sv])
+testcompile([ex-2.5.1.sv])
+testcompile([ex-2.7.3.sv])
+testcompile([ex-3.1a.sv])
+testcompile([ex-3.1b.sv])
+testcompile([ex-4.2.sv])
+testcompile([ex-4.4a.sv])
+testcompile([ex-4.4b.sv])
+testcompile([ex-4.5.sv])
+testcompile([ex-5.1.sv])
+testcompile([ex-5.7.sv])
+testcompile([ex-save-all.sv])
+testcompile([example.sv])
+testcompile([exn-2.3b.sv])
+
+dnl t-complex.sv
+dnl t-exists.sv
+dnl t-fileinto.sv
+dnl t-mailutils.sv

+# 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([envelope],[test envelope],
+[
+if envelope "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
+])
+
+

+# 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([exists: single header],[test exists exists01],
+[
+if exists "X-Caffeine" {
+      discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([exists: array],[test exists exists02],
+[
+if exists [["X-Caffeine", "From"]] {
+      discard;
+}
+],[],[0],[],	
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([exists: array 2],[test exists exists03],
+[
+if exists [["X-Caffeine", "X-Status"]] {
+      discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+

+# 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. 
+
+AT_SETUP([loadable extensions: numaddr])
+AT_KEYWORDS([ext])
+
+AT_CHECK([
+MUT_PREREQ_CAPA([HAVE_LIBLTDL])
+
+AT_DATA([prog],[
+require "test-numaddr";
+
+if numaddr [[ "to", "cc" ]] :over 5
+  {
+    discard;
+  }
+])
+
+cp $top_srcdir/testsuite/spool/bigto.mbox .
+
+sieve MUT_SIEVE_CMDLINE dnl
+ --clearpath -L "${top_builddir}/examples" -f ./bigto.mbox prog
+],
+[0],
+[],
+[DISCARD on msg uid 1: marking as deleted
+])
+
+AT_CLEANUP
+

+# 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([false],[test constant false],
+[
+if false {
+     discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+

+# 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([header :is],[test header header-is],
+[
+if header :is "X-Caffeine" "C8H10N4O2" {
+        discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([header arrays],[test header header-arrays],
+[
+if header [["X-Caffeine","Subject"] ["C8H10N4O2","Coffee"]] {
+        discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+DISCARD on msg uid 3: marking as deleted
+])
+
+MUT_TESTCASE([header :matches],[test header matches header-matches],
+[
+if header :matches "Subject" "*$$$*" {
+        discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+m4_pushdef([MUT_SIEVE_MAILBOX],[mbox1])
+MUT_TESTCASE([header :mime],[test header header-mime],
+[
+if header :mime :is "Content-Description" "How doth" {
+      discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+DISCARD on msg uid 3: marking as deleted
+IMPLICIT KEEP on msg uid 4
+IMPLICIT KEEP on msg uid 5
+])
+m4_popdef([MUT_SIEVE_MAILBOX])

+# 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([i-casemap :is],[comparator i-casemap i-casemap-is],
+[
+require "comparator-i;ascii-casemap";
+
+if header :comparator "i;ascii-casemap" :is "to" "roadrunner@ACME.EXAMPLE.COM"
+  {
+     discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-casemap :matches],[comparator i-casemap i-casemap-matches],
+[
+require "comparator-i;ascii-casemap";
+
+if header :comparator "i;ascii-casemap" :matches "subject" "*you, too,*"
+  {
+    discard;
+  }
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-casemap :contains],[comparator i-casemap i-casemap-contains],
+[
+require "comparator-i;ascii-casemap";
+
+if header :comparator "i;ascii-casemap" :contains [["from", "to"]] "ExAmPLe"
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-casemap :regex],[comparator i-casemap i-casemap-regex],
+[
+require "comparator-i;ascii-casemap";
+
+if header :comparator "i;ascii-casemap" :regex "subject" ".*you.*"
+  {
+    discard;
+  }
+],[],[0],[],	
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+

+# 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([i-numeric :is], [comparator i-numeric is i-numeric-is],
+[
+require "comparator-i;ascii-numeric";
+
+if header :comparator "i;ascii-numeric" :is "X-Number" "15"
+  {
+    discard;
+  }
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+AT_SETUP([i-numeric with contains])
+AT_KEYWORDS([comparator i-numeric is i-numeric-contains])
+MUT_SIEVE_COMPILE([
+require "comparator-i;ascii-numeric";
+
+if header :comparator "i;ascii-numeric" :contains "X-Number" "15"
+  {
+    discard;
+  }
+],[78],[],
+[sieve: prog:5: comparator `i;ascii-numeric' is incompatible with match type `contains' in call to `header'
+])
+AT_CLEANUP
+
+

+# 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([i-octet :is],[comparator i-octet is i-octet-is],
+[
+require "comparator-i;octet";
+
+if header :comparator "i;octet" :is "to" "roadrunner@acme.example.com"
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-octet :matches],[comparator i-octet matches i-octet-matches],
+[
+require "comparator-i;octet";
+
+if header :comparator "i;octet" :matches "subject" "$$$*$$$"
+  {
+    discard;
+  }
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-octet :contains],[comparator i-octet contains i-octet-contains],
+[
+require "comparator-i;octet";
+
+if header :comparator "i;octet" :contains [["from", "to"]] "example"
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+MUT_TESTCASE([i-octet :regex],[comparator i-octet regex i-octet-regex],
+[
+require "comparator-i;octet";
+
+if header :comparator "i;octet" :regex "subject" ".*you.*"
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+])
+
+
+

+# 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. 
+
+m4_pushdef([MUT_SIEVE_MAILBOX],[relational.mbox])
+MUT_TESTCASE([multiple addresses],[test address mul-addr],
+[
+require "fileinto";
+
+if address :localpart :is [["To", "Cc"]] [[ "foo", "oof" ]]
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+DISCARD on msg uid 4: marking as deleted
+DISCARD on msg uid 5: marking as deleted
+DISCARD on msg uid 6: marking as deleted
+DISCARD on msg uid 7: marking as deleted
+IMPLICIT KEEP on msg uid 8
+DISCARD on msg uid 9: marking as deleted
+])
+m4_popdef([MUT_SIEVE_MAILBOX])
+

+# 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([not], [test not boolean],
+[
+if not false {
+     discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+
+

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
+# This file is part of GNU Mailutils. -*- Autotest -*-
+# Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
 #
 #
-# 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 of the License, or
-# (at your option) any later version.
+# 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.
+# 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
 # You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
+# along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
+# This file is part of Mailfromd testsuite. 
 
 
-TEST redirect.sv
-PATTERN BEGIN
-REDIRECT on msg uid 1: to gray@gnu.org
-REDIRECT on msg uid 2: to gray@gnu.org
-REDIRECT on msg uid 3: to gray@gnu.org
-PATTERN END
+AT_SETUP([redirect])
+AT_KEYWORDS([action])
+
+AT_CHECK([
+MUT_PREREQ_CAPA([ENABLE_SENDMAIL])
+MTA_DIAG=`pwd`/mta.diag
+MTA_APPEND=1
+export MTA_DIAG MTA_APPEND
 
 
-FILE BEGIN
-ENVELOPE FROM: coyote@desert.example.org
+AT_DATA([prog],[
+require "redirect";
+
+redirect "gray@gnu.org";
+])
+cp $top_srcdir/testsuite/spool/MUT_SIEVE_MAILBOX .
+
+sieve MUT_SIEVE_CMDLINE MUT_SIEVE_OPTIONS -f ./MUT_SIEVE_MAILBOX prog || exit 1
+sed 's/ $//' ./mta.diag
+],
+[0],
+[ENVELOPE FROM: coyote@desert.example.org
 ENVELOPE TO: <gray@gnu.org>
 ENVELOPE TO: <gray@gnu.org>
    0: X-Loop-Prevention: foobar@nonexistent.net
    0: X-Loop-Prevention: foobar@nonexistent.net
    1: From: coyote@desert.example.org
    1: From: coyote@desert.example.org
@@ -77,7 +88,10 @@ ENVELOPE TO: <gray@gnu.org>
   10: How about some coffee?
   10: How about some coffee?
   11: 
   11: 
 END OF MESSAGE
 END OF MESSAGE
-FILE END
-TEST END
+],
+[REDIRECT on msg uid 1: to gray@gnu.org
+REDIRECT on msg uid 2: to gray@gnu.org
+REDIRECT on msg uid 3: to gray@gnu.org
+])
 
 
-# End of Redirect
+AT_CLEANUP

+# 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. 
+
+AT_SETUP([reject])
+AT_KEYWORDS([action])
+
+AT_CHECK([
+MUT_PREREQ_CAPA([ENABLE_SENDMAIL])
+MTA_DIAG=`pwd`/mta.diag
+MTA_APPEND=1
+export MTA_DIAG MTA_APPEND
+
+AT_DATA([prog],[
+require "reject";
+
+reject text:
+I don't want to read these messages.
+
+Regards.
+.
+;
+])
+
+AT_DATA([filter.sed],[
+# mta log contains trailing spaces
+s/ $//
+# MIME boundaries are unpredictable, so we replace them with a constant string.
+s/^\( *[[0-9]][[0-9]]*: Content-Type: .*boundary=\).*/\1(boundary)/
+s/^\( *[[0-9]][[0-9]]*:\) --[[0-9]].*/\1 --(boundary)/
+# Same goes for dates.
+s/^\( *[[0-9]][[0-9]]*: The original message was received at *\).*\( from .*\)/\1(date)\2/
+s/^\( *[[0-9]][[0-9]]*: Last-Attempt-Date:\).*/\1 (date)/
+])
+
+cp $top_srcdir/testsuite/spool/MUT_SIEVE_MAILBOX .
+
+sieve MUT_SIEVE_CMDLINE MUT_SIEVE_OPTIONS -f ./MUT_SIEVE_MAILBOX prog || exit 1
+sed -f filter.sed ./mta.diag
+],
+[0],
+[ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
+ENVELOPE TO: <coyote@desert.example.org>
+   0: To: coyote@desert.example.org
+   1: Content-Type: multipart/mixed; boundary=(boundary)
+   2: MIME-Version: 1.0
+   3: 
+   4: --(boundary)
+   5: Content-Type: text/plain;charset=UTF-8
+   6: Content-Transfer-Encoding: 8bit
+   7: 
+   8: The original message was received at (date) from coyote@desert.example.org.
+   9: Message was refused by recipient's mail filtering program.
+  10: Reason given was as follows:
+  11: 
+  12: I don't want to read these messages.
+  13: 
+  14: Regards.
+  15: 
+  16: --(boundary)
+  17: Content-Type: message/delivery-status
+  18: 
+  19: Reporting-UA: sieve; GNU Mailutils 2.2.90
+  20: Arrival-Date: Mon, May 07 01:16:47 2001 EEST
+  21: Final-Recipient: RFC822; foobar@nonexistent.net
+  22: Action: deleted
+  23: Disposition: automatic-action/MDN-sent-automatically;deleted
+  24: Last-Attempt-Date: (date)
+  25: 
+  26: --(boundary)
+  27: Content-Type: message/rfc822
+  28: 
+  29: From: coyote@desert.example.org
+  30: To: roadrunner@acme.example.com
+  31: Subject: I have a present for you
+  32: X-Caffeine: C8H10N4O2
+  33: 
+  34: Look, I'm sorry about the whole anvil thing, and I really
+  35: didn't mean to try and drop it on you from the top of the
+  36: cliff.  I want to try to make it up to you.  I've got some
+  37: great birdseed over here at my place--top of the line
+  38: stuff--and if you come by, I'll have it all wrapped up
+  39: for you.  I'm really sorry for all the problems I've caused
+  40: for you over the years, but I know we can work this out.
+  41: 
+  42: --
+  43: Wile E. Coyote   "Super Genius"   coyote@desert.example.org
+  44: 
+  45: --(boundary)
+  46: 
+END OF MESSAGE
+ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
+ENVELOPE TO: <b1ff@de.res.example.com>
+   0: To: b1ff@de.res.example.com
+   1: Content-Type: multipart/mixed; boundary=(boundary)
+   2: MIME-Version: 1.0
+   3: 
+   4: --(boundary)
+   5: Content-Type: text/plain;charset=UTF-8
+   6: Content-Transfer-Encoding: 8bit
+   7: 
+   8: The original message was received at (date) from b1ff@de.res.example.com.
+   9: Message was refused by recipient's mail filtering program.
+  10: Reason given was as follows:
+  11: 
+  12: I don't want to read these messages.
+  13: 
+  14: Regards.
+  15: 
+  16: --(boundary)
+  17: Content-Type: message/delivery-status
+  18: 
+  19: Reporting-UA: sieve; GNU Mailutils 2.2.90
+  20: Arrival-Date: Mon, May 07 01:17:15 2001 EEST
+  21: Final-Recipient: RFC822; foobar@nonexistent.net
+  22: Action: deleted
+  23: Disposition: automatic-action/MDN-sent-automatically;deleted
+  24: Last-Attempt-Date: (date)
+  25: 
+  26: --(boundary)
+  27: Content-Type: message/rfc822
+  28: 
+  29: From: youcouldberich!@reply-by-postal-mail.invalid
+  30: To: rube@landru.example.edu
+  31: Subject: $$$ YOU, TOO, CAN BE A MILLIONAIRE! $$$
+  32: Date: TBD
+  33: X-Number: 0015
+  34: 
+  35: YOU MAY HAVE ALREADY WON TEN MILLION DOLLARS, BUT I DOUBT
+  36: IT!  SO JUST POST THIS TO SIX HUNDRED NEWSGROUPS!  IT WILL
+  37: GUARANTEE THAT YOU GET AT LEAST FIVE RESPONSES WITH MONEY!
+  38: MONEY! MONEY! COLD HARD CASH!  YOU WILL RECEIVE OVER
+  39: $20,000 IN LESS THAN TWO MONTHS!  AND IT'S LEGAL!!!!!!!!!
+  40: !!!!!!!!!!!!!!!!!!111111111!!!!!!!11111111111!!1  JUST
+  41: SEND $5 IN SMALL, UNMARKED BILLS TO THE ADDRESSES BELOW!
+  42: 
+  43: --(boundary)
+  44: 
+END OF MESSAGE
+ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
+ENVELOPE TO: <bar@dontmailme.org>
+   0: To: bar@dontmailme.org
+   1: Content-Type: multipart/mixed; boundary=(boundary)
+   2: MIME-Version: 1.0
+   3: 
+   4: --(boundary)
+   5: Content-Type: text/plain;charset=UTF-8
+   6: Content-Transfer-Encoding: 8bit
+   7: 
+   8: The original message was received at (date) from bar@dontmailme.org.
+   9: Message was refused by recipient's mail filtering program.
+  10: Reason given was as follows:
+  11: 
+  12: I don't want to read these messages.
+  13: 
+  14: Regards.
+  15: 
+  16: --(boundary)
+  17: Content-Type: message/delivery-status
+  18: 
+  19: Reporting-UA: sieve; GNU Mailutils 2.2.90
+  20: Arrival-Date: Sat, Dec 29 01:28:09 2001 EET
+  21: Final-Recipient: RFC822; foobar@nonexistent.net
+  22: Action: deleted
+  23: Disposition: automatic-action/MDN-sent-automatically;deleted
+  24: Last-Attempt-Date: (date)
+  25: 
+  26: --(boundary)
+  27: Content-Type: message/rfc822
+  28: 
+  29: Received: (from bar@dontmailme.org)
+  30: 	by dontmailme.org id fERKR9N16790
+  31: 	for foobar@nonexistent.net; Fri, 28 Dec 2001 22:18:08 +0200
+  32: Date: Fri, 28 Dec 2001 23:28:08 +0200
+  33: From: Bar <bar@dontmailme.org>
+  34: To: Foo Bar <foobar@nonexistent.net>
+  35: Message-Id: <200112232808.fERKR9N16790@dontmailme.org>
+  36: Subject: Coffee
+  37: 
+  38: How about some coffee?
+  39: 
+  40: --(boundary)
+  41: 
+END OF MESSAGE
+],
+[REJECT on msg uid 1
+REJECT on msg uid 2
+REJECT on msg uid 3
+])
+
+AT_CLEANUP

+# 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. 
+
+m4_pushdef([MUT_SIEVE_MAILBOX],[relational.mbox])
+m4_pushdef([MUT_SIEVE_OPTIONS],[--set ":mailbox:folder=`pwd`"])
+
+MUT_TESTCASE([relational address],[test relational address comparator i-ascii-numeric],
+[
+require [["relational", "comparator-i;ascii-numeric"]];
+
+if address :count "ge" :comparator "i;ascii-numeric" [["to", "cc"] ["3"]]
+  {
+    discard;
+  }
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+IMPLICIT KEEP on msg uid 4
+IMPLICIT KEEP on msg uid 5
+IMPLICIT KEEP on msg uid 6
+IMPLICIT KEEP on msg uid 7
+IMPLICIT KEEP on msg uid 8
+DISCARD on msg uid 9: marking as deleted
+])
+
+MUT_TESTCASE([relational header],[test relational header comparator i-ascii-numeric],
+[
+require [["relational", "comparator-i;ascii-numeric"]];
+
+if header :count "gt" [["received"]] [["2"]]
+  {
+    discard;
+  }
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+IMPLICIT KEEP on msg uid 3
+IMPLICIT KEEP on msg uid 4
+IMPLICIT KEEP on msg uid 5
+IMPLICIT KEEP on msg uid 6
+IMPLICIT KEEP on msg uid 7
+IMPLICIT KEEP on msg uid 8
+DISCARD on msg uid 9: marking as deleted
+])
+
+MUT_TESTCASE([relational big test],[test relational relational-hairy],
+[
+require [["relational", "comparator-i;ascii-numeric", "fileinto"]];
+
+if header :value "lt" :comparator "i;ascii-numeric" [["x-priority"]] [["3"]]
+  {
+    fileinto "%Priority";
+  }
+elsif address :count "gt" :comparator "i;ascii-numeric" [["to"]] [["5"]]
+  {
+    # everything with more than 5 recipients in the "to" field
+    # is considered SPAM
+    fileinto "%SPAM";
+  }
+elsif address :value "gt" :all :comparator "i;ascii-casemap" [["from"]] [["M"]]
+  {
+    fileinto "%From_N-Z";
+  }
+else
+  {
+    fileinto "%From_A-M";
+  }
+
+if allof (address :count "eq" :comparator "i;ascii-numeric"
+                  [["to", "cc"]] [["1"]] ,
+          address :all :comparator "i;ascii-casemap"
+                  [["to", "cc"]] [["me@foo.example.com.invalid"]])
+  {
+    fileinto "%Only_me";
+  }
+],[],[0],[],
+[FILEINTO on msg uid 1: delivering into %From_A-M
+FILEINTO on msg uid 2: delivering into %From_N-Z
+FILEINTO on msg uid 3: delivering into %Priority
+FILEINTO on msg uid 4: delivering into %Priority
+FILEINTO on msg uid 5: delivering into %Priority
+FILEINTO on msg uid 6: delivering into %From_A-M
+FILEINTO on msg uid 7: delivering into %From_A-M
+FILEINTO on msg uid 8: delivering into %From_A-M
+FILEINTO on msg uid 8: delivering into %Only_me
+FILEINTO on msg uid 9: delivering into %SPAM
+])
+
+m4_popdef([MUT_SIEVE_MAILBOX])
+m4_popdef([MUT_SIEVE_OPTIONS])

+# 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([size :under],[test size under size-under],
+[
+if size :under 400 {
+        discard;
+}
+],[],[0],[],
+[IMPLICIT KEEP on msg uid 1
+IMPLICIT KEEP on msg uid 2
+DISCARD on msg uid 3: marking as deleted
+])
+
+MUT_TESTCASE([size :over],[test size over size-over],
+[
+if size :over 500 {
+        discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+IMPLICIT KEEP on msg uid 3
+])
+
+
+
+

+# 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. 
+
+# Require a reasonably recent autotest.
+m4_version_prereq([2.52g])
+
+m4_define([AT_SKIP_TEST],[exit 77])
+
+dnl ------------------------------------------------------------
+dnl testcompile(SCRIPT) -- test compilation of the Sieve SCRIPT
+dnl
+m4_define([testcompile],[
+AT_SETUP([compile $1])
+AT_CHECK([sieve -c $top_srcdir/sieve/examples/$1],
+[0])
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+dnl MUT_SIEVE_OPTIONS  -- additional command line options for Sieve
+m4_define([MUT_SIEVE_OPTIONS])
+
+dnl ------------------------------------------------------------
+dnl MUT_SIEVE_MAILBOX  -- mailbox used for testing
+m4_define([MUT_SIEVE_MAILBOX],[sieve.mbox])
+
+dnl ------------------------------------------------------------
+m4_define([MUT_SIEVE_CMDLINE],[dnl
+ --verbose dnl
+ --line-info=no dnl
+ --no-program-name dnl
+ --no-site-config dnl
+ --no-user-config dnl
+ -M sendmail:$top_builddir/examples/mta dnl
+ --email foobar@nonexistent.net])
+ 
+dnl ------------------------------------------------------------
+dnl MUT_SIEVE_COMPILE(SCRIPT, [ADD-TEST = `'],
+dnl                   [STATUS = `0'], [STDOUT = `'], [STDERR = `'],
+dnl                   [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl	  
+m4_define([MUT_SIEVE_COMPILE],[
+AT_DATA([prog],[$1
+])
+AT_CHECK([sieve MUT_SIEVE_OPTIONS -c prog],m4_shift($@))])
+
+dnl ------------------------------------------------------------
+dnl MUT_SIEVE_RUN(SCRIPT, MBOX, [ADD-TEST = `'],
+dnl               [STATUS = `0'], [STDOUT = `'], [STDERR = `'],
+dnl               [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl	  
+m4_define([MUT_SIEVE_RUN],[
+AT_DATA([prog],[$1
+])
+AT_CHECK([sieve MUT_SIEVE_CMDLINE MUT_SIEVE_OPTIONS -f $2 prog
+		$3],
+		m4_shift(m4_shift(m4_shift($@))))])
+
+m4_define([MUT_TESTCASE],[
+AT_SETUP([$1])
+AT_KEYWORDS([$2])
+cp $top_srcdir/testsuite/spool/MUT_SIEVE_MAILBOX .
+MUT_SIEVE_RUN([$3], ./MUT_SIEVE_MAILBOX, m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP])
+
+m4_define([MUT_PREREQ_CAPA],[
+sieve --show-config-options | grep '^$1' > /dev/null 2>&1 || AT_SKIP_TEST
+])
+
+AT_INIT
+
+AT_TESTED([sieve])
+
+m4_include([version.at])
+m4_include([compile.at])
+m4_include([false.at])
+m4_include([true.at])
+m4_include([not.at])
+m4_include([action.at])
+m4_include([address.at])
+m4_include([allof.at])
+m4_include([anyof.at])
+m4_include([envelope.at])
+m4_include([exists.at])
+m4_include([header.at])
+m4_include([i-casemap.at])
+m4_include([i-numeric.at])
+m4_include([i-octet.at])
+m4_include([mul-addr.at])
+m4_include([relational.at])
+m4_include([size.at])
+m4_include([redirect.at])
+m4_include([reject.at])
+m4_include([ext.at])
+
+

+# 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([true],[test constant true],
+[
+if true {
+        discard;
+}
+],[],[0],[],
+[DISCARD on msg uid 1: marking as deleted
+DISCARD on msg uid 2: marking as deleted
+DISCARD on msg uid 3: marking as deleted
+])
+

+# 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. 
+
+AT_SETUP([sieve version])
+
+AT_CHECK([sieve --version | sed '1{s/ *[\[.*\]]//;q}' ],
+         [0],
+         [sieve (AT_PACKAGE_NAME) AT_PACKAGE_VERSION
+],
+[],
+[cat >$[]XFAILFILE <<'_EOT'
+
+==============================================================
+WARNING: Not using the proper version, *all* checks dubious...
+==============================================================
+_EOT
+],
+[rm -f $[]XFAILFILE])
+
+AT_CLEANUP

-Makefile
-Makefile.in
-*.log
-*.sum
-site.exp
-remote.exp
-data

-## Process this file with GNU Automake to create Makefile.in
-
-##   Copyright (C) 2002, 2007, 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 this program; if not, write to the Free Software
-##   Foundation, Inc.  51 Franklin Street, Fifth Floor, Boston, MA
-##   02110-1301 USA
-
-AUTOMAKE_OPTIONS = dejagnu
-DEJATOOL = sieve
-RUNTESTFLAGS = 
-CLEANFILES = *.log
-test_dirs = lib sieve scripts
-EXTRA_DIST = Reject Redirect
-
-dist-hook:
-	here=`cd $(top_builddir)/$(subdir) && pwd`; \
-	srcdir=`cd $(srcdir) && pwd`; \
-	distdir=`cd $(distdir) && pwd`; \
-	for dir in $(test_dirs); \
-	do \
-            cd $$srcdir;\
-            mkdir $$distdir/$$dir;\
-	    cd $$dir;\
-	    for file in DISTFILES `cat DISTFILES`; do \
-	        d=$$srcdir/$$dir; \
-	        if test -d $$d/$$file; then \
-                    cp -pr $$d/$$file $$distdir/$$dir/$$file; \
-		else \
-	            test -f $$distdir/$$dir/$$file \
-                        || cp -p $$d/$$file $$distdir/$$dir/$$file || exit; \
-                fi; \
-	    done;\
-        done;\
-	cd $$here
-
-site.exp: Makefile remote.exp
-	@echo 'Making a new site.exp file...'
-	@test ! -f site.bak || rm -f site.bak
-	@echo '## these variables are automatically generated by make ##' > $@-t
-	@echo '# Do not edit here.  If you wish to override these values' >> $@-t
-	@echo '# edit the last section' >> $@-t
-	@echo 'set tool $(DEJATOOL)' >> $@-t
-	@echo "set top_srcdir `cd $(top_srcdir); pwd`" >> $@-t
-	@echo "set top_builddir `cd $(top_builddir); pwd`" >> $@-t
-	@echo "set srcdir `cd $(srcdir); pwd`" >> $@-t
-	@echo 'set objdir' `pwd` >> $@-t
-	@echo 'set host_alias "$(host_alias)"' >> $@-t
-	@echo 'set host_triplet $(host_triplet)' >> $@-t
-	@echo 'set target_alias "$(target_alias)"' >> $@-t
-	@echo 'set target_triplet $(target_triplet)' >> $@-t
-	@echo 'set build_alias "$(build_alias)"' >> $@-t
-	@echo 'set build_triplet $(build_triplet)' >> $@-t
-	@echo '## All variables above are generated by configure. Do Not Edit ##' >> $@-t
-	@test ! -f site.exp || sed '1,/^## All variables above are.*##/ d' site.exp >> $@-t
-	@test ! -f site.exp || mv site.exp site.bak
-	@mv $@-t site.exp
-
-remote.exp:;
-	@echo 'Making a new remote.exp file...'
-	@test ! -f remote.bak || rm -f remote.bak
-	@echo '## These variables are used to set up for the remote testing.' >> $@-t
-	@echo '## Please, read file README in this directory for instructions' >> $@-t
-	@echo '## on how to use this file' >> $@-t
-	@echo "set host_board `hostname`" >> $@-t
-	@echo 'set board_info($$host_board,connect) rlogin' >> $@-t
-	@echo 'set board_info($$host_board,shell_prompt) "\\$$ "' >> $@-t
-	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
-	@echo "set board_info(\$$host_board,srcdir) `cd $(srcdir); pwd`" >> $@-t
-	@echo "set board_info(\$$host_board,objdir) `pwd`" >> $@-t
-	@echo "set board_info(\$$host_board,top_srcdir) `cd $(top_srcdir); pwd`" >> $@-t
-	@echo "set board_info(\$$host_board,top_builddir) `cd $(top_builddir); pwd`" >> $@-t
-	@test ! -f remote.exp || mv remote.exp remote.bak
-	@mv $@-t remote.exp
-
-
-DISTCLEANFILES=*.exp *.log *.sum 
-
-distclean-local:
-	-rm -rf	data

-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#
-# 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 of the License, 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, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
-#
-
-TEST reject.sv
-PATTERN BEGIN
-REJECT on msg uid 1
-REJECT on msg uid 2
-REJECT on msg uid 3
-PATTERN END
-
-FILE BEGIN
-ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
-ENVELOPE TO: <coyote@desert.example.org>
-   0: To: coyote@desert.example.org
--re
-   1: Content-Type: multipart/mixed; boundary="[0-9:=-]+"
-   2: MIME-Version: 1.0
-   3:
--re
-   4: [0-9:=-]+
-   5: Content-Type: text/plain;charset=UTF-8
-   6: Content-Transfer-Encoding: 8bit
-   7:
--re
-   8: The original message was received at [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]* from coyote@desert.example.org.
-   9: Message was refused by recipient's mail filtering program.
-  10: Reason given was as follows:
-  11: 
-  12: I don't want to read these messages.
-  13: 
-  14: Regards.
-  15:
--re
-  16: [0-9:=-]+
-  17: Content-Type: message/delivery-status
-  18:
--re
-  19: Reporting-UA: sieve; GNU Mailutils [0-9][0-9.]*
--re
-  20: Arrival-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  21: Final-Recipient: RFC822; foobar@nonexistent.net
-  22: Action: deleted
-  23: Disposition: automatic-action/MDN-sent-automatically;deleted
--re
-  24: Last-Attempt-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  25:
--re
-  26: [0-9:=-]+
-  27: Content-Type: message/rfc822
-  28: 
-  29: From: coyote@desert.example.org
-  30: To: roadrunner@acme.example.com
-  31: Subject: I have a present for you
-  32: X-Caffeine: C8H10N4O2
-  33: 
-  34: Look, I'm sorry about the whole anvil thing, and I really
-  35: didn't mean to try and drop it on you from the top of the
-  36: cliff.  I want to try to make it up to you.  I've got some
-  37: great birdseed over here at my place--top of the line
-  38: stuff--and if you come by, I'll have it all wrapped up
-  39: for you.  I'm really sorry for all the problems I've caused
-  40: for you over the years, but I know we can work this out.
-  41: 
-  42: -- 
-  43: Wile E. Coyote   "Super Genius"   coyote@desert.example.org
-  44:
--re
-  45: [0-9:=-]+
-  46: 
-END OF MESSAGE
-ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
-ENVELOPE TO: <b1ff@de.res.example.com>
-   0: To: b1ff@de.res.example.com
--re
-   1: Content-Type: multipart/mixed; boundary="[0-9:=-]+"
-   2: MIME-Version: 1.0
-   3:
--re
-   4: [0-9:=-]+
-   5: Content-Type: text/plain;charset=UTF-8
-   6: Content-Transfer-Encoding: 8bit
-   7:
--re
-   8: The original message was received at [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]* from b1ff@de.res.example.com.
-   9: Message was refused by recipient's mail filtering program.
-  10: Reason given was as follows:
-  11: 
-  12: I don't want to read these messages.
-  13: 
-  14: Regards.
-  15:
--re
-  16: [0-9:=-]+
-  17: Content-Type: message/delivery-status
-  18:
--re
-  19: Reporting-UA: sieve; GNU Mailutils [0-9][0-9.]*
--re
-  20: Arrival-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  21: Final-Recipient: RFC822; foobar@nonexistent.net
-  22: Action: deleted
-  23: Disposition: automatic-action/MDN-sent-automatically;deleted
--re
-  24: Last-Attempt-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  25:
--re
-  26: [0-9:=-]+
-  27: Content-Type: message/rfc822
-  28: 
-  29: From: youcouldberich!@reply-by-postal-mail.invalid
-  30: To: rube@landru.example.edu
-  31: Subject: $$$ YOU, TOO, CAN BE A MILLIONAIRE! $$$
-  32: Date: TBD
-  33: X-Number: 0015
-  34:
-  35: YOU MAY HAVE ALREADY WON TEN MILLION DOLLARS, BUT I DOUBT
-  36: IT!  SO JUST POST THIS TO SIX HUNDRED NEWSGROUPS!  IT WILL
-  37: GUARANTEE THAT YOU GET AT LEAST FIVE RESPONSES WITH MONEY!
-  38: MONEY! MONEY! COLD HARD CASH!  YOU WILL RECEIVE OVER
-  39: $20,000 IN LESS THAN TWO MONTHS!  AND IT'S LEGAL!!!!!!!!!
-  40: !!!!!!!!!!!!!!!!!!111111111!!!!!!!11111111111!!1  JUST
-  41: SEND $5 IN SMALL, UNMARKED BILLS TO THE ADDRESSES BELOW!
-  42:
--re
-  43: [0-9:=-]+
-  44:
-END OF MESSAGE
-ENVELOPE FROM: MAILER-DAEMON@nonexistent.net
-ENVELOPE TO: <bar@dontmailme.org>
-   0: To: bar@dontmailme.org
--re
-   1: Content-Type: multipart/mixed; boundary="[0-9:=-]+"
-   2: MIME-Version: 1.0
-   3:
--re
-   4: [0-9:=-]+
-   5: Content-Type: text/plain;charset=UTF-8
-   6: Content-Transfer-Encoding: 8bit
-   7:
--re
-   8: The original message was received at [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]* from bar@dontmailme.org.
-   9: Message was refused by recipient's mail filtering program.
-  10: Reason given was as follows:
-  11: 
-  12: I don't want to read these messages.
-  13: 
-  14: Regards.
-  15:
--re
-  16: [0-9:=-]+
-  17: Content-Type: message/delivery-status
-  18:
--re
-  19: Reporting-UA: sieve; GNU Mailutils [0-9][0-9.]*
--re
-  20: Arrival-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  21: Final-Recipient: RFC822; foobar@nonexistent.net
-  22: Action: deleted
-  23: Disposition: automatic-action/MDN-sent-automatically;deleted
--re
-  24: Last-Attempt-Date: [A-Z][a-z][a-z], [A-Z][a-z][a-z] [ 0-3][0-9] [ 0-2][0-9]:[0-6][0-9]:[0-6][0-9] [0-9][0-9][0-9][0-9] [a-zA-Z0-9]*
-  25:
--re
-  26: [0-9:=-]+
-  27: Content-Type: message/rfc822
-  28: 
-  29: Received: (from bar@dontmailme.org)
-  30: 	by dontmailme.org id fERKR9N16790
-  31: 	for foobar@nonexistent.net; Fri, 28 Dec 2001 22:18:08 +0200
-  32: Date: Fri, 28 Dec 2001 23:28:08 +0200
-  33: From: Bar <bar@dontmailme.org>
-  34: To: Foo Bar <foobar@nonexistent.net>
-  35: Message-Id: <200112232808.fERKR9N16790@dontmailme.org>
-  36: Subject: Coffee
-  37: 
-  38: How about some coffee?
-  39:
--re
-  40: [0-9:=-]+
-  41: 
-END OF MESSAGE
-FILE END
-TEST END
-
-# End of Reject

-sieve.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-source $top_srcdir/testsuite/lib/mailutils.exp
-set sieve_source_dir "${srcdir}/scripts"
-
-mu_init -noflags
-set env(MAIL) $MU_SPOOL_DIR/sieve.mbox
-set env(FOLDER) $env(MAIL)
-
-set SIEVE_ETC_DIR "$MU_DATA_DIR/etc"
-
-mu_makespool "$MU_RC_DIR" "$SIEVE_ETC_DIR"
-
-# sieve_test [-retcode N][-message MESSAGE][-default (FAIL|XFAIL)]
-#            [-reuse-spool]
-#            [ARGS...][-pattern PATTERN...]
-proc sieve_test {args} {
-    global sieve_source_dir
-    global top_builddir
-    global SIEVE_ETC_DIR
-    global MU_SPOOL_DIR
-    
-    set default ""
-    set sw [list "--config-file=$SIEVE_ETC_DIR/mailutils.rc" \
-	         "--verbose" \
-                 "--line-info=no" \
-                 "--no-program-name" \
-                 "-M sendmail:$top_builddir/examples/mta" \
-	         "--email foobar@nonexistent.net"]
-    set reuse_spool 0
-    set retcode 0
-    set mailbox "$MU_SPOOL_DIR/sieve.mbox"
-    for {set i 0} {$i < [llength $args]} {incr i} {
-	set a [lindex $args $i]
-	if {"$a" == "-default"} {
-	    incr i
-	    set default [lindex $args $i]
-	} elseif {"$a" == "-message"} {
-	    incr i
-	    set message [lindex $args $i]
-	} elseif {"$a" == "-pattern"} {
-	    incr i
-	    set pattern [lrange $args $i end]
-	    break
-	} elseif {"$a" == "-reuse-spool"} {
-	    set reuse_spool 1
-	    break
-	} elseif {"$a" == "-retcode"} {
-	    incr i
-	    set retcode [lindex $args $i]
-	} elseif {"$a" == "-f"} {
-	    incr i
-	    set mailbox [lindex $args $i]
-	} else {
-	    set sw [concat $sw [lindex $args $i]]
-	}
-    }
-
-    switch -- "[lindex $sw end]" {
-	^/.*   { }
-	default {
-	    set sw [concat [lrange $sw 0 [expr [llength $sw] - 2]] \
-			[list "${sieve_source_dir}/[lindex $sw end]"]]
-	}
-    }
-    
-    set sw [concat "-f$mailbox" $sw]
-
-    if {![info exists message]} {
-	set message "[lindex $sw end]"
-    }
-    
-    if {!$reuse_spool} {
-	mu_prepare_spools
-    }
-
-    if [info exists pattern] {
-	mu_exec -default $default -message $message -arg-list $sw \
-		-pattern $pattern -retcode $retcode
-    } else {
-	mu_exec -default $default -message $message -arg-list $sw \
-		-retcode $retcode
-    }
-    #FIXME: examine the output mailbox
-}
-
-proc sieve_driver_test {name mailer diag} {
-    global srcdir
-    set chan [open "${srcdir}/$name" r]
-
-    set state 0
-    set command ""
-    for {gets $chan line} {![eof $chan]} {gets $chan line} {
-	verbose "LINE $line" 1
-	switch -regexp -- "$line" {
-	    "^#.*" { }
-	    "^TEST END" {
-		verbose "ARGS $args" 1
-		verbose "PATTERN $pattern" 1
-		verbose "OUTPUT $output" 1
-		eval sieve_test $args -pattern $pattern
-		eval mu_test_file "$diag" $output		
-		set state 0
-	    }
-	    "^TEST" {
-		regexp "^TEST (.*)" $line dummy args
-	        set pattern [list]
-		set output [list]
-	        set state 1
-	    }
-	    "^PATTERN BEGIN" {
-		set state 2
-	    }
-	    "^PATTERN END" {
-		set state 1
-	    }
-	    "^FILE BEGIN" {
-		set state 3
-	    }
-	    "^FILE END" {
-		set state 1
-	    }
-	    "^STOP" {
-		break
-	    }
-	    default {
-		if {$state == 2} {
-		    lappend pattern $line
-		} elseif {$state == 3} {
-		    lappend output $line
-		}
-	    }
-	}
-    }
-    close $chan
-}

-addr_is_all.sv
-addr_is_domain.sv
-addr_is_local.sv
-addr_matches.sv
-address.sv
-allof00.sv
-allof01.sv
-allof11.sv
-anyof00.sv
-anyof01.sv
-anyof11.sv
-discard.sv
-envelope1.sv
-exists1.sv
-exists2.sv
-exists3.sv
-false.sv
-fileinto.sv
-header1.sv
-header2.sv
-header3.sv
-header-mime.sv
-i-casemap-contains.sv
-i-casemap-is.sv
-i-casemap-matches.sv
-i-casemap-regex.sv
-i-numeric-contains.sv
-i-numeric-is.sv
-i-octet-contains.sv
-i-octet-is.sv
-i-octet-matches.sv
-i-octet-regex.sv
-keep.sv
-mul-addr.sv
-not.sv
-null.sv
-numaddr.sv
-redirect.sv
-reject.sv
-rel-address.sv
-rel-hairy.sv
-rel-header.sv
-size1.sv
-size2.sv
-stop.sv
-true.sv

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if address :is :all "From" "coyote@desert.example.org" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if address :is :domain "From" "desert.example.org" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if address :is :localpart "From" "youcouldberich!" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if address :matches :all "From" "*invalid" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if address :is :all "From" "coyote@desert.example.org" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if allof(false,false) {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if allof(false,true) {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if allof(true,true) {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if anyof(false,false) {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if anyof(false,true) {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if anyof(true,true) {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-discard;

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if envelope "from" "coyote@desert.example.org" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if exists "X-Caffeine" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if exists ["X-Caffeine", "From"] {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if exists ["X-Caffeine", "X-Status"] {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if false {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "fileinto";
-
-fileinto "+file";

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if header :mime :is "Content-Description" "How doth" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if header :is "X-Caffeine" "C8H10N4O2" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if header ["X-Caffeine","Subject"] ["C8H10N4O2","Coffee"] {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if header :matches "Subject" "*$$$*" {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-casemap";
-
-if header :comparator "i;ascii-casemap" :contains ["from", "to"] "ExAmPLe"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-casemap";
-
-if header :comparator "i;ascii-casemap" :is "to" "roadrunner@ACME.EXAMPLE.COM"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-casemap";
-
-if header :comparator "i;ascii-casemap" :matches "subject" "*you, too,*"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-casemap";
-
-if header :comparator "i;ascii-casemap" :regex "subject" ".*you.*"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-numeric";
-
-if header :comparator "i;ascii-numeric" :contains "X-Number" "15"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;ascii-numeric";
-
-if header :comparator "i;ascii-numeric" :is "X-Number" "15"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;octet";
-
-if header :comparator "i;octet" :contains ["from", "to"] "example"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;octet";
-
-if header :comparator "i;octet" :is "to" "roadrunner@acme.example.com"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;octet";
-
-if header :comparator "i;octet" :matches "subject" "$$$*$$$"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "comparator-i;octet";
-
-if header :comparator "i;octet" :regex "subject" ".*you.*"
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-keep;

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "fileinto";
-
-if address :localpart :is ["To", "Cc"] [ "foo", "oof" ]
-  {
-    discard;
-  } 

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if not false {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-# Empty script to test implicit keep.

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "test-numaddr";
-
-if numaddr [ "to", "cc" ] :over 5
-  {
-    discard;
-  }

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "redirect";
-
-redirect "gray@gnu.org";

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require "reject";
-
-reject text:
-I don't want to read these messages.
-
-Regards.
-.
-;

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require ["relational", "comparator-i;ascii-numeric"];
-
-if address :count "ge" :comparator "i;ascii-numeric" ["to", "cc"] ["3"]
-  {
-    discard;
-  }
-
-# End of rel-address.sv

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require ["relational", "comparator-i;ascii-numeric", "fileinto"];
-
-if header :value "lt" :comparator "i;ascii-numeric" ["x-priority"] ["3"]
-  {
-    fileinto "%Priority";
-  }
-elsif address :count "gt" :comparator "i;ascii-numeric" ["to"] ["5"]
-  {
-    # everything with more than 5 recipients in the "to" field
-    # is considered SPAM
-    fileinto "%SPAM";
-  }
-elsif address :value "gt" :all :comparator "i;ascii-casemap" ["from"] ["M"]
-  {
-    fileinto "%From_N-Z";
-  }
-else
-  {
-    fileinto "%From_A-M";
-  }
-
-if allof (address :count "eq" :comparator "i;ascii-numeric"
-                  ["to", "cc"] ["1"] ,
-          address :all :comparator "i;ascii-casemap"
-                  ["to", "cc"] ["me@foo.example.com.invalid"])
-  {
-    fileinto "%Only_me";
-  }
-
-# End of rel-hairy.sv

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-require ["relational", "comparator-i;ascii-numeric"];
-
-if header :count "gt" ["received"] ["2"]
-  {
-    discard;
-  }
-
-# End of rel-address.sv

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if size :under 400 {
-        discard;
-}
-

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if size :over 500 {
-	discard;
-}

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-stop;

-# -*- sieve -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2010 Free Software Foundation, Inc.
-# See file COPYING for distribution conditions.
-
-if true {
-	discard;
-}

-action.exp
-address.exp
-allof.exp
-anyof.exp
-envelope.exp
-exists.exp
-ext.exp
-false.exp
-header.exp
-i-casemap.exp
-i-numeric.exp
-i-octet.exp
-mul-addr.exp
-not.exp
-redirect.exp
-reject.exp
-relational.exp
-size.exp
-true.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2009, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test stop.sv -pattern\
-"STOP on msg uid 1"\
-"STOP on msg uid 2"\
-"STOP on msg uid 3"
-
-sieve_test null.sv -pattern\
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test keep.sv -pattern\
-"KEEP on msg uid 1"\
-"KEEP on msg uid 2"\
-"KEEP on msg uid 3"
-
-sieve_test discard.sv -pattern\
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-sieve_test --set "mailbox.folder=\"'$MU_SPOOL_DIR'\"" fileinto.sv -pattern\
-"FILEINTO on msg uid 1: delivering into +file"\
-"FILEINTO on msg uid 2: delivering into +file"\
-"FILEINTO on msg uid 3: delivering into +file"
-
-mu_test_file "$MU_SPOOL_DIR/file" \
-"From coyote@desert.example.org Sun May  6 22:16:47 2001"\
-"From: coyote@desert.example.org"\
-"To: roadrunner@acme.example.com"\
-"Subject: I have a present for you"\
-"X-Caffeine: C8H10N4O2"\
-""\
-"Look, I'm sorry about the whole anvil thing, and I really"\
-"didn't mean to try and drop it on you from the top of the"\
-"cliff.  I want to try to make it up to you.  I've got some"\
-"great birdseed over here at my place--top of the line"\
-"stuff--and if you come by, I'll have it all wrapped up"\
-"for you.  I'm really sorry for all the problems I've caused"\
-"for you over the years, but I know we can work this out."\
-""\
--- "--"\
-"Wile E. Coyote   \"Super Genius\"   coyote@desert.example.org"\
-""\
-"From b1ff@de.res.example.com Sun May  6 22:17:15 2001"\
-"From: youcouldberich!@reply-by-postal-mail.invalid"\
-"To: rube@landru.example.edu"\
-"Subject: \$\$\$ YOU, TOO, CAN BE A MILLIONAIRE! \$\$\$"\
-"Date: TBD"\
-"X-Number: 0015"\
-""\
-"YOU MAY HAVE ALREADY WON TEN MILLION DOLLARS, BUT I DOUBT"\
-"IT!  SO JUST POST THIS TO SIX HUNDRED NEWSGROUPS!  IT WILL"\
-"GUARANTEE THAT YOU GET AT LEAST FIVE RESPONSES WITH MONEY!"\
-"MONEY! MONEY! COLD HARD CASH!  YOU WILL RECEIVE OVER"\
-"\$20,000 IN LESS THAN TWO MONTHS!  AND IT'S LEGAL!!!!!!!!!"\
-"!!!!!!!!!!!!!!!!!!111111111!!!!!!!11111111111!!1  JUST"\
-"SEND \$5 IN SMALL, UNMARKED BILLS TO THE ADDRESSES BELOW!"\
-""\
-"From bar@dontmailme.org  Fri Dec 28 23:28:09 2001"\
-"Received: (from bar@dontmailme.org)"\
-"\tby dontmailme.org id fERKR9N16790"\
-"\tfor foobar@nonexistent.net; Fri, 28 Dec 2001 22:18:08 +0200"\
-"Date: Fri, 28 Dec 2001 23:28:08 +0200"\
-"From: Bar <bar@dontmailme.org>"\
-"To: Foo Bar <foobar@nonexistent.net>"\
-"Message-Id: <200112232808.fERKR9N16790@dontmailme.org>"\
-"Subject: Coffee"\
-""\
-"How about some coffee?"
-
-# end of action.exp
-

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test addr_is_all.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test addr_is_domain.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test addr_is_local.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"DISCARD on msg uid 2: marking as deleted"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test addr_matches.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"DISCARD on msg uid 2: marking as deleted"\
-"IMPLICIT KEEP on msg uid 3"
-
-# end of address.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test allof00.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test allof01.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test allof11.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-# end of allof.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test anyof00.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test anyof01.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-sieve_test anyof11.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-# end of anyof.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software Foundation,
-# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 
-
-set exdir "${srcdir}/../examples"
-
-set scripts [list\
-             ex-null.sv\
-             box.sv\
-             ex-1.10.2.sv\
-             ex-2.3a.sv\
-             ex-2.5.1.sv\
-             ex-2.7.3.sv\
-             ex-3.1a.sv\
-             ex-3.1b.sv\
-             ex-4.2.sv\
-             ex-4.4a.sv\
-             ex-4.4b.sv\
-             ex-4.5.sv\
-             ex-5.1.sv\
-             ex-5.7.sv\
-             ex-save-all.sv\
-             example.sv\
-             exn-2.3b.sv]
-
-# t-complex.sv
-# t-exists.sv
-# t-fileinto.sv
-# t-mailutils.sv
-
-
-for {set s $scripts} {[llength $s] != 0} {set s [lrange $s 1 end]} {
-    set source_name [lindex $s 0]
-    mu_exec -message "sieve -c $source_name" \
-	    -arg -c -arg ${exdir}/$source_name
-}
-
-# end of compile.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test envelope1.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-# end of envelope.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test exists1.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test exists2.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test exists3.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-# end of exists.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mu_version
-if ![mu_check_capability HAVE_LIBLTDL] {
-    unsupported "This test requires libltdl"
-} else {
-    sieve_test --clearpath -L "${top_builddir}/examples" -f ${MU_SPOOL_DIR}/bigto.mbox numaddr.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"
-}
-# End of ext.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test false.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-# end of false.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test header1.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test header2.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"DISCARD on msg uid 3: marking as deleted"
-
-sieve_test header3.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"DISCARD on msg uid 2: marking as deleted"\
-"IMPLICIT KEEP on msg uid 3"
-
-sieve_test -f "$MU_SPOOL_DIR/mbox1" header-mime.sv  -pattern \
-	"IMPLICIT KEEP on msg uid 1"\
-	"IMPLICIT KEEP on msg uid 2"\
-	"DISCARD on msg uid 3: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 4"\
-	"IMPLICIT KEEP on msg uid 5"
-
-# end of header.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test i-casemap-is.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 2"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-casemap-matches.sv -pattern \
-	"IMPLICIT KEEP on msg uid 1"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-casemap-contains.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-casemap-regex.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-# end of i-casemap.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test i-numeric-is.sv -pattern \
-	"IMPLICIT KEEP on msg uid 1"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-numeric-contains.sv -retcode 78 -pattern \
-	-re ".*i-numeric-contains.sv:9: comparator `i;ascii-numeric' is incompatible with match type `contains' in call to `header'"
-
-# end of i-numeric.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test i-octet-is.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 2"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-octet-matches.sv -pattern \
-	"IMPLICIT KEEP on msg uid 1"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-octet-contains.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"DISCARD on msg uid 2: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 3"
-
-sieve_test i-octet-regex.sv -pattern \
-	"DISCARD on msg uid 1: marking as deleted"\
-	"IMPLICIT KEEP on msg uid 2"\
-	"IMPLICIT KEEP on msg uid 3"
-
-# end of i-octet.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test -f $MU_SPOOL_DIR/relational.mbox mul-addr.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"\
-"DISCARD on msg uid 4: marking as deleted"\
-"DISCARD on msg uid 5: marking as deleted"\
-"DISCARD on msg uid 6: marking as deleted"\
-"DISCARD on msg uid 7: marking as deleted"\
-"IMPLICIT KEEP on msg uid 8"\
-"DISCARD on msg uid 9: marking as deleted"
-
-# End of mul-addr.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test not.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-# end of not.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mu_version
-if ![mu_check_capability ENABLE_SENDMAIL] {
-    unsupported "Support for sendmail not compiled in"
-} else {
-    set mtafile "$MU_FOLDER_DIR/mta.diag"
-    set env(MTA_DIAG) "$mtafile"
-    set env(MTA_APPEND) 1
-
-    set mailer "sendmail:$top_builddir/examples/mta"
-
-    sieve_driver_test "Redirect" "$mailer" "$mtafile"
-}
-# End of redirect.exp	
-
-

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-mu_version
-if ![mu_check_capability ENABLE_SENDMAIL] {
-    unsupported "Support for sendmail not compiled in"
-} else {
-    set mtafile "$MU_FOLDER_DIR/mta.diag"
-    set env(MTA_DIAG) "$mtafile"
-    set env(MTA_APPEND) 1
-
-    set mailer "sendmail:$top_builddir/examples/mta"
-
-    sieve_driver_test "Reject" "$mailer" "$mtafile"
-}
-# End of reject.exp	
-
-

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test -f $MU_SPOOL_DIR/relational.mbox rel-address.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"\
-"IMPLICIT KEEP on msg uid 4"\
-"IMPLICIT KEEP on msg uid 5"\
-"IMPLICIT KEEP on msg uid 6"\
-"IMPLICIT KEEP on msg uid 7"\
-"IMPLICIT KEEP on msg uid 8"\
-"DISCARD on msg uid 9: marking as deleted"
-
-sieve_test -f $MU_SPOOL_DIR/relational.mbox rel-header.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"IMPLICIT KEEP on msg uid 3"\
-"IMPLICIT KEEP on msg uid 4"\
-"IMPLICIT KEEP on msg uid 5"\
-"IMPLICIT KEEP on msg uid 6"\
-"IMPLICIT KEEP on msg uid 7"\
-"IMPLICIT KEEP on msg uid 8"\
-"DISCARD on msg uid 9: marking as deleted"
-
-sieve_test -f $MU_SPOOL_DIR/relational.mbox rel-hairy.sv -pattern \
-"FILEINTO on msg uid 1: delivering into %From_A-M"\
-"FILEINTO on msg uid 2: delivering into %From_N-Z"\
-"FILEINTO on msg uid 3: delivering into %Priority"\
-"FILEINTO on msg uid 4: delivering into %Priority"\
-"FILEINTO on msg uid 5: delivering into %Priority"\
-"FILEINTO on msg uid 6: delivering into %From_A-M"\
-"FILEINTO on msg uid 7: delivering into %From_A-M"\
-"FILEINTO on msg uid 8: delivering into %From_A-M"\
-"FILEINTO on msg uid 8: delivering into %Only_me"\
-"FILEINTO on msg uid 9: delivering into %SPAM"
-
-# End of relational.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test size1.sv -pattern \
-"IMPLICIT KEEP on msg uid 1"\
-"IMPLICIT KEEP on msg uid 2"\
-"DISCARD on msg uid 3: marking as deleted"
-
-sieve_test size2.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"IMPLICIT KEEP on msg uid 3"
-
-# end of size.exp

-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc.
-#  
-# 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 of the License, 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, write to the Free Software
-# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
-# 02110-1301 USA.
-
-sieve_test true.sv -pattern \
-"DISCARD on msg uid 1: marking as deleted"\
-"DISCARD on msg uid 2: marking as deleted"\
-"DISCARD on msg uid 3: marking as deleted"
-
-# end of true.exp