summaryrefslogtreecommitdiffabout
authorSergey Poznyakoff <gray@gnu.org.ua>2010-09-14 21:38:16 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2010-09-14 21:48:22 (GMT)
commit548d50fb19cd66dbe153e4d7e879501bab58c0aa (patch) (side-by-side diff)
tree15d314cb92ab33406233ffcf79f72461a7b2f280
parent7b79a6edcda94d4224bc4cbbe47cb6dcf2ea42db (diff)
downloadmailutils-548d50fb19cd66dbe153e4d7e879501bab58c0aa.tar.gz
mailutils-548d50fb19cd66dbe153e4d7e879501bab58c0aa.tar.bz2
Rewrite libmailutils testsuite in Autotest.
* configure.ac: Create libmailutils/tests/atlocal and libmailutils/tests/Makefile. Remove libmailutils/testsuite. * examples/Makefile.am (noinst_PROGRAMS): Remove programs moved to libmailutils/tests. * examples/argcv.c -> libmailutils/tests/argcv.c * libmailutils/testsuite/Decode -> libmailutils/tests/Decode * libmailutils/testsuite/Encode -> libmailutils/tests/Encode * examples/decode2047.c: Move to libmailutils/tests * examples/encode2047.c: Move to libmailutils/tests * examples/mailcap.c: Likewise. * examples/url-parse.c: Likewise. * include/mailutils/Makefile.am: Minor changes. * libmailutils/Makefile.am (SUBDIRS): Replace testsuite with tests. * libmailutils/tests/Makefile.am: New file. * libmailutils/tests/addr.c: New file. * libmailutils/tests/address.at: New file. * libmailutils/tests/argcv.at: New file. * libmailutils/tests/atlocal.in: New file. * libmailutils/tests/base64d.at: New file. * libmailutils/tests/base64e.at: New file. * libmailutils/tests/decode2047.at: New file. * libmailutils/tests/encode2047.at: New file. * libmailutils/tests/fltst.c: New file. * libmailutils/tests/mailcap.at: New file. * libmailutils/tests/mime.at: New file. * libmailutils/tests/testsuite.at: New file. * libmailutils/tests/url.at: New file. * libmailutils/testsuite/: Delete. * frm/tests/Makefile.am: Prefix package.m4 creation commands with $(AM_V_GEN). * readmsg/tests/Makefile.am: Likewise. * sieve/tests/Makefile.am: Likewise. * frm/tests/testsuite.at: Minor changes. * readmsg/tests/testsuite.at: Include testsuite.inc. * sieve/tests/testsuite.at: Likewise. * sieve/tests/version.at: Comment out inclusion of testsuite.inc. * testsuite/testsuite.inc: Add m4_version_prereq.
Diffstat (more/less context) (ignore whitespace changes)
-rw-r--r--configure.ac5
-rw-r--r--examples/Makefile.am17
-rw-r--r--frm/tests/Makefile.am2
-rw-r--r--frm/tests/testsuite.at7
-rw-r--r--include/mailutils/Makefile.am2
-rw-r--r--libmailutils/Makefile.am2
-rw-r--r--libmailutils/tests/Decode (renamed from libmailutils/testsuite/Decode)0
-rw-r--r--libmailutils/tests/Encode (renamed from libmailutils/testsuite/Encode)bin256 -> 256 bytes
-rw-r--r--libmailutils/tests/Makefile.am100
-rw-r--r--libmailutils/tests/addr.c103
-rw-r--r--libmailutils/tests/address.at1080
-rw-r--r--libmailutils/tests/argcv.at91
-rw-r--r--libmailutils/tests/argcv.c (renamed from examples/argcv.c)0
-rw-r--r--libmailutils/tests/atlocal.in9
-rw-r--r--libmailutils/tests/base64d.at39
-rw-r--r--libmailutils/tests/base64e.at39
-rw-r--r--libmailutils/tests/decode2047.at60
-rw-r--r--libmailutils/tests/decode2047.c (renamed from examples/decode2047.c)5
-rw-r--r--libmailutils/tests/encode2047.at32
-rw-r--r--libmailutils/tests/encode2047.c (renamed from examples/encode2047.c)5
-rw-r--r--libmailutils/tests/fltst.c195
-rw-r--r--libmailutils/tests/mailcap.at279
-rw-r--r--libmailutils/tests/mailcap.c (renamed from examples/mailcap.c)0
-rw-r--r--libmailutils/tests/mime.at (renamed from libmailutils/testsuite/Mime)54
-rw-r--r--libmailutils/tests/mimetest.c (renamed from examples/mimetest.c)0
-rw-r--r--libmailutils/tests/testsuite.at30
-rw-r--r--libmailutils/tests/url-parse.c (renamed from examples/url-parse.c)16
-rw-r--r--libmailutils/tests/url.at776
-rw-r--r--libmailutils/testsuite/.gitignore7
-rw-r--r--libmailutils/testsuite/Addrs644
-rw-r--r--libmailutils/testsuite/Argcv52
-rw-r--r--libmailutils/testsuite/Decode204736
-rw-r--r--libmailutils/testsuite/Encode204727
-rw-r--r--libmailutils/testsuite/Mailcap195
-rw-r--r--libmailutils/testsuite/Makefile.am92
-rw-r--r--libmailutils/testsuite/Urls629
-rw-r--r--libmailutils/testsuite/lib/DISTFILES1
-rw-r--r--libmailutils/testsuite/lib/mailbox.exp243
-rw-r--r--libmailutils/testsuite/mailbox/DISTFILES9
-rw-r--r--libmailutils/testsuite/mailbox/address.exp48
-rw-r--r--libmailutils/testsuite/mailbox/argcv.exp55
-rw-r--r--libmailutils/testsuite/mailbox/base64.exp37
-rw-r--r--libmailutils/testsuite/mailbox/decode2047.exp50
-rw-r--r--libmailutils/testsuite/mailbox/encode2047.exp62
-rw-r--r--libmailutils/testsuite/mailbox/list.exp330
-rw-r--r--libmailutils/testsuite/mailbox/mailcap.exp71
-rw-r--r--libmailutils/testsuite/mailbox/mime.exp39
-rw-r--r--libmailutils/testsuite/mailbox/url.exp48
-rw-r--r--readmsg/tests/Makefile.am2
-rw-r--r--readmsg/tests/testsuite.at1
-rw-r--r--sieve/tests/Makefile.am2
-rw-r--r--sieve/tests/testsuite.at3
-rw-r--r--sieve/tests/version.at2
-rw-r--r--testsuite/testsuite.inc7
54 files changed, 2894 insertions, 2746 deletions
diff --git a/configure.ac b/configure.ac
index 2b097f7..27ffc54 100644
--- a/configure.ac
+++ b/configure.ac
@@ -1211,7 +1211,9 @@ AC_ARG_WITH([mh-bindir],
# Initialize the (autotest) test suite.
AC_CONFIG_TESTDIR(tests)
-AC_CONFIG_FILES([frm/tests/Makefile
+AC_CONFIG_FILES([libmailutils/tests/Makefile
+ libmailutils/tests/atlocal
+ frm/tests/Makefile
frm/tests/atlocal
readmsg/tests/Makefile
readmsg/tests/atlocal
@@ -1362,7 +1364,6 @@ AC_CONFIG_FILES([
mail/Makefile
mail/testsuite/Makefile
libmailutils/Makefile
- libmailutils/testsuite/Makefile
messages/Makefile
messages/testsuite/Makefile
mh/Makefile
diff --git a/examples/Makefile.am b/examples/Makefile.am
index 7e858d7..c283d0d 100644
--- a/examples/Makefile.am
+++ b/examples/Makefile.am
@@ -35,18 +35,13 @@ SUBDIRS = config $(CPP_DIR) python scheme
noinst_PROGRAMS = \
aclck\
addr\
- argcv\
base64\
- decode2047\
echosrv\
- encode2047\
header\
http\
iconv\
listop\
lsf\
- mailcap\
- mimetest\
msg-send\
mta\
mucat\
@@ -56,8 +51,7 @@ noinst_PROGRAMS = \
musocio\
$(NNTPCLIENT)\
$(POP3CLIENT)\
- sfrom\
- url-parse
+ sfrom
EXTRA_PROGRAMS = pop3client nntpclient
@@ -79,15 +73,6 @@ numaddr_la_SOURCES = numaddr.c
numaddr_la_LIBADD = ${MU_LIB_SIEVE}
numaddr_la_LDFLAGS = -module -avoid-version -no-undefined -rpath '$(moddir)'
-mimetest_LDADD =\
- ../lib/libmuaux.la\
- ${MU_LIB_MBOX}\
- ${MU_LIB_IMAP}\
- ${MU_LIB_POP}\
- ${MU_LIB_AUTH}\
- @MU_AUTHLIBS@\
- ${MU_LIB_MAILUTILS}
-
msg_send_LDADD =\
../lib/libmuaux.la\
${MU_LIB_MAILER}\
diff --git a/frm/tests/Makefile.am b/frm/tests/Makefile.am
index 647d108..be7ac10 100644
--- a/frm/tests/Makefile.am
+++ b/frm/tests/Makefile.am
@@ -23,7 +23,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
## ------------ ##
$(srcdir)/package.m4: $(top_srcdir)/configure.ac
- { \
+ $(AM_V_GEN){ \
echo '# Signature of the current package.'; \
echo 'm4_define([AT_PACKAGE_NAME], [@PACKAGE_NAME@])'; \
echo 'm4_define([AT_PACKAGE_TARNAME], [@PACKAGE_TARNAME@])'; \
diff --git a/frm/tests/testsuite.at b/frm/tests/testsuite.at
index eae8fc1..0afd415 100644
--- a/frm/tests/testsuite.at
+++ b/frm/tests/testsuite.at
@@ -15,10 +15,7 @@
# 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])
+m4_include([testsuite.inc])
dnl ------------------------------------------------------------
dnl FRM_MAILBOX -- mailbox used for testing
@@ -47,8 +44,6 @@ AT_INIT
AT_TESTED([frm])
-m4_include([testsuite.inc])
-
MUT_VERSION(frm)
FRMTEST([no options],[frm00],
diff --git a/include/mailutils/Makefile.am b/include/mailutils/Makefile.am
index 098a9fa..9839c0a 100644
--- a/include/mailutils/Makefile.am
+++ b/include/mailutils/Makefile.am
@@ -20,7 +20,7 @@
BUILT_SOURCES=errno.h debug.h
EXTRA_DIST=errno.hin debug.hm4 types.hin
-errno.h: $(top_srcdir)/mailbox/errors errno.hin
+errno.h: $(top_srcdir)/libmailutils/errors errno.hin
$(AM_V_GEN)$(AWK) -f $(mu_aux_dir)/generr.awk $^ > $@
debug.h: $(mu_aux_dir)/debugdef.m4 debug.hm4
diff --git a/libmailutils/Makefile.am b/libmailutils/Makefile.am
index f28b1bd..ea8d738 100644
--- a/libmailutils/Makefile.am
+++ b/libmailutils/Makefile.am
@@ -24,7 +24,7 @@ YLWRAP = $(SHELL) $(mu_aux_dir)/gylwrap
AM_YFLAGS=-vt
AM_LFLAGS=-dvp
-SUBDIRS = testsuite
+SUBDIRS = tests
lib_LTLIBRARIES = libmailutils.la
diff --git a/libmailutils/testsuite/Decode b/libmailutils/tests/Decode
index da67247..da67247 100644
--- a/libmailutils/testsuite/Decode
+++ b/libmailutils/tests/Decode
diff --git a/libmailutils/testsuite/Encode b/libmailutils/tests/Encode
index c866266..c866266 100644
--- a/libmailutils/testsuite/Encode
+++ b/libmailutils/tests/Encode
Binary files differ
diff --git a/libmailutils/tests/Makefile.am b/libmailutils/tests/Makefile.am
new file mode 100644
index 0000000..4cee19c
--- a/dev/null
+++ b/libmailutils/tests/Makefile.am
@@ -0,0 +1,100 @@
+# 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)
+
+## ------------ ##
+## package.m4. ##
+## ------------ ##
+
+$(srcdir)/package.m4: $(top_srcdir)/configure.ac
+ $(AM_V_GEN){ \
+ 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
+
+#
+
+## -------------------------- ##
+## Non-installable programs
+## -------------------------- ##
+
+INCLUDES = @MU_LIB_COMMON_INCLUDES@
+noinst_PROGRAMS = \
+ addr\
+ argcv\
+ decode2047\
+ encode2047\
+ fltst\
+ mailcap\
+ mimetest\
+ url-parse
+
+LDADD =\
+ ../../lib/libmuaux.la\
+ ${MU_LIB_MBOX}\
+ ${MU_LIB_IMAP}\
+ ${MU_LIB_POP}\
+ ${MU_LIB_AUTH}\
+ @MU_AUTHLIBS@\
+ ${MU_LIB_MAILUTILS}
+
+EXTRA_DIST += Encode Decode
+
+## ------------ ##
+## Test suite. ##
+## ------------ ##
+
+TESTSUITE_AT = \
+ address.at\
+ argcv.at\
+ base64d.at\
+ base64e.at\
+ decode2047.at\
+ encode2047.at\
+ mailcap.at\
+ mime.at\
+ testsuite.at\
+ url.at
+
+TESTSUITE = $(srcdir)/testsuite
+M4=m4
+
+AUTOTEST = $(AUTOM4TE) --language=autotest
+$(TESTSUITE): package.m4 $(TESTSUITE_AT)
+ $(AM_V_GEN)$(AUTOTEST) -I $(srcdir) -I $(top_srcdir)/testsuite 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
+
+
diff --git a/libmailutils/tests/addr.c b/libmailutils/tests/addr.c
new file mode 100644
index 0000000..7e91f99
--- a/dev/null
+++ b/libmailutils/tests/addr.c
@@ -0,0 +1,103 @@
+/* GNU Mailutils -- a suite of utilities for electronic mail
+ Copyright (C) 1999, 2000, 2001, 2004, 2005, 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.
+
+ GNU Mailutils 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, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ MA 02110-1301 USA */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include <mailutils/address.h>
+#include <mailutils/errno.h>
+#include <mailutils/kwd.h>
+#include <mailutils/mutil.h>
+
+#define EPARSE MU_ERR_NOENT
+
+int
+main (int argc, char *argv[])
+{
+ char *str;
+ size_t i;
+ size_t pcount = 0;
+ int status;
+ const char *buf;
+ mu_address_t address = NULL;
+ struct mu_address hint;
+
+ if (argc != 2)
+ {
+ fprintf (stderr, "usage: %s address\n", argv[0]);
+ return 2;
+ }
+ str = argv[1];
+
+ hint.domain = "localhost";
+ status = mu_address_create_hint (&address, str, &hint, MU_ADDR_HINT_DOMAIN);
+ mu_address_get_count (address, &pcount);
+
+ if (status)
+ {
+ fprintf (stderr, "%s\n", mu_errname (status));
+ return 1;
+ }
+ else
+ printf ("naddr: %lu\n", (unsigned long) pcount);
+
+ for (i = 1; i <= pcount; i++)
+ {
+ int isgroup;
+
+ mu_address_is_group (address, i, &isgroup);
+ printf ("%lu. ", (unsigned long) i);
+
+ if (isgroup)
+ {
+ mu_address_sget_personal (address, i, &buf);
+ printf ("group <%s>:\n", buf);
+ }
+ else
+ {
+ mu_address_sget_email (address, i, &buf);
+ printf ("email <%s>:\n", buf);
+ }
+
+ if (mu_address_sget_personal (address, i, &buf) == 0 && buf && !isgroup)
+ printf ("personal <%s>\n", buf);
+
+ if (mu_address_sget_comments (address, i, &buf) == 0 && buf)
+ printf ("comments <%s>\n", buf);
+
+ if (mu_address_sget_local_part (address, i, &buf) == 0 && buf)
+ {
+ printf ("local-part <%s>", buf);
+
+ if (mu_address_sget_domain (address, i, &buf) == 0 && buf)
+ printf (" domain <%s>", buf);
+
+ printf ("\n");
+ }
+
+ if (mu_address_sget_route (address, i, &buf) == 0 && buf)
+ printf ("route <%s>\n", buf);
+ }
+ mu_address_destroy (&address);
+ return 0;
+}
diff --git a/libmailutils/tests/address.at b/libmailutils/tests/address.at
new file mode 100644
index 0000000..9ce9fa3
--- a/dev/null
+++ b/libmailutils/tests/address.at
@@ -0,0 +1,1080 @@
+# 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.
+
+dnl ------------------------------------------------------------
+dnl TESTADDR(ADDR, [KW = `'], [STATUS = `0'], [STDOUT = `'],
+dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTADDR],[
+AT_SETUP([Address: [$1]])
+AT_KEYWORDS([address $2])
+AT_CHECK([addr '[$1]'],m4_shift(m4_shift($@)))
+AT_CLEANUP
+])
+
+TESTADDR([Sam <@[matrix (smtp)], @[nexus: [node 12]]:sroberts@[10].[1]>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([a@b,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,a@b,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,z@y,],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,a@b,z@y,],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a@b,,,z@y],[],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([,,,a@b,,,],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([,a@b],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a@b,],[],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([,,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([,,],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: a@b,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,a@b,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,z@y,;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,a@b,z@y,;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: a@b,,,z@y;],[group],
+[0],
+[naddr: 2
+1. email <a@b>:
+local-part <a> domain <b>
+2. email <z@y>:
+local-part <z> domain <y>
+])
+
+TESTADDR([a group: ,,,a@b,,, ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: ,a@b ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: a@b, ;],[group],
+[0],
+[naddr: 1
+1. email <a@b>:
+local-part <a> domain <b>
+])
+
+TESTADDR([a group: , ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: ,, ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([a group: ,, ;],[group],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([Sam <@[matrix (smtp)], @[nexus: [node 12]]:sroberts@[10].[1]> ;],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];],[],
+[0],
+[[naddr: 2
+1. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+2. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+]])
+
+TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];],
+[],
+[0],
+[[naddr: 3
+1. email <lo@hi>:
+local-part <lo> domain <hi>
+2. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+3. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+]])
+
+TESTADDR([Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
+[],
+[0],
+[[naddr: 3
+1. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+2. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+3. email <hi@lo>:
+local-part <hi> domain <lo>
+]])
+
+TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
+[],
+[0],
+[[naddr: 4
+1. email <lo@hi>:
+local-part <lo> domain <hi>
+2. email <sam@sam>:
+personal <Sam>
+local-part <sam> domain <sam>
+route <@[matrix (smtp)]>
+3. email <sroberts@[10].[1]>:
+local-part <sroberts> domain <[10].[1]>
+4. email <hi@lo>:
+local-part <hi> domain <lo>
+]])
+
+TESTADDR([Sam <@mail2.uniserve.com:sroberts@uniserve.com>],[],
+[0],
+[naddr: 1
+1. email <sroberts@uniserve.com>:
+personal <Sam>
+local-part <sroberts> domain <uniserve.com>
+route <@mail2.uniserve.com>
+])
+
+TESTADDR([< (hey) @ (hey, )smtp1.sympatico.ca, mail2.uniserve.com (hoo!):sroberts@uniserve.com>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([hw@570.com (Hardware Support Account)],[],
+[0],
+[naddr: 1
+1. email <hw@570.com>:
+personal <Hardware Support Account>
+local-part <hw> domain <570.com>
+])
+
+TESTADDR([list-ietf-wg-apps-drums@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)],[],
+[0],
+[naddr: 1
+1. email <list-ietf-wg-apps-drums@faerber.muc.de>:
+personal <=?ISO-8859-1?Q?Claus_F=E4rber?=>
+local-part <list-ietf-wg-apps-drums> domain <faerber.muc.de>
+])
+
+TESTADDR([<mutt-dev@mutt.org>(mutt #369), guug-bugs-closed@guug.de (#369)],[],
+[0],
+[naddr: 2
+1. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+2. email <guug-bugs-closed@guug.de>:
+personal <#369>
+local-part <guug-bugs-closed> domain <guug.de>
+])
+
+dnl --------------------------------------------------------------------------
+dnl FIXME:
+m4_if([TESTADDR(["'Aernoudt Bottemanne'" <Aernoudt.Bottemanne@Informix.com>],[],
+[0],
+[naddr: 1
+1. email <Aernoudt.Bottemanne@Informix.com>:
+personal <'Aernoudt Bottemanne'>
+local-part <Aernoudt.Bottemanne> domain <Informix.com>
+])
+
+TESTADDR(["'Haag, Ullrich - MBDC'" <Ullrich.Haag@MBDC.com>,],[],
+[0],
+[naddr: 1
+1. email <Ullrich.Haag@MBDC.com>:
+personal <'Haag, Ullrich - MBDC'>
+local-part <Ullrich.Haag> domain <MBDC.com>
+])
+
+TESTADDR(["'Michael C. Ibarra'" <ibarra@hawk.com>, arl@q7.net, Al <arl@q7.net>],
+[],
+[0],
+[naddr: 3
+1. email <ibarra@hawk.com>:
+personal <'Michael C. Ibarra'>
+local-part <ibarra> domain <hawk.com>
+2. email <arl@q7.net>:
+local-part <arl> domain <q7.net>
+3. email <arl@q7.net>:
+personal <Al>
+local-part <arl> domain <q7.net>
+])
+
+TESTADDR(["'Sam Roberts'" <sam@cogent.ca>],[],
+[0],
+[naddr: 1
+1. email <sam@cogent.ca>:
+personal <'Sam Roberts'>
+local-part <sam> domain <cogent.ca>
+])
+
+TESTADDR(["'paul@pitbull-productions.com'" <paul@pitbull-productions.com>,],[],
+[0],
+[naddr: 1
+1. email <paul@pitbull-productions.com>:
+personal <'paul@pitbull-productions.com'>
+local-part <paul> domain <pitbull-productions.com>
+])
+
+TESTADDR(["'sam@cogent.ca'" <sam@cogent.ca>, "'sroberts@uniserve.com'"],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR(["'sroberts\@certicom\.ca'" <sroberts@certicom.ca>],[]
+[0],
+[naddr: 1
+1. email <sroberts@certicom.ca>:
+personal <'sroberts@certicom.ca'>
+local-part <sroberts> domain <certicom.ca>
+])
+
+])
+dnl --------------------------------------------------------------------------
+
+TESTADDR(["=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=" <jcmarcos@datavoice.es>],[],
+[0],
+[naddr: 1
+1. email <jcmarcos@datavoice.es>:
+personal <=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=>
+local-part <jcmarcos> domain <datavoice.es>
+])
+
+TESTADDR(["Christian Edward Gruber" <christian.edward.gruber@gmx.net>,],[],
+[0],
+[naddr: 1
+1. email <christian.edward.gruber@gmx.net>:
+personal <Christian Edward Gruber>
+local-part <christian.edward.gruber> domain <gmx.net>
+])
+
+TESTADDR(["D. J. Bernstein" <"djb- "@cr.yp.to>],[],
+[0],
+[naddr: 1
+1. email <"djb- "@cr.yp.to>:
+personal <D. J. Bernstein>
+local-part <djb- > domain <cr.yp.to>
+])
+
+TESTADDR(["D. J. Bernstein" <djb@cr.yp.to>, drums@cs.utk.edu],[],
+[0],
+[naddr: 2
+1. email <djb@cr.yp.to>:
+personal <D. J. Bernstein>
+local-part <djb> domain <cr.yp.to>
+2. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR(["Dave Sill <de5-drums" <de5-drums@sws5.ctd.ornl.gov>],[],
+[0],
+[naddr: 1
+1. email <de5-drums@sws5.ctd.ornl.gov>:
+personal <Dave Sill <de5-drums>
+local-part <de5-drums> domain <sws5.ctd.ornl.gov>
+])
+
+TESTADDR(["Dave \(work\) Baerg \(E-mail\)" <Dave.Baerg@SUMMedia.com>],[],
+[0],
+[naddr: 1
+1. email <Dave.Baerg@SUMMedia.com>:
+personal <Dave (work) Baerg (E-mail)>
+local-part <Dave.Baerg> domain <SUMMedia.com>
+])
+
+TESTADDR(["Demian" <damient@wave.home.com>],[],
+[0],
+[naddr: 1
+1. email <damient@wave.home.com>:
+personal <Demian>
+local-part <damient> domain <wave.home.com>
+])
+
+TESTADDR(["Detailed Revision/Update of Message Standards" <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <Detailed Revision/Update of Message Standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR(["Fred" <fprog@__nowhere__.users.sourceforge.net>],[],
+[0],
+[naddr: 1
+1. email <fprog@__nowhere__.users.sourceforge.net>:
+personal <Fred>
+local-part <fprog> domain <__nowhere__.users.sourceforge.net>
+])
+
+TESTADDR(["Haag, Ullrich - MBDC" <Ullrich.Haag@MBDC.com>],[],
+[0],
+[naddr: 1
+1. email <Ullrich.Haag@MBDC.com>:
+personal <Haag, Ullrich - MBDC>
+local-part <Ullrich.Haag> domain <MBDC.com>
+])
+
+TESTADDR(["Jacob Palme" <jpalme@dsv.su.se>, <drums@cs.utk.edu>],[],
+[0],
+[naddr: 2
+1. email <jpalme@dsv.su.se>:
+personal <Jacob Palme>
+local-part <jpalme> domain <dsv.su.se>
+2. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(["Jakob 'sparky' Kaivo" <jkaivo@elijah.nodomainname.net>],[],
+[0],
+[naddr: 1
+1. email <jkaivo@elijah.nodomainname.net>:
+personal <Jakob 'sparky' Kaivo>
+local-part <jkaivo> domain <elijah.nodomainname.net>
+])
+])
+
+TESTADDR(["Lee R. Copp" <Lee.R.Copp@MichiganScientific.com>],[],
+[0],
+[naddr: 1
+1. email <Lee.R.Copp@MichiganScientific.com>:
+personal <Lee R. Copp>
+local-part <Lee.R.Copp> domain <MichiganScientific.com>
+])
+
+TESTADDR(["Lionel Johnson" <ljohnson**nospam**@sterling1.com>],[],
+[0],
+[naddr: 1
+1. email <ljohnson**nospam**@sterling1.com>:
+personal <Lionel Johnson>
+local-part <ljohnson**nospam**> domain <sterling1.com>
+])
+
+TESTADDR(["Martin [Keso] Keseg" <Martin.Keseg@slovakia.sun.com>],[],
+[0],
+[[naddr: 1
+1. email <Martin.Keseg@slovakia.sun.com>:
+personal <Martin [Keso] Keseg>
+local-part <Martin.Keseg> domain <slovakia.sun.com>
+]])
+
+TESTADDR(["}{ristoph" <news2@kristoph.net>],[],
+[0],
+[naddr: 1
+1. email <news2@kristoph.net>:
+personal <}{ristoph>
+local-part <news2> domain <kristoph.net>
+])
+
+TESTADDR(["fmartens-2000" <fmartens-2000@planet.nl>],[],
+[0],
+[naddr: 1
+1. email <fmartens-2000@planet.nl>:
+personal <fmartens-2000>
+local-part <fmartens-2000> domain <planet.nl>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(["g'o'tz ohnesorge" <gohnesorge@lh-computertechnik.de>],[],
+[0],
+[naddr: 1
+1. email <gohnesorge@lh-computertechnik.de>:
+personal <g'o'tz ohnesorge>
+local-part <gohnesorge> domain <lh-computertechnik.de>
+])
+
+])
+
+TESTADDR(["gao jie" <jiegi@public.wh.hb.cn>],[],
+[0],
+[naddr: 1
+1. email <jiegi@public.wh.hb.cn>:
+personal <gao jie>
+local-part <jiegi> domain <public.wh.hb.cn>
+])
+
+TESTADDR(["gnupg-devel@gnupg.org" <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>],
+[],
+[0],
+[naddr: 1
+1. email <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>:
+personal <gnupg-devel@gnupg.org>
+local-part <gnupg-devel%gnupg.org> domain <f48.n48.z2.fidonet.org>
+])
+
+TESTADDR(["gpg-devel" <gnupg-devel@gnupg.org>],[],
+[0],
+[naddr: 1
+1. email <gnupg-devel@gnupg.org>:
+personal <gpg-devel>
+local-part <gnupg-devel> domain <gnupg.org>
+])
+
+TESTADDR(["jigang" <jigang@jinglun.com.cn>],[],
+[0],
+[naddr: 1
+1. email <jigang@jinglun.com.cn>:
+personal <jigang>
+local-part <jigang> domain <jinglun.com.cn>
+])
+
+TESTADDR(["misc@openbsd.org" <misc@openbsd.org>],[],
+[0],
+[naddr: 1
+1. email <misc@openbsd.org>:
+personal <misc@openbsd.org>
+local-part <misc> domain <openbsd.org>
+])
+
+TESTADDR(["misc@openbsd.org" <misc@openbsd.org>, brian@Awfulhak.org],[],
+[0],
+[naddr: 2
+1. email <misc@openbsd.org>:
+personal <misc@openbsd.org>
+local-part <misc> domain <openbsd.org>
+2. email <brian@Awfulhak.org>:
+local-part <brian> domain <Awfulhak.org>
+])
+
+TESTADDR(["mutt-dev @ mutt . orgThomas Roessler" <roessler@does-not-exist.org>],[],
+[0],
+[naddr: 1
+1. email <roessler@does-not-exist.org>:
+personal <mutt-dev @ mutt . orgThomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+])
+
+TESTADDR(["zwk@f36.n480.z2.fidonet.org" <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>],[],
+[0],
+[naddr: 1
+1. email <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>:
+personal <zwk@f36.n480.z2.fidonet.org>
+local-part <zwk%f36.n480.z2.fidonet.org> domain <f36.n480.z2.fidonet.org>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR(['Dan Dall'Acqua' <ddallacqua@noetic.ab.ca>, 'Dave Shyong'],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+])
+
+TESTADDR([0xdeadbeef-request@petting-zoo.net],[],
+[0],
+[naddr: 1
+1. email <0xdeadbeef-request@petting-zoo.net>:
+local-part <0xdeadbeef-request> domain <petting-zoo.net>
+])
+
+TESTADDR([102023-00406421@cnxt19932218.conexant.com],[],
+[0],
+[naddr: 1
+1. email <102023-00406421@cnxt19932218.conexant.com>:
+local-part <102023-00406421> domain <cnxt19932218.conexant.com>
+])
+
+TESTADDR([218164.24.43@jobcontrolcenter.com],[],
+[0],
+[naddr: 1
+1. email <218164.24.43@jobcontrolcenter.com>:
+local-part <218164.24.43> domain <jobcontrolcenter.com>
+])
+
+TESTADDR([<0xdeadbeef-request@petting-zoo.net>],[],
+[0],
+[naddr: 1
+1. email <0xdeadbeef-request@petting-zoo.net>:
+local-part <0xdeadbeef-request> domain <petting-zoo.net>
+])
+
+TESTADDR([<>],[],
+[0],
+[naddr: 1
+1. email <>:
+])
+
+TESTADDR([<Christia.Roberts@nrc.ca>],[],
+[0],
+[naddr: 1
+1. email <Christia.Roberts@nrc.ca>:
+local-part <Christia.Roberts> domain <nrc.ca>
+])
+
+TESTADDR([<Nick_Shelness@motorcity2.lotus.com>],[],
+[0],
+[naddr: 1
+1. email <Nick_Shelness@motorcity2.lotus.com>:
+local-part <Nick_Shelness> domain <motorcity2.lotus.com>
+])
+
+TESTADDR([<all: >],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([<fyi-admin@emyr.net>],[],
+[0],
+[naddr: 1
+1. email <fyi-admin@emyr.net>:
+local-part <fyi-admin> domain <emyr.net>
+])
+
+TESTADDR([<gary.stefanov@medtronic.com>, <HdeVisse@husky.ca>,],[],
+[0],
+[naddr: 2
+1. email <gary.stefanov@medtronic.com>:
+local-part <gary.stefanov> domain <medtronic.com>
+2. email <HdeVisse@husky.ca>:
+local-part <HdeVisse> domain <husky.ca>
+])
+
+TESTADDR([<gnu-pop-list@nodomainname.net>],[],
+[0],
+[naddr: 1
+1. email <gnu-pop-list@nodomainname.net>:
+local-part <gnu-pop-list> domain <nodomainname.net>
+])
+
+TESTADDR([<mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>],[],
+[0],
+[naddr: 1
+1. email <mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>:
+local-part <mutt-dev-owner-sroberts=uniserve.com> domain <ns.gbnet.net>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?= <kolla@nvg.ntnu.no>],[],
+[0],
+[naddr: 1
+1. email <kolla@nvg.ntnu.no>:
+personal <=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?=>
+local-part <kolla> domain <nvg.ntnu.no>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>],[],
+[0],
+[naddr: 1
+1. email <paf@cisco.com>:
+personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
+local-part <paf> domain <cisco.com>
+])
+
+TESTADDR([=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>,],[],
+[0],
+[naddr: 1
+1. email <paf@cisco.com>:
+personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
+local-part <paf> domain <cisco.com>
+])
+
+TESTADDR([=?US-ASCII?Q?gary=5Fc?= <gary_c@cunningham-lee.com>],[],
+[0],
+[naddr: 1
+1. email <gary_c@cunningham-lee.com>:
+personal <=?US-ASCII?Q?gary=5Fc?=>
+local-part <gary_c> domain <cunningham-lee.com>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>,],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?= <0@pervalidus.net>],[],
+[0],
+[naddr: 1
+1. email <0@pervalidus.net>:
+personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?=>
+local-part <0> domain <pervalidus.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?J=F8rgen_Thomsen?= <jth@postfix.jth.net>],[],
+[0],
+[naddr: 1
+1. email <jth@postfix.jth.net>:
+personal <=?iso-8859-1?Q?J=F8rgen_Thomsen?=>
+local-part <jth> domain <postfix.jth.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?= <jose@jaimedelamo.eu.org>],[],
+[0],
+[naddr: 1
+1. email <jose@jaimedelamo.eu.org>:
+personal <=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?=>
+local-part <jose> domain <jaimedelamo.eu.org>
+])
+
+TESTADDR([=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@dna.fi>],[],
+[0],
+[naddr: 1
+1. email <Mikko.Hanninen@dna.fi>:
+personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
+local-part <Mikko.Hanninen> domain <dna.fi>
+])
+
+TESTADDR([=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@iki.fi>],[],
+[0],
+[naddr: 1
+1. email <Mikko.Hanninen@iki.fi>:
+personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
+local-part <Mikko.Hanninen> domain <iki.fi>
+])
+
+TESTADDR([=?iso-8859-1?Q?R=E9mi_Guyomarch?= <rguyom@321.net>],[],
+[0],
+[naddr: 1
+1. email <rguyom@321.net>:
+personal <=?iso-8859-1?Q?R=E9mi_Guyomarch?=>
+local-part <rguyom> domain <321.net>
+])
+
+TESTADDR([=?iso-8859-1?Q?Ulf_M=F6ller?= <ulf@fitug.de>],[],
+[0],
+[naddr: 1
+1. email <ulf@fitug.de>:
+personal <=?iso-8859-1?Q?Ulf_M=F6ller?=>
+local-part <ulf> domain <fitug.de>
+])
+
+TESTADDR([ANDREW MARTIN <amartin@ee.ryerson.ca>],[],
+[0],
+[naddr: 1
+1. email <amartin@ee.ryerson.ca>:
+personal <ANDREW MARTIN>
+local-part <amartin> domain <ee.ryerson.ca>
+])
+
+TESTADDR([Abhay Ghaisas <abhay@sobolev.does-not-exist.org>, mutt-dev@mutt.org],[],
+[0],
+[naddr: 2
+1. email <abhay@sobolev.does-not-exist.org>:
+personal <Abhay Ghaisas>
+local-part <abhay> domain <sobolev.does-not-exist.org>
+2. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+])
+
+TESTADDR([Brian Salter-Duke <b_duke@lacebark.ntu.edu.au>],[],
+[0],
+[naddr: 1
+1. email <b_duke@lacebark.ntu.edu.au>:
+personal <Brian Salter-Duke>
+local-part <b_duke> domain <lacebark.ntu.edu.au>
+])
+
+TESTADDR([Catharine Shyong <shyong@t-iii.com>],[],
+[0],
+[naddr: 1
+1. email <shyong@t-iii.com>:
+personal <Catharine Shyong>
+local-part <shyong> domain <t-iii.com>
+])
+
+TESTADDR([DRUMS-Last-Call:;],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([Detailed Revision/Update of Message Standards <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <Detailed Revision/Update of Message Standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([Eric Allman <eric+ietf@Sendmail.ORG>],[],
+[0],
+[naddr: 1
+1. email <eric+ietf@Sendmail.ORG>:
+personal <Eric Allman>
+local-part <eric+ietf> domain <Sendmail.ORG>
+])
+
+TESTADDR([Gary <Gary@e-c-s-uk.com>],[],
+[0],
+[naddr: 1
+1. email <Gary@e-c-s-uk.com>:
+personal <Gary>
+local-part <Gary> domain <e-c-s-uk.com>
+])
+
+TESTADDR([IETF working group on revision of mail standards <drums@cs.utk.edu>],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+personal <IETF working group on revision of mail standards>
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([IETF-Announce:;],[],
+[1],
+[],
+[MU_ERR_EMPTY_ADDRESS
+])
+
+TESTADDR([IETF-Announce:;, drums@cs.utk.edu],[],
+[0],
+[naddr: 1
+1. email <drums@cs.utk.edu>:
+local-part <drums> domain <cs.utk.edu>
+])
+
+TESTADDR([Jean-Baptiste Marchand <Jean-Baptiste.Marchand@epita.fr>],[],
+[0],
+[naddr: 1
+1. email <Jean-Baptiste.Marchand@epita.fr>:
+personal <Jean-Baptiste Marchand>
+local-part <Jean-Baptiste.Marchand> domain <epita.fr>
+])
+
+TESTADDR([Jonathan Rozes <jrozes+969649116.89117462@vinton.com>],[],
+[0],
+[naddr: 1
+1. email <jrozes+969649116.89117462@vinton.com>:
+personal <Jonathan Rozes>
+local-part <jrozes+969649116.89117462> domain <vinton.com>
+])
+
+TESTADDR([Jose "C." Garcia Sogo<jose@jaimedelamo.eu.org>],[],
+[0],
+[naddr: 1
+1. email <jose@jaimedelamo.eu.org>:
+personal <Jose C. Garcia Sogo>
+local-part <jose> domain <jaimedelamo.eu.org>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR([Marco d'Itri <md@Linux.IT>,[],
+[0],
+1. email <md@Linux.IT>:
+personal <Marco d'Itri>
+local-part <md> domain <Linux.IT>
+])
+])
+
+TESTADDR([No_Reply-To@mapquest.com],[],
+[0],
+[naddr: 1
+1. email <No_Reply-To@mapquest.com>:
+local-part <No_Reply-To> domain <mapquest.com>
+])
+
+TESTADDR([OSULLIE@rte.ie, skidswam@hotmail.com, boot],[],
+[0],
+[naddr: 3
+1. email <OSULLIE@rte.ie>:
+local-part <OSULLIE> domain <rte.ie>
+2. email <skidswam@hotmail.com>:
+local-part <skidswam> domain <hotmail.com>
+3. email <boot@localhost>:
+local-part <boot> domain <localhost>
+])
+
+TESTADDR([Paul Hoffman / IMC <phoffman@imc.org>],[],
+[0],
+[naddr: 1
+1. email <phoffman@imc.org>:
+personal <Paul Hoffman / IMC>
+local-part <phoffman> domain <imc.org>
+])
+
+TESTADDR([Sam],[],
+[0],
+[naddr: 1
+1. email <Sam@localhost>:
+local-part <Sam> domain <localhost>
+])
+
+TESTADDR([Sam Roberts <sam@cogent.ca>],[],
+[0],
+[naddr: 1
+1. email <sam@cogent.ca>:
+personal <Sam Roberts>
+local-part <sam> domain <cogent.ca>
+])
+
+TESTADDR([Sam_Roberts/Certicom%Certicom@certicom.com],[],
+[0],
+[naddr: 1
+1. email <Sam_Roberts/Certicom%Certicom@certicom.com>:
+local-part <Sam_Roberts/Certicom%Certicom> domain <certicom.com>
+])
+
+TESTADDR([Thomas Roessler <roessler@does-not-exist.org>, 490@bugs.guug.de],[],
+[0],
+[naddr: 2
+1. email <roessler@does-not-exist.org>:
+personal <Thomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+2. email <490@bugs.guug.de>:
+local-part <490> domain <bugs.guug.de>
+])
+
+TESTADDR([Thomas Roessler <roessler@does-not-exist.org>, g10@gnupg.org],[],
+[0],
+[naddr: 2
+1. email <roessler@does-not-exist.org>:
+personal <Thomas Roessler>
+local-part <roessler> domain <does-not-exist.org>
+2. email <g10@gnupg.org>:
+local-part <g10> domain <gnupg.org>
+])
+
+TESTADDR([ddickey@ip-12-22-50-150.hqglobal.net],[],
+[0],
+[naddr: 1
+1. email <ddickey@ip-12-22-50-150.hqglobal.net>:
+local-part <ddickey> domain <ip-12-22-50-150.hqglobal.net>
+])
+
+TESTADDR([ktb <x.y.f@home.com>],[],
+[0],
+[naddr: 1
+1. email <x.y.f@home.com>:
+personal <ktb>
+local-part <x.y.f> domain <home.com>
+])
+
+dnl FIXME
+m4_if([
+TESTADDR([mcaustin@eudoramail.com, aposner@usaid.gov, Kieran.O'Leary@anpost.ie],[],
+[0],
+[naddr: 3
+1. email <mcaustin@eudoramail.com>:
+local-part <mcaustin> domain <eudoramail.com>
+2. email <aposner@usaid.gov>:
+local-part <aposner> domain <usaid.gov>
+3. email <Kieran.O'Leary@anpost.ie>:
+local-part <Kieran.O'Leary> domain <anpost.ie>
+])
+])
+
+TESTADDR([rfunk@wks.uts.ohio-state.eduofflinemailer-bounce@dikke.penguin.nl],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([root],[],
+[0],
+[naddr: 1
+1. email <root@localhost>:
+local-part <root> domain <localhost>
+])
+
+dnl FIXME srr <sam@localhost>=> error MU_ERR_BAD_822_FORMAT
+
+TESTADDR([whom it may concern: ;;whom.it.may.concern: ;],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+TESTADDR([whom it may concern: mutt-dev@mutt.org, mutt-users@mutt.org;],[],
+[0],
+[naddr: 2
+1. email <mutt-dev@mutt.org>:
+local-part <mutt-dev> domain <mutt.org>
+2. email <mutt-users@mutt.org>:
+local-part <mutt-users> domain <mutt.org>
+])
+
+TESTADDR([Sergey V. Poznyakoff <gray@gnu.org>],[],
+[0],
+[naddr: 1
+1. email <gray@gnu.org>:
+personal <Sergey V. Poznyakoff>
+local-part <gray> domain <gnu.org>
+])
+
+TESTADDR([P. D. Q. Bach <bach@somewhere.org>],[],
+[0],
+[naddr: 1
+1. email <bach@somewhere.org>:
+personal <P. D. Q. Bach>
+local-part <bach> domain <somewhere.org>
+])
+
+TESTADDR(["A bad quote\" <devnull@localhost>],[],
+[1],
+[],
+[MU_ERR_BAD_822_FORMAT
+])
+
+
+
+
+
+
diff --git a/libmailutils/tests/argcv.at b/libmailutils/tests/argcv.at
new file mode 100644
index 0000000..5e40527
--- a/dev/null
+++ b/libmailutils/tests/argcv.at
@@ -0,0 +1,91 @@
+# 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.
+
+dnl ------------------------------------------------------------
+dnl TESTARGS([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTARGS],[
+AT_SETUP([Argcv: $1])
+AT_KEYWORDS([argcv $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+argcv < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+TESTARGS([simple input],[],
+[1 2 3],
+[3: 1 2 3
+])
+
+TESTARGS([quoted space],[],
+[quoted\ space],
+[1: "quoted space"
+])
+
+TESTARGS([tab character],[],
+[a "tab character"],
+[2: a tab\tcharacter
+])
+
+TESTARGS([octal and hex escapes],[],
+[\157\143\164\141\154\40and\x20\x68\x65\x78],
+[1: "octal and hex"
+])
+
+TESTARGS([octal and hex escapes 2],[],
+[\157\143\164\141\154\40 and \x20\x68\x65\x78],
+[3: "octal " and " hex"
+])
+
+TESTARGS([escape representation],[],
+[A\x3-\48\39],
+[1: A\003-\0048\0039
+])
+
+TESTARG([8-bit input],[],
+[верхняя половина таблицы],
+[3: \327\305\322\310\316\321\321 \320\317\314\317\327\311\316\301 \324\301\302\314\311\303\331])
+
+TESTARG([misquoted input],[],
+[messed up'quotations ' in "a single'" "command" lin"e],
+[6: messed "upquotations " in "a single'" command "lin\"e"
+])
+
+TESTARG([unbalanced quote],[],
+['unbalanced "quote],
+[2: 'unbalanced "\"quote"
+])
+
+TESTARG([unbalanced quote 2],[],
+[unbalanced "quote],
+[2: unbalanced "\"quote"
+])
+
+TESTARG([unbalanced quote 3],[],
+["],
+[1: "\""
+])
+
+
+
+
+
+
diff --git a/examples/argcv.c b/libmailutils/tests/argcv.c
index 3253feb..3253feb 100644
--- a/examples/argcv.c
+++ b/libmailutils/tests/argcv.c
diff --git a/libmailutils/tests/atlocal.in b/libmailutils/tests/atlocal.in
new file mode 100644
index 0000000..7e81e43
--- a/dev/null
+++ b/libmailutils/tests/atlocal.in
@@ -0,0 +1,9 @@
+# @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@/frm:$top_srcdir:$srcdir:$PATH
+top_srcdir=@abs_top_srcdir@
+top_builddir=@abs_top_builddir@
+
+ \ No newline at end of file
diff --git a/libmailutils/tests/base64d.at b/libmailutils/tests/base64d.at
new file mode 100644
index 0000000..7483dd6
--- a/dev/null
+++ b/libmailutils/tests/base64d.at
@@ -0,0 +1,39 @@
+# 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([base64 decoding (read)])
+AT_KEYWORDS([base64 base64d base64dr decode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Encode expout
+fltst base64 decode read linelen=0 < $top_srcdir/libmailutils/tests/Decode],
+[0],
+[expout])
+
+AT_CLEANUP
+
+
+AT_SETUP([base64 decoding (write)])
+AT_KEYWORDS([base64 base64d base64dw decode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Encode expout
+fltst base64 decode write linelen=0 < $top_srcdir/libmailutils/tests/Decode],
+[0],
+[expout])
+
+AT_CLEANUP
diff --git a/libmailutils/tests/base64e.at b/libmailutils/tests/base64e.at
new file mode 100644
index 0000000..452ed8f
--- a/dev/null
+++ b/libmailutils/tests/base64e.at
@@ -0,0 +1,39 @@
+# 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([base64 encoding (read)])
+AT_KEYWORDS([base64 base64e base64er encode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Decode expout
+fltst base64 encode read nl < $top_srcdir/libmailutils/tests/Encode],
+[0],
+[expout])
+
+AT_CLEANUP
+
+
+AT_SETUP([base64 encoding (write)])
+AT_KEYWORDS([base64 base64e base64ew encode])
+
+AT_CHECK([
+cp $top_srcdir/libmailutils/tests/Decode expout
+fltst base64 encode write nl < $top_srcdir/libmailutils/tests/Encode],
+[0],
+[expout])
+
+AT_CLEANUP \ No newline at end of file
diff --git a/libmailutils/tests/decode2047.at b/libmailutils/tests/decode2047.at
new file mode 100644
index 0000000..4f52d8d
--- a/dev/null
+++ b/libmailutils/tests/decode2047.at
@@ -0,0 +1,60 @@
+# 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.
+
+dnl ------------------------------------------------------------
+dnl TESTDEC2047([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTDEC2047],[
+AT_SETUP([Decode 2047: m4_if([$1],[],[$3],[$1])])
+AT_KEYWORDS([decode2047 decode $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+decode2047 -p < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+TESTDEC2047([],[decode01],
+[=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu>],
+[Keith Moore <moore@cs.utk.edu>
+])
+
+TESTDEC2047([],[decode02],
+[=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk>],
+[Keld J\370rn Simonsen <keld@dkuug.dk>
+])
+
+TESTDEC2047([],[decode03],
+[=?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be>],
+[Andr\351 Pirard <PIRARD@vm1.ulg.ac.be>
+])
+
+TESTDEC2047([],[decode04],
+[=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= ... =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=],
+[If you can read this yo ... u understand the example.
+])
+
+# Malformed input string: lacks trailing =. MU 0.6.90 hanged on it.
+TESTDEC2047([malformed input],[decode05],
+[=?koi8-r?B?RndkOiDSxcfJ09TSwcPJ0SDEz83FzsE?=],
+[Fwd: \322\305\307\311\323\324\322\301\303\311\321 \304\317\315\305
+])
+
+
+
diff --git a/examples/decode2047.c b/libmailutils/tests/decode2047.c
index bdb1ca2..f7c36a9 100644
--- a/examples/decode2047.c
+++ b/libmailutils/tests/decode2047.c
@@ -71,8 +71,9 @@ main (int argc, char *argv[])
if (len > 0 && buf[len - 1] == '\n')
buf[len - 1] = 0;
rc = mu_rfc2047_decode (charset, buf, &p);
- printf ("%s=> %s\n", buf, mu_strerror (rc));
- if (p)
+ if (rc)
+ fprintf (stderr, "%s", mu_strerror (rc));
+ else if (p)
print (p, printable);
putchar ('\n');
free (p);
diff --git a/libmailutils/tests/encode2047.at b/libmailutils/tests/encode2047.at
new file mode 100644
index 0000000..3b914e6
--- a/dev/null
+++ b/libmailutils/tests/encode2047.at
@@ -0,0 +1,32 @@
+# 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([encode2047])
+AT_KEYWORDS([encode])
+
+AT_CHECK([
+AT_DATA(input,[dnl
+\\345\326\305\304\316\305\327\316\331\312\040\317\324\336\305\324
+])
+
+encode2047 -c koi8-r -eB -o < input],
+[0],
+[=?koi8-r?B?5dbFxM7F187ZyiDP1N7F1A==?=
+])
+
+AT_CLEANUP
+
diff --git a/examples/encode2047.c b/libmailutils/tests/encode2047.c
index b5b0dde..dbf3620 100644
--- a/examples/encode2047.c
+++ b/libmailutils/tests/encode2047.c
@@ -197,8 +197,9 @@ main (int argc, char *argv[])
decode_octal (cmd);
rc = mu_rfc2047_encode (charset, encoding, cmd, &p);
- printf ("%s=> %s\n", buf, mu_strerror (rc));
- if (p)
+ if (rc)
+ fprintf (stderr, "%s", mu_strerror (rc));
+ else if (p)
printf ("%s\n", p);
free (p);
}
diff --git a/libmailutils/tests/fltst.c b/libmailutils/tests/fltst.c
new file mode 100644
index 0000000..6e36ede
--- a/dev/null
+++ b/libmailutils/tests/fltst.c
@@ -0,0 +1,195 @@
+/* GNU Mailutils -- a suite of utilities for electronic mail
+ Copyright (C) 1999, 2000, 2001, 2002, 2005, 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.
+
+ GNU Mailutils 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, write to the Free Software
+ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ MA 02110-1301 USA */
+
+#ifdef HAVE_CONFIG_H
+# include <config.h>
+#endif
+#include <unistd.h>
+#include <stdio.h>
+#include <assert.h>
+#include <ctype.h>
+#include <string.h>
+#include <mailutils/mailutils.h>
+
+#define ISPRINT(c) ((c)>=' '&&(c)<127)
+
+int verbose = 0;
+int printable = 0;
+
+static void
+c_copy (mu_stream_t out, mu_stream_t in)
+{
+ if (printable)
+ {
+ char c;
+ size_t size;
+
+ while (mu_stream_read (in, &c, 1, &size) == 0 && size > 0)
+ {
+ int rc;
+
+ if (printable && !ISPRINT (c))
+ {
+ char outbuf[24];
+ sprintf (outbuf, "\\%03o", (unsigned char) c);
+ rc = mu_stream_write (out, outbuf, strlen (outbuf), NULL);
+ }
+ else
+ rc = mu_stream_write (out, &c, 1, NULL);
+ }
+ }
+ else
+ MU_ASSERT (mu_stream_copy (out, in, 0, NULL));
+
+ if (verbose)
+ fprintf (stderr, "\ntotal: %lu/%lu bytes\n",
+ (unsigned long) mu_stream_bytes_in (in),
+ (unsigned long) mu_stream_bytes_out (out));
+
+}
+
+/* Set the maximum line length for the filter NAME to LENGTH.
+ FIXME: This is a kludge. Perhaps API should provide a function
+ for that. */
+static void
+reset_line_length (const char *name, size_t length)
+{
+ mu_list_t list;
+ int status;
+ mu_filter_record_t frec;
+
+ mu_filter_get_list (&list);
+ status = mu_list_locate (list, (void*)name, (void**)&frec);
+ if (status == 0)
+ frec->max_line_length = length;
+ /* don't bail out, leave that to mu_filter_create */
+}
+
+void
+usage (const char *diag)
+{
+ FILE *fp;
+
+ if (diag)
+ {
+ fp = stderr;
+ fprintf (fp, "%s\n", diag);
+ }
+ else
+ fp = stdout;
+
+ fprintf (fp, "%s",
+ "usage: fltst FILTER {encode|decode} {read|write} [shift=N] [linelen=N] [verbose] [printable] [nl]\n");
+ exit (diag ? 1 : 0);
+}
+
+int
+main (int argc, char * argv [])
+{
+ mu_stream_t in, out, flt;
+ int i;
+ int mode = MU_FILTER_ENCODE;
+ int flags = MU_STREAM_READ;
+ char *fltname;
+ mu_off_t shift = 0;
+ size_t line_length;
+ int line_length_option = 0;
+ int newline_option = 0;
+
+ if (argc == 1)
+ usage (NULL);
+ if (argc < 3)
+ usage ("not enough arguments");
+
+ fltname = argv[1];
+
+ if (strcmp (argv[2], "encode") == 0)
+ mode = MU_FILTER_ENCODE;
+ else if (strcmp (argv[2], "decode") == 0)
+ mode = MU_FILTER_DECODE;
+ else
+ usage ("2nd arg is wrong");
+
+ if (strcmp (argv[3], "read") == 0)
+ flags = MU_STREAM_READ;
+ else if (strcmp (argv[3], "write") == 0)
+ flags = MU_STREAM_WRITE;
+ else
+ usage ("3rd arg is wrong");
+
+ for (i = 4; i < argc; i++)
+ {
+ if (strncmp (argv[i], "shift=", 6) == 0)
+ shift = strtoul (argv[i] + 6, NULL, 0);
+ else if (strncmp (argv[i], "linelen=", 8) == 0)
+ {
+ line_length = strtoul (argv[i] + 8, NULL, 10);
+ line_length_option = 1;
+ }
+ else if (strcmp (argv[i], "verbose") == 0)
+ verbose++;
+ else if (strcmp (argv[i], "printable") == 0)
+ printable++;
+ else if (strcmp (argv[i], "nl") == 0)
+ newline_option++;
+ else
+ usage ("wrong option");
+ }
+
+ MU_ASSERT (mu_stdio_stream_create (&in, MU_STDIN_FD, 0));
+ MU_ASSERT (mu_stream_open (in));
+
+ MU_ASSERT (mu_stdio_stream_create (&out, MU_STDOUT_FD, 0));
+ MU_ASSERT (mu_stream_open (out));
+
+ if (line_length_option)
+ reset_line_length (fltname, line_length);
+
+ if (flags == MU_STREAM_READ)
+ {
+ MU_ASSERT (mu_filter_create (&flt, in, fltname, mode,
+ MU_STREAM_READ|MU_STREAM_SEEK|
+ MU_STREAM_AUTOCLOSE));
+ if (shift)
+ MU_ASSERT (mu_stream_seek (flt, shift, MU_SEEK_SET, NULL));
+ c_copy (out, flt);
+ }
+ else
+ {
+ MU_ASSERT (mu_filter_create (&flt, out, fltname, mode,
+ MU_STREAM_WRITE));
+ if (shift)
+ MU_ASSERT (mu_stream_seek (in, shift, MU_SEEK_SET, NULL));
+ c_copy (flt, in);
+
+ mu_stream_close (in);
+ mu_stream_destroy (&in);
+ }
+
+ mu_stream_close (flt);
+ mu_stream_destroy (&flt);
+
+ if (newline_option)
+ mu_stream_write (out, "\n", 1, NULL);
+
+ mu_stream_close (out);
+ mu_stream_destroy (&out);
+
+ return 0;
+}
diff --git a/libmailutils/tests/mailcap.at b/libmailutils/tests/mailcap.at
new file mode 100644
index 0000000..fa9a767
--- a/dev/null
+++ b/libmailutils/tests/mailcap.at
@@ -0,0 +1,279 @@
+# 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.
+
+dnl ------------------------------------------------------------
+dnl MAILCAP([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([MAILCAP],[
+AT_SETUP([Mailcap: [$1]])
+AT_KEYWORDS([mailcap $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+mailcap input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+
+MAILCAP([1],[mailcap01],
+[text/plain; less '%s'; needsterminal],
+[[entry[1]
+ typefield: text/plain
+ view-command: less '%s'
+ fields[1]: needsterminal
+
+]])
+
+MAILCAP([2],[mailcap02],
+[text/html; gnome-help-browser '%s'; nametemplate=%s.html; test=test -n "$DISPLAY"],
+[[entry[1]
+ typefield: text/html
+ view-command: gnome-help-browser '%s'
+ fields[1]: nametemplate=%s.html
+ fields[2]: test=test -n "$DISPLAY"
+
+]])
+
+MAILCAP([3],[mailcap03],
+[application/x-troff-man; /usr/bin/nroff -mandoc -Tlatin1; \
+copiousoutput; print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
+],
+[[entry[1]
+ typefield: application/x-troff-man
+ view-command: /usr/bin/nroff -mandoc -Tlatin1
+ fields[1]: copiousoutput
+ fields[2]: print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
+
+]])
+
+MAILCAP([4],[mailcap04],
+[text/plain; shownonascii iso-8859-1 '%s'; description="Plain ASCII Text"; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+ typefield: text/plain
+ view-command: shownonascii iso-8859-1 '%s'
+ fields[1]: description="Plain ASCII Text"
+ fields[2]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([5],[mailcap05],
+[text/richtext; shownonascii iso-8859-1 -e richtext -p '%s'; \
+description="Richtext"; copiousoutput; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+ typefield: text/richtext
+ view-command: shownonascii iso-8859-1 -e richtext -p '%s'
+ fields[1]: description="Richtext"
+ fields[2]: copiousoutput
+ fields[3]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([6],[mailcap06],
+[text/enriched; shownonascii iso-8859-1 -e richtext -e -p '%s'; \
+description="Enriched Text"; \
+copiousoutput; \
+test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""],
+[[entry[1]
+ typefield: text/enriched
+ view-command: shownonascii iso-8859-1 -e richtext -e -p '%s'
+ fields[1]: description="Enriched Text"
+ fields[2]: copiousoutput
+ fields[3]: test=test "$(echo %{charset} | tr "A-Z" "a-z")" = iso-8859-1 -a "$DISPLAY" != ""
+
+]])
+
+MAILCAP([7],[mailcap07],
+[message/partial; showpartial '%s' %{id} %{number} %{total}; description="An incomplete message"],
+[[entry[1]
+ typefield: message/partial
+ view-command: showpartial '%s' %{id} %{number} %{total}
+ fields[1]: description="An incomplete message"
+
+]])
+
+MAILCAP([8],[mailcap08],
+[message/external-body; showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}; needsterminal; description="A reference to data stored in an external location"; composetyped="extcompose '%s"'],
+[[entry[1]
+ typefield: message/external-body
+ view-command: showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}
+ fields[1]: needsterminal
+ fields[2]: description="A reference to data stored in an external location"
+ fields[3]: composetyped="extcompose '%s"'
+
+]])
+
+MAILCAP([9],[mailcap09],
+[application/x-dvi; /usr/bin/xdvi '%s'; test=test -n "$DISPLAY"; description=TeX DVI file; nametemplate=%s.dvi],
+[[entry[1]
+ typefield: application/x-dvi
+ view-command: /usr/bin/xdvi '%s'
+ fields[1]: test=test -n "$DISPLAY"
+ fields[2]: description=TeX DVI file
+ fields[3]: nametemplate=%s.dvi
+
+]])
+
+MAILCAP([10],[mailcap10],
+[text/plain; more '%s'; needsterminal],
+[[entry[1]
+ typefield: text/plain
+ view-command: more '%s'
+ fields[1]: needsterminal
+
+]])
+
+MAILCAP([11],[mailcap11],
+[text/html; /usr/bin/links '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/links '%s'
+ fields[1]: needsterminal
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([12],[mailcap12],
+[text/richtext; richtext '%s'; description="Richtext"; copiousoutput],
+[[entry[1]
+ typefield: text/richtext
+ view-command: richtext '%s'
+ fields[1]: description="Richtext"
+ fields[2]: copiousoutput
+
+]])
+
+MAILCAP([13],[mailcap13],
+[text/enriched; richtext -e '%s'; description="Enriched Text"; copiousoutput],
+[[entry[1]
+ typefield: text/enriched
+ view-command: richtext -e '%s'
+ fields[1]: description="Enriched Text"
+ fields[2]: copiousoutput
+
+]])
+
+MAILCAP([14],[mailcap14],
+[text/html; /usr/bin/w3m -T text/html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/w3m -T text/html '%s'
+ fields[1]: needsterminal
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([15],[mailcap15],
+[text/html; /usr/bin/links -dump '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/links -dump '%s'
+ fields[1]: copiousoutput
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([16],[mailcap16],
+[text/html; /usr/bin/lynx -force_html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/lynx -force_html '%s'
+ fields[1]: needsterminal
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([17],[mailcap17],
+[text/html; /usr/bin/w3m -dump -T text/html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/w3m -dump -T text/html '%s'
+ fields[1]: copiousoutput
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([18],[mailcap18],
+[text/html; /usr/bin/html2text '%s'; copiousoutput; description=HTML Text],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/html2text '%s'
+ fields[1]: copiousoutput
+ fields[2]: description=HTML Text
+
+]])
+
+MAILCAP([19],[mailcap19],
+[text/html; /usr/bin/lynx -dump -force_html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html],
+[[entry[1]
+ typefield: text/html
+ view-command: /usr/bin/lynx -dump -force_html '%s'
+ fields[1]: copiousoutput
+ fields[2]: description=HTML Text
+ fields[3]: nametemplate=%s.html
+
+]])
+
+MAILCAP([20],[mailcap20],
+[text/*; less '%s'; needsterminal],
+[[entry[1]
+ typefield: text/*
+ view-command: less '%s'
+ fields[1]: needsterminal
+
+]])
+
+MAILCAP([21],[mailcap21],
+[text/*; more '%s'; needsterminal],
+[[entry[1]
+ typefield: text/*
+ view-command: more '%s'
+ fields[1]: needsterminal
+
+]])
+
+MAILCAP([22],[mailcap22],
+[application/x-debian-package; /usr/lib/mime/debian-view '%s'; \
+needsterminal; description=Debian GNU/Linux Package; \
+nametemplate=%s.deb],
+[[entry[1]
+ typefield: application/x-debian-package
+ view-command: /usr/lib/mime/debian-view '%s'
+ fields[1]: needsterminal
+ fields[2]: description=Debian GNU/Linux Package
+ fields[3]: nametemplate=%s.deb
+
+]])
+
+MAILCAP([23],[mailcap23],
+[audio/basic; /usr/lib/mime/playaudio '%s'; description=Basic uLaw Audio; \
+nametemplate=%s.au],
+[[entry[1]
+ typefield: audio/basic
+ view-command: /usr/lib/mime/playaudio '%s'
+ fields[1]: description=Basic uLaw Audio
+ fields[2]: nametemplate=%s.au
+
+]])
diff --git a/examples/mailcap.c b/libmailutils/tests/mailcap.c
index cacb752..cacb752 100644
--- a/examples/mailcap.c
+++ b/libmailutils/tests/mailcap.c
diff --git a/libmailutils/testsuite/Mime b/libmailutils/tests/mime.at
index 147c16e..abed841 100644
--- a/libmailutils/testsuite/Mime
+++ b/libmailutils/tests/mime.at
@@ -1,23 +1,28 @@
-# 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.
+# 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.
#
-# NOTE: Apart from this comment, the contents of this file is taken verbatim.
-# Please be sure you don't add any extra newlines.
-Message: 1
+# 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([mime])
+
+# FIXME: Mimetest should probably be fixed to avoid the use of `tr'
+# and `sed' here.
+AT_CHECK([mimetest -i 0 -p $top_srcdir/testsuite/spool/mbox1 | dnl
+ tr '\t' ' ' | sed 's/ *$//'],
+[0],
+[Message: 1
From: Foo Bar <foobar@nonexistent.net>
Subject: Jabberwocky
Number of parts in message - 1
@@ -100,7 +105,7 @@ With gently smiling jaws!
End
Type of part 2 = application/octet-stream
Message part size - 645/11: 183/5, 462/6
-Attachment - saving [msg.21]
+Attachment - saving [[msg.21]]
Begin
`You are old, Father William,' the young man said,
`And your hair has become very white;
@@ -141,7 +146,7 @@ Encapsulated message :
Begin
Type of part 1 = application/octet-stream
Message part size - 663/12: 184/5, 479/7
-Attachment - saving [msg.22]
+Attachment - saving [[msg.22]]
Begin
`You are old,' said the youth, `as I mentioned before,
And have grown most uncommonly fat;
@@ -160,7 +165,7 @@ Encapsulated message :
Begin
Type of part 1 = application/octet-stream
Message part size - 668/12: 185/5, 483/7
-Attachment - saving [msg.23]
+Attachment - saving [[msg.23]]
Begin
`You are old,' said the youth, `and your jaws are too weak
For anything tougher than suet;
@@ -175,7 +180,7 @@ Has lasted the rest of my life.'
End
Type of part 2 = application/octet-stream
Message part size - 679/12: 184/5, 495/7
-Attachment - saving [msg.24]
+Attachment - saving [[msg.24]]
Begin
`You are old,' said the youth, `one would hardly suppose
That your eye was as steady as ever;
@@ -210,3 +215,6 @@ Begin
End
+])
+
+AT_CLEANUP \ No newline at end of file
diff --git a/examples/mimetest.c b/libmailutils/tests/mimetest.c
index e440b37..e440b37 100644
--- a/examples/mimetest.c
+++ b/libmailutils/tests/mimetest.c
diff --git a/libmailutils/tests/testsuite.at b/libmailutils/tests/testsuite.at
new file mode 100644
index 0000000..9ac73d9
--- a/dev/null
+++ b/libmailutils/tests/testsuite.at
@@ -0,0 +1,30 @@
+# 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_include([testsuite.inc])
+
+AT_INIT
+
+m4_include([address.at])
+m4_include([argcv.at])
+m4_include([mime.at])
+m4_include([url.at])
+m4_include([mailcap.at])
+m4_include([base64e.at])
+m4_include([base64d.at])
+m4_include([decode2047.at])
+m4_include([encode2047.at])
diff --git a/examples/url-parse.c b/libmailutils/tests/url-parse.c
index 82541b5..3eb3d1c 100644
--- a/examples/url-parse.c
+++ b/libmailutils/tests/url-parse.c
@@ -39,7 +39,7 @@
mu_error ("cannot get %s: %s", #field, mu_strerror (status)); \
exit (1); \
} \
- printf ("\t" #field " <%s>\n", buf)
+ printf (#field " <%s>\n", buf)
static void
print_fvpairs (mu_url_t url)
@@ -55,7 +55,7 @@ print_fvpairs (mu_url_t url)
if (fvc == 0)
return;
for (i = 0; i < fvc; i++)
- printf ("\tparam[%lu] <%s>\n", (unsigned long) i, fvp[i]);
+ printf ("param[%lu] <%s>\n", (unsigned long) i, fvp[i]);
}
static void
@@ -72,7 +72,7 @@ print_query (mu_url_t url)
if (qargc == 0)
return;
for (i = 0; i < qargc; i++)
- printf ("\tquery[%lu] <%s>\n", (unsigned long) i, qargv[i]);
+ printf ("query[%lu] <%s>\n", (unsigned long) i, qargv[i]);
}
int
@@ -99,18 +99,16 @@ main ()
}
if ((rc = mu_url_parse (u)) != 0)
{
- printf ("%s => FAILED: [%d] %s\n",
- str, rc, mu_strerror (rc));
+ fprintf (stderr, "%s\n", mu_errname (rc));
continue;
}
- printf ("%s => SUCCESS\n", str);
GET_AND_PRINT (scheme, u, buf, rc);
GET_AND_PRINT (user, u, buf, rc);
rc = mu_url_get_secret (u, &secret);
if (rc == MU_ERR_NOENT)
- printf ("\tpasswd <>\n");
+ printf ("passwd <>\n");
else if (rc)
{
mu_error ("cannot get %s: %s", "passwd", mu_strerror (rc));
@@ -118,7 +116,7 @@ main ()
}
else
{
- printf ("\tpasswd <%s>\n", mu_secret_password (secret));
+ printf ("passwd <%s>\n", mu_secret_password (secret));
mu_secret_password_unref (secret);
}
@@ -131,7 +129,7 @@ main ()
mu_error ("cannot get %s: %s", "port", mu_strerror (rc));
exit (1);
}
- printf ("\tport %ld\n", port);
+ printf ("port %ld\n", port);
GET_AND_PRINT (path, u, buf, rc);
print_fvpairs (u);
diff --git a/libmailutils/tests/url.at b/libmailutils/tests/url.at
new file mode 100644
index 0000000..63a3c1c
--- a/dev/null
+++ b/libmailutils/tests/url.at
@@ -0,0 +1,776 @@
+# 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.
+
+dnl ------------------------------------------------------------
+dnl TESTURL([NAME], [KW = `'], [INPUT], [STDOUT = `'],
+dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
+dnl
+m4_define([TESTURL],[
+AT_SETUP([URL: m4_if([$1],[],[$3],[$1])])
+AT_KEYWORDS([url $2])
+AT_CHECK([
+AT_DATA([input],[$3
+])
+url-parse < input],[0],m4_shift(m4_shift(m4_shift($@))))
+AT_CLEANUP
+])
+
+dnl ------------------------------------------------------------
+
+TESTURL([],[],
+[scheme:],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[scheme:/absolute/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </absolute/path>
+])
+
+TESTURL([],[],
+[scheme:relative/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <relative/path>
+])
+
+TESTURL([],[],
+[scheme:///absolute/path],
+[scheme <scheme>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </absolute/path>
+])
+
+TESTURL([],[],
+[scheme://%75%73%65%72:%70%61%73%73@%68%6f%73%74],
+[scheme <scheme>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[ftp://user:pass@host//a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@host//a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@host//a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@//a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@//a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:@host//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <host>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@//a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://:@//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://://a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://@//a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp:/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@host/a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+
+TESTURL([],[],
+[ftp://:pass@host/a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@host/a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:pass@/a/path],
+[scheme <ftp>
+user <user>
+passwd <pass>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://user:@/a/path],
+[scheme <ftp>
+user <user>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:@host/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <host>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:pass@/a/path],
+[scheme <ftp>
+user <>
+passwd <pass>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:@/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://:/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp://@/a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path <a/path>
+])
+
+TESTURL([],[],
+[ftp:///a/path],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </a/path>
+])
+
+TESTURL([],[],
+[pop://pop.example.net],
+[scheme <pop>
+user <>
+passwd <>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user:passwd@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <passwd>
+auth <>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://user;auth=*@pop.example.net],
+[scheme <pop>
+user <user>
+passwd <>
+auth <*>
+host <pop.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[pop://pop.example.net:111],
+[scheme <pop>
+user <>
+passwd <>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user:passwd@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <passwd>
+auth <>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[pop://user;auth=*@pop.example.net:111],
+[scheme <pop>
+user <user>
+passwd <>
+auth <*>
+host <pop.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <>
+])
+
+TESTURL([],[],
+[imap://imap.example.net/mbox],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111/mbox],
+[scheme <imap>
+user <>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111/mbox],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <mbox>
+])
+
+TESTURL([],[],
+[imap://imap.example.net/mbox/user@host],
+[scheme <imap>
+user <imap.example.net/mbox/user>
+passwd <>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <imap.example.net>
+passwd <111/mbox/user>
+auth <>
+host <host>
+port 0
+path <>
+])
+
+TESTURL([],[],
+[imap://user@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user:passwd@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <passwd>
+auth <>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[imap://user;auth=*@imap.example.net:111/mbox/user@host],
+[scheme <imap>
+user <user>
+passwd <>
+auth <*>
+host <imap.example.net>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org/mbox/user%40host],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 0
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org:111/mbox/user%40host],
+[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 111
+path <mbox/user@host>
+])
+
+TESTURL([],[],
+[ftp://ftp.example.org:111/mbox/user%40host;type=pass],
+[[scheme <ftp>
+user <>
+passwd <>
+auth <>
+host <ftp.example.org>
+port 111
+path <mbox/user@host>
+param[0] <type=pass>
+]])
+
+TESTURL([],[],
+[mbox:/var/spool/mail;type=index;param=2;user=gray],
+[[scheme <mbox>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </var/spool/mail>
+param[0] <type=index>
+param[1] <param=2>
+param[2] <user=gray>
+]])
+
+TESTURL([],[],
+[mbox:///var/spool/mail;type=index;param=2;user=gray],
+[[scheme <mbox>
+user <>
+passwd <>
+auth <>
+host <>
+port 0
+path </var/spool/mail>
+param[0] <type=index>
+param[1] <param=2>
+param[2] <user=gray>
+]])
+
+TESTURL([],[],
+[http://gnu.org.ua/home/gray?prog&arg1&arg2],
+[[scheme <http>
+user <>
+passwd <>
+auth <>
+host <gnu.org.ua>
+port 0
+path <home/gray>
+query[0] <prog>
+query[1] <arg1>
+query[2] <arg2>
+]])
+
+TESTURL([],[],
+[http://gnu.org.ua/home/gray;foo=bar;baz=qux?prog&arg%201&arg%202],
+[[scheme <http>
+user <>
+passwd <>
+auth <>
+host <gnu.org.ua>
+port 0
+path <home/gray>
+param[0] <foo=bar>
+param[1] <baz=qux>
+query[0] <prog>
+query[1] <arg 1>
+query[2] <arg 2>
+]])
+
+
diff --git a/libmailutils/testsuite/.gitignore b/libmailutils/testsuite/.gitignore
deleted file mode 100644
index 989f590..0000000
--- a/libmailutils/testsuite/.gitignore
+++ b/dev/null
@@ -1,7 +0,0 @@
-Makefile
-Makefile.in
-*.log
-*.sum
-site.exp
-remote.exp
-data
diff --git a/libmailutils/testsuite/Addrs b/libmailutils/testsuite/Addrs
deleted file mode 100644
index f301e65..0000000
--- a/libmailutils/testsuite/Addrs
+++ b/dev/null
@@ -1,644 +0,0 @@
-# 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; abc <sascha@silbe.org>=> error MU_ERR_BAD_822_FORMAT
-
-Sam <@[matrix (smtp)], @[nexus: \[node 12\]]:sroberts@[10].[1]> ;=> error MU_ERR_BAD_822_FORMAT
-
-a@b,z@y=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-,a@b,z@y=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a@b,z@y,=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-,a@b,z@y,=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a@b,,z@y=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a@b,,,z@y=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-,,,a@b,,,=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-,a@b=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-a@b,=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-,=> error MU_ERR_EMPTY_ADDRESS
-
-,,=> error MU_ERR_EMPTY_ADDRESS
-
-,,,=> error MU_ERR_EMPTY_ADDRESS
-
-a group: a@b,z@y ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: ,a@b,z@y ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: a@b,z@y, ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: ,a@b,z@y, ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: a@b,,z@y ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: a@b,,,z@y ;=> pcount 2
-1 email <a@b>
- local-part <a> domain <b>
-2 email <z@y>
- local-part <z> domain <y>
-
-a group: ,,,a@b,,, ;=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-a group: ,a@b ;=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-a group: a@b, ;=> pcount 1
-1 email <a@b>
- local-part <a> domain <b>
-
-a group: , ;=> error MU_ERR_EMPTY_ADDRESS
-
-a group: ,, ;=> error MU_ERR_EMPTY_ADDRESS
-
-a group: ,,, ;=> error MU_ERR_EMPTY_ADDRESS
-
-Sam <@[matrix (smtp)], @[nexus: \[node 12\]]:sroberts@[10].[1]> ;=> error MU_ERR_BAD_822_FORMAT
-
-Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];=> pcount 2
-1 email <sam@sam>
- personal <Sam>
- local-part <sam> domain <sam>
- route <@[matrix (smtp)]>
-2 email <sroberts@[10].[1]>
- local-part <sroberts> domain <[10].[1]>
-
-lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];=> pcount 3
-1 email <lo@hi>
- local-part <lo> domain <hi>
-2 email <sam@sam>
- personal <Sam>
- local-part <sam> domain <sam>
- route <@[matrix (smtp)]>
-3 email <sroberts@[10].[1]>
- local-part <sroberts> domain <[10].[1]>
-
-Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo=> pcount 3
-1 email <sam@sam>
- personal <Sam>
- local-part <sam> domain <sam>
- route <@[matrix (smtp)]>
-2 email <sroberts@[10].[1]>
- local-part <sroberts> domain <[10].[1]>
-3 email <hi@lo>
- local-part <hi> domain <lo>
-
-lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo=> pcount 4
-1 email <lo@hi>
- local-part <lo> domain <hi>
-2 email <sam@sam>
- personal <Sam>
- local-part <sam> domain <sam>
- route <@[matrix (smtp)]>
-3 email <sroberts@[10].[1]>
- local-part <sroberts> domain <[10].[1]>
-4 email <hi@lo>
- local-part <hi> domain <lo>
-
-Sam <@mail2.uniserve.com:sroberts@uniserve.com>=> pcount 1
-1 email <sroberts@uniserve.com>
- personal <Sam>
- local-part <sroberts> domain <uniserve.com>
- route <@mail2.uniserve.com>
-
-< (hey) @ (hey, )smtp1.sympatico.ca, mail2.uniserve.com (hoo!):sroberts@uniserve.com>=> error MU_ERR_BAD_822_FORMAT
-
-hw@570.com (Hardware Support Account)=> pcount 1
-1 email <hw@570.com>
- personal <Hardware Support Account>
- local-part <hw> domain <570.com>
-
-list-ietf-wg-apps-drums@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)=> pcount 1
-1 email <list-ietf-wg-apps-drums@faerber.muc.de>
- personal <=?ISO-8859-1?Q?Claus_F=E4rber?=>
- local-part <list-ietf-wg-apps-drums> domain <faerber.muc.de>
-
-<mutt-dev@mutt.org>(mutt #369), guug-bugs-closed@guug.de (#369)=> pcount 2
-1 email <mutt-dev@mutt.org>
- local-part <mutt-dev> domain <mutt.org>
-2 email <guug-bugs-closed@guug.de>
- personal <#369>
- local-part <guug-bugs-closed> domain <guug.de>
-
-"'Aernoudt Bottemanne'" <Aernoudt.Bottemanne@Informix.com>=> pcount 1
-1 email <Aernoudt.Bottemanne@Informix.com>
- personal <'Aernoudt Bottemanne'>
- local-part <Aernoudt.Bottemanne> domain <Informix.com>
-
-"'Haag, Ullrich - MBDC'" <Ullrich.Haag@MBDC.com>,=> pcount 1
-1 email <Ullrich.Haag@MBDC.com>
- personal <'Haag, Ullrich - MBDC'>
- local-part <Ullrich.Haag> domain <MBDC.com>
-
-"'Michael C. Ibarra'" <ibarra@hawk.com>, arl@q7.net, Al <arl@q7.net>=> pcount 3
-1 email <ibarra@hawk.com>
- personal <'Michael C. Ibarra'>
- local-part <ibarra> domain <hawk.com>
-2 email <arl@q7.net>
- local-part <arl> domain <q7.net>
-3 email <arl@q7.net>
- personal <Al>
- local-part <arl> domain <q7.net>
-
-"'Sam Roberts'" <sam@cogent.ca>=> pcount 1
-1 email <sam@cogent.ca>
- personal <'Sam Roberts'>
- local-part <sam> domain <cogent.ca>
-
-"'paul@pitbull-productions.com'" <paul@pitbull-productions.com>,=> pcount 1
-1 email <paul@pitbull-productions.com>
- personal <'paul@pitbull-productions.com'>
- local-part <paul> domain <pitbull-productions.com>
-
-"'sam@cogent.ca'" <sam@cogent.ca>, "'sroberts@uniserve.com'"=> error MU_ERR_BAD_822_FORMAT
-
-"'sroberts\@certicom\.ca'" <sroberts@certicom.ca>=> pcount 1
-1 email <sroberts@certicom.ca>
- personal <'sroberts@certicom.ca'>
- local-part <sroberts> domain <certicom.ca>
-
-"=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=" <jcmarcos@datavoice.es>=> pcount 1
-1 email <jcmarcos@datavoice.es>
- personal <=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=>
- local-part <jcmarcos> domain <datavoice.es>
-
-"Christian Edward Gruber" <christian.edward.gruber@gmx.net>,=> pcount 1
-1 email <christian.edward.gruber@gmx.net>
- personal <Christian Edward Gruber>
- local-part <christian.edward.gruber> domain <gmx.net>
-
-"D. J. Bernstein" <"djb- "@cr.yp.to>=> pcount 1
-1 email <"djb- "@cr.yp.to>
- personal <D. J. Bernstein>
- local-part <djb- > domain <cr.yp.to>
-
-"D. J. Bernstein" <djb@cr.yp.to>, drums@cs.utk.edu=> pcount 2
-1 email <djb@cr.yp.to>
- personal <D. J. Bernstein>
- local-part <djb> domain <cr.yp.to>
-2 email <drums@cs.utk.edu>
- local-part <drums> domain <cs.utk.edu>
-
-"Dave Sill <de5-drums" <de5-drums@sws5.ctd.ornl.gov>=> pcount 1
-1 email <de5-drums@sws5.ctd.ornl.gov>
- personal <Dave Sill <de5-drums>
- local-part <de5-drums> domain <sws5.ctd.ornl.gov>
-
-"Dave \(work\) Baerg \(E-mail\)" <Dave.Baerg@SUMMedia.com>=> pcount 1
-1 email <Dave.Baerg@SUMMedia.com>
- personal <Dave (work) Baerg (E-mail)>
- local-part <Dave.Baerg> domain <SUMMedia.com>
-
-"Demian" <damient@wave.home.com>=> pcount 1
-1 email <damient@wave.home.com>
- personal <Demian>
- local-part <damient> domain <wave.home.com>
-
-"Detailed Revision/Update of Message Standards" <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
- personal <Detailed Revision/Update of Message Standards>
- local-part <drums> domain <cs.utk.edu>
-
-"Fred" <fprog@__nowhere__.users.sourceforge.net>=> pcount 1
-1 email <fprog@__nowhere__.users.sourceforge.net>
- personal <Fred>
- local-part <fprog> domain <__nowhere__.users.sourceforge.net>
-
-"Haag, Ullrich - MBDC" <Ullrich.Haag@MBDC.com>=> pcount 1
-1 email <Ullrich.Haag@MBDC.com>
- personal <Haag, Ullrich - MBDC>
- local-part <Ullrich.Haag> domain <MBDC.com>
-
-"Jacob Palme" <jpalme@dsv.su.se>, <drums@cs.utk.edu>=> pcount 2
-1 email <jpalme@dsv.su.se>
- personal <Jacob Palme>
- local-part <jpalme> domain <dsv.su.se>
-2 email <drums@cs.utk.edu>
- local-part <drums> domain <cs.utk.edu>
-
-"Jakob 'sparky' Kaivo" <jkaivo@elijah.nodomainname.net>=> pcount 1
-1 email <jkaivo@elijah.nodomainname.net>
- personal <Jakob 'sparky' Kaivo>
- local-part <jkaivo> domain <elijah.nodomainname.net>
-
-"Lee R. Copp" <Lee.R.Copp@MichiganScientific.com>=> pcount 1
-1 email <Lee.R.Copp@MichiganScientific.com>
- personal <Lee R. Copp>
- local-part <Lee.R.Copp> domain <MichiganScientific.com>
-
-"Lionel Johnson" <ljohnson**nospam**@sterling1.com>=> pcount 1
-1 email <ljohnson**nospam**@sterling1.com>
- personal <Lionel Johnson>
- local-part <ljohnson**nospam**> domain <sterling1.com>
-
-"Martin \[Keso\] Keseg" <Martin.Keseg@slovakia.sun.com>=> pcount 1
-1 email <Martin.Keseg@slovakia.sun.com>
- personal <Martin [Keso] Keseg>
- local-part <Martin.Keseg> domain <slovakia.sun.com>
-
-#FIXME: there is no way to send } to the remote program...
-"]\{ristoph" <news2@kristoph.net>=> pcount 1
-1 email <news2@kristoph.net>
- personal <]{ristoph>
- local-part <news2> domain <kristoph.net>
-
-"fmartens-2000" <fmartens-2000@planet.nl>=> pcount 1
-1 email <fmartens-2000@planet.nl>
- personal <fmartens-2000>
- local-part <fmartens-2000> domain <planet.nl>
-
-"g'o'tz ohnesorge" <gohnesorge@lh-computertechnik.de>=> pcount 1
-1 email <gohnesorge@lh-computertechnik.de>
- personal <g'o'tz ohnesorge>
- local-part <gohnesorge> domain <lh-computertechnik.de>
-
-"gao jie" <jiegi@public.wh.hb.cn>=> pcount 1
-1 email <jiegi@public.wh.hb.cn>
- personal <gao jie>
- local-part <jiegi> domain <public.wh.hb.cn>
-
-"gnupg-devel@gnupg.org" <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>=> pcount 1
-1 email <gnupg-devel%gnupg.org@f48.n48.z2.fidonet.org>
- personal <gnupg-devel@gnupg.org>
- local-part <gnupg-devel%gnupg.org> domain <f48.n48.z2.fidonet.org>
-
-"gpg-devel" <gnupg-devel@gnupg.org>=> pcount 1
-1 email <gnupg-devel@gnupg.org>
- personal <gpg-devel>
- local-part <gnupg-devel> domain <gnupg.org>
-
-"jigang" <jigang@jinglun.com.cn>=> pcount 1
-1 email <jigang@jinglun.com.cn>
- personal <jigang>
- local-part <jigang> domain <jinglun.com.cn>
-
-"misc@openbsd.org" <misc@openbsd.org>=> pcount 1
-1 email <misc@openbsd.org>
- personal <misc@openbsd.org>
- local-part <misc> domain <openbsd.org>
-
-"misc@openbsd.org" <misc@openbsd.org>, brian@Awfulhak.org=> pcount 2
-1 email <misc@openbsd.org>
- personal <misc@openbsd.org>
- local-part <misc> domain <openbsd.org>
-2 email <brian@Awfulhak.org>
- local-part <brian> domain <Awfulhak.org>
-
-"mutt-dev @ mutt . orgThomas Roessler" <roessler@does-not-exist.org>=> pcount 1
-1 email <roessler@does-not-exist.org>
- personal <mutt-dev @ mutt . orgThomas Roessler>
- local-part <roessler> domain <does-not-exist.org>
-
-"zwk@f36.n480.z2.fidonet.org" <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>=> pcount 1
-1 email <zwk%f36.n480.z2.fidonet.org@f36.n480.z2.fidonet.org>
- personal <zwk@f36.n480.z2.fidonet.org>
- local-part <zwk%f36.n480.z2.fidonet.org> domain <f36.n480.z2.fidonet.org>
-
-'Dan Dall'Acqua' <ddallacqua@noetic.ab.ca>, 'Dave Shyong'=> error MU_ERR_BAD_822_FORMAT
-
-0xdeadbeef-request@petting-zoo.net=> pcount 1
-1 email <0xdeadbeef-request@petting-zoo.net>
- local-part <0xdeadbeef-request> domain <petting-zoo.net>
-
-102023-00406421@cnxt19932218.conexant.com=> pcount 1
-1 email <102023-00406421@cnxt19932218.conexant.com>
- local-part <102023-00406421> domain <cnxt19932218.conexant.com>
-
-218164.24.43@jobcontrolcenter.com=> pcount 1
-1 email <218164.24.43@jobcontrolcenter.com>
- local-part <218164.24.43> domain <jobcontrolcenter.com>
-
-<0xdeadbeef-request@petting-zoo.net>=> pcount 1
-1 email <0xdeadbeef-request@petting-zoo.net>
- local-part <0xdeadbeef-request> domain <petting-zoo.net>
-
-<>=> pcount 1
-1 email <>
-
-<Christia.Roberts@nrc.ca>=> pcount 1
-1 email <Christia.Roberts@nrc.ca>
- local-part <Christia.Roberts> domain <nrc.ca>
-
-<Nick_Shelness@motorcity2.lotus.com>=> pcount 1
-1 email <Nick_Shelness@motorcity2.lotus.com>
- local-part <Nick_Shelness> domain <motorcity2.lotus.com>
-
-<all: >=> error MU_ERR_BAD_822_FORMAT
-
-<fyi-admin@emyr.net>=> pcount 1
-1 email <fyi-admin@emyr.net>
- local-part <fyi-admin> domain <emyr.net>
-
-<gary.stefanov@medtronic.com>, <HdeVisse@husky.ca>,=> pcount 2
-1 email <gary.stefanov@medtronic.com>
- local-part <gary.stefanov> domain <medtronic.com>
-2 email <HdeVisse@husky.ca>
- local-part <HdeVisse> domain <husky.ca>
-
-<gnu-pop-list@nodomainname.net>=> pcount 1
-1 email <gnu-pop-list@nodomainname.net>
- local-part <gnu-pop-list> domain <nodomainname.net>
-
-<mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>=> pcount 1
-1 email <mutt-dev-owner-sroberts=uniserve.com@ns.gbnet.net>
- local-part <mutt-dev-owner-sroberts=uniserve.com> domain <ns.gbnet.net>
-
-=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?= <kolla@nvg.ntnu.no>=> pcount 1
-1 email <kolla@nvg.ntnu.no>
- personal <=?ISO-8859-1?Q?Kolbj=F8rn_Barmen?=>
- local-part <kolla> domain <nvg.ntnu.no>
-
-=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>=> pcount 1
-1 email <paf@cisco.com>
- personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
- local-part <paf> domain <cisco.com>
-
-=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?= <paf@cisco.com>,=> pcount 1
-1 email <paf@cisco.com>
- personal <=?ISO-8859-1?Q?Patrik_F=E4ltstr=F6m?=>
- local-part <paf> domain <cisco.com>
-
-=?US-ASCII?Q?gary=5Fc?= <gary_c@cunningham-lee.com>=> pcount 1
-1 email <gary_c@cunningham-lee.com>
- personal <=?US-ASCII?Q?gary=5Fc?=>
- local-part <gary_c> domain <cunningham-lee.com>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>=> pcount 1
-1 email <0@pervalidus.net>
- personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
- local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier <0@pervalidus.net>,=> pcount 1
-1 email <0@pervalidus.net>
- personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E?= Meunier>
- local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?= <0@pervalidus.net>=> pcount 1
-1 email <0@pervalidus.net>
- personal <=?iso-8859-1?Q?Fr=E9d=E9ric_L_=2E_W_=2E_Meunier?=>
- local-part <0> domain <pervalidus.net>
-
-=?iso-8859-1?Q?J=F8rgen_Thomsen?= <jth@postfix.jth.net>=> pcount 1
-1 email <jth@postfix.jth.net>
- personal <=?iso-8859-1?Q?J=F8rgen_Thomsen?=>
- local-part <jth> domain <postfix.jth.net>
-
-=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?= <jose@jaimedelamo.eu.org>=> pcount 1
-1 email <jose@jaimedelamo.eu.org>
- personal <=?iso-8859-1?Q?Jos=3F_C=2E_Garc=EDa_Sogo?=>
- local-part <jose> domain <jaimedelamo.eu.org>
-
-=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@dna.fi>=> pcount 1
-1 email <Mikko.Hanninen@dna.fi>
- personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
- local-part <Mikko.Hanninen> domain <dna.fi>
-
-=?iso-8859-1?Q?Mikko_H=E4nninen?= <Mikko.Hanninen@iki.fi>=> pcount 1
-1 email <Mikko.Hanninen@iki.fi>
- personal <=?iso-8859-1?Q?Mikko_H=E4nninen?=>
- local-part <Mikko.Hanninen> domain <iki.fi>
-
-=?iso-8859-1?Q?R=E9mi_Guyomarch?= <rguyom@321.net>=> pcount 1
-1 email <rguyom@321.net>
- personal <=?iso-8859-1?Q?R=E9mi_Guyomarch?=>
- local-part <rguyom> domain <321.net>
-
-=?iso-8859-1?Q?Ulf_M=F6ller?= <ulf@fitug.de>=> pcount 1
-1 email <ulf@fitug.de>
- personal <=?iso-8859-1?Q?Ulf_M=F6ller?=>
- local-part <ulf> domain <fitug.de>
-
-ANDREW MARTIN <amartin@ee.ryerson.ca>=> pcount 1
-1 email <amartin@ee.ryerson.ca>
- personal <ANDREW MARTIN>
- local-part <amartin> domain <ee.ryerson.ca>
-
-Abhay Ghaisas <abhay@sobolev.does-not-exist.org>, mutt-dev@mutt.org=> pcount 2
-1 email <abhay@sobolev.does-not-exist.org>
- personal <Abhay Ghaisas>
- local-part <abhay> domain <sobolev.does-not-exist.org>
-2 email <mutt-dev@mutt.org>
- local-part <mutt-dev> domain <mutt.org>
-
-Brian Salter-Duke <b_duke@lacebark.ntu.edu.au>=> pcount 1
-1 email <b_duke@lacebark.ntu.edu.au>
- personal <Brian Salter-Duke>
- local-part <b_duke> domain <lacebark.ntu.edu.au>
-
-Catharine Shyong <shyong@t-iii.com>=> pcount 1
-1 email <shyong@t-iii.com>
- personal <Catharine Shyong>
- local-part <shyong> domain <t-iii.com>
-
-DRUMS-Last-Call:;=> error MU_ERR_EMPTY_ADDRESS
-
-Detailed Revision/Update of Message Standards <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
- personal <Detailed Revision/Update of Message Standards>
- local-part <drums> domain <cs.utk.edu>
-
-Eric Allman <eric+ietf@Sendmail.ORG>=> pcount 1
-1 email <eric+ietf@Sendmail.ORG>
- personal <Eric Allman>
- local-part <eric+ietf> domain <Sendmail.ORG>
-
-Gary <Gary@e-c-s-uk.com>=> pcount 1
-1 email <Gary@e-c-s-uk.com>
- personal <Gary>
- local-part <Gary> domain <e-c-s-uk.com>
-
-IETF working group on revision of mail standards <drums@cs.utk.edu>=> pcount 1
-1 email <drums@cs.utk.edu>
- personal <IETF working group on revision of mail standards>
- local-part <drums> domain <cs.utk.edu>
-
-IETF-Announce:;=> error MU_ERR_EMPTY_ADDRESS
-
-IETF-Announce:;, drums@cs.utk.edu=> pcount 1
-1 email <drums@cs.utk.edu>
- local-part <drums> domain <cs.utk.edu>
-
-Jean-Baptiste Marchand <Jean-Baptiste.Marchand@epita.fr>=> pcount 1
-1 email <Jean-Baptiste.Marchand@epita.fr>
- personal <Jean-Baptiste Marchand>
- local-part <Jean-Baptiste.Marchand> domain <epita.fr>
-
-Jonathan Rozes <jrozes+969649116.89117462@vinton.com>=> pcount 1
-1 email <jrozes+969649116.89117462@vinton.com>
- personal <Jonathan Rozes>
- local-part <jrozes+969649116.89117462> domain <vinton.com>
-
-Jose "C." Garcia Sogo<jose@jaimedelamo.eu.org>=> pcount 1
-1 email <jose@jaimedelamo.eu.org>
- personal <Jose C. Garcia Sogo>
- local-part <jose> domain <jaimedelamo.eu.org>
-
-Marco d'Itri <md@Linux.IT>=> pcount 1
-1 email <md@Linux.IT>
- personal <Marco d'Itri>
- local-part <md> domain <Linux.IT>
-
-No_Reply-To@mapquest.com=> pcount 1
-1 email <No_Reply-To@mapquest.com>
- local-part <No_Reply-To> domain <mapquest.com>
-
-OSULLIE@rte.ie, skidswam@hotmail.com, boot=> pcount 3
-1 email <OSULLIE@rte.ie>
- local-part <OSULLIE> domain <rte.ie>
-2 email <skidswam@hotmail.com>
- local-part <skidswam> domain <hotmail.com>
-3 email <boot@localhost>
- local-part <boot>
-
-Paul Hoffman / IMC <phoffman@imc.org>=> pcount 1
-1 email <phoffman@imc.org>
- personal <Paul Hoffman / IMC>
- local-part <phoffman> domain <imc.org>
-
-Sam=> pcount 1
-1 email <Sam@localhost>
- local-part <Sam>
-
-Sam Roberts <sam@cogent.ca>=> pcount 1
-1 email <sam@cogent.ca>
- personal <Sam Roberts>
- local-part <sam> domain <cogent.ca>
-
-Sam_Roberts/Certicom%Certicom@certicom.com=> pcount 1
-1 email <Sam_Roberts/Certicom%Certicom@certicom.com>
- local-part <Sam_Roberts/Certicom%Certicom> domain <certicom.com>
-
-Thomas Roessler <roessler@does-not-exist.org>, 490@bugs.guug.de=> pcount 2
-1 email <roessler@does-not-exist.org>
- personal <Thomas Roessler>
- local-part <roessler> domain <does-not-exist.org>
-2 email <490@bugs.guug.de>
- local-part <490> domain <bugs.guug.de>
-
-Thomas Roessler <roessler@does-not-exist.org>, g10@gnupg.org=> pcount 2
-1 email <roessler@does-not-exist.org>
- personal <Thomas Roessler>
- local-part <roessler> domain <does-not-exist.org>
-2 email <g10@gnupg.org>
- local-part <g10> domain <gnupg.org>
-
-ddickey@ip-12-22-50-150.hqglobal.net=> pcount 1
-1 email <ddickey@ip-12-22-50-150.hqglobal.net>
- local-part <ddickey> domain <ip-12-22-50-150.hqglobal.net>
-
-ktb <x.y.f@home.com>=> pcount 1
-1 email <x.y.f@home.com>
- personal <ktb>
- local-part <x.y.f> domain <home.com>
-
-mcaustin@eudoramail.com, aposner@usaid.gov, Kieran.O'Leary@anpost.ie,=> pcount 3
-1 email <mcaustin@eudoramail.com>
- local-part <mcaustin> domain <eudoramail.com>
-2 email <aposner@usaid.gov>
- local-part <aposner> domain <usaid.gov>
-3 email <Kieran.O'Leary@anpost.ie>
- local-part <Kieran.O'Leary> domain <anpost.ie>
-
-rfunk@wks.uts.ohio-state.eduofflinemailer-bounce@dikke.penguin.nl=> error MU_ERR_BAD_822_FORMAT
-
-root=> pcount 1
-1 email <root@localhost>
- local-part <root>
-
-srr <sam@localhost>=> error MU_ERR_BAD_822_FORMAT
-
-whom it may concern: ;;whom.it.may.concern: ;=> error MU_ERR_BAD_822_FORMAT
-
-whom it may concern: mutt-dev@mutt.org, mutt-users@mutt.org;=> pcount 2
-1 email <mutt-dev@mutt.org>
- local-part <mutt-dev> domain <mutt.org>
-2 email <mutt-users@mutt.org>
- local-part <mutt-users> domain <mutt.org>
-
-Sergey V. Poznyakoff <gray@gnu.org>=> pcount 1
-1 email <gray@gnu.org>
- personal <Sergey V. Poznyakoff>
- local-part <gray> domain <gnu.org>
-
-P. D. Q. Bach <bach@somewhere.org>=> pcount 1
-1 email <bach@somewhere.org>
- personal <P. D. Q. Bach>
- local-part <bach> domain <somewhere.org>
-
-"A bad quote\" <devnull@localhost>=> error MU_ERR_BAD_822_FORMAT
-
-# NOTE: This file must end with an empty line
diff --git a/libmailutils/testsuite/Argcv b/libmailutils/testsuite/Argcv
deleted file mode 100644
index 076edc9..0000000
--- a/libmailutils/testsuite/Argcv
+++ b/dev/null
@@ -1,52 +0,0 @@
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2005, 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.
-#
-1 2 3
-3: 1 2 3
-
-quoted\ space
-1: "quoted space"
-
-a "tab character"
-2: a tab\tcharacter
-
-\157\143\164\141\154\40and\x20\x68\x65\x78
-1: "octal and hex"
-
-\157\143\164\141\154\40 and \x20\x68\x65\x78
-3: "octal " and " hex"
-
-A\x3-\48\39
-1: A\003-\0048\0039
-
-# FIXME: Tcl is not able to properly handle binary data, even with
-# fconfigure -binary, so I had to disable this test
-#message: ASCII upper part
-#верхняя половина таблицы
-#3: \327\305\322\310\316\321\321 \320\317\314\317\327\311\316\301 \324\301\302\314\311\303\331
-
-messed up'quotations ' in "a single'" "command" lin"e
-6: messed "upquotations " in "a single'" command "lin\"e"
-
-'unbalanced "quote
-2: 'unbalanced "\"quote"
-
-unbalanced "quote
-2: unbalanced "\"quote"
-
-"
-1: "\""
diff --git a/libmailutils/testsuite/Decode2047 b/libmailutils/testsuite/Decode2047
deleted file mode 100644
index 96bd334..0000000
--- a/libmailutils/testsuite/Decode2047
+++ b/dev/null
@@ -1,36 +0,0 @@
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2006, 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.
-#
-
-=?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu> => Success
-Keith Moore <moore@cs.utk.edu>
-
-=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk> => Success
-Keld J\370rn Simonsen <keld@dkuug.dk>
-
-=?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be> => Success
-Andr\351 Pirard <PIRARD@vm1.ulg.ac.be>
-
-=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= ... =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?= => Success
-If you can read this yo ... u understand the example.
-
-# Malformed input string: lacks trailing =. MU 0.6.90 hanged on it.
-=?koi8-r?B?RndkOiDSxcfJ09TSwcPJ0SDEz83FzsE?= => Success
-Fwd: \322\305\307\311\323\324\322\301\303
-
-# NOTE: This file must end with an empty line
-# EOF
diff --git a/libmailutils/testsuite/Encode2047 b/libmailutils/testsuite/Encode2047
deleted file mode 100644
index de098ec..0000000
--- a/libmailutils/testsuite/Encode2047
+++ b/dev/null
@@ -1,27 +0,0 @@
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2006, 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.
-#
-\ckoi8-r
-\eB
-\o
--message 16-bytes string
-#Cyrillic: Ежедневный отчет
-\\345\326\305\304\316\305\327\316\331\312\040\317\324\336\305\324=> Success
-=?koi8-r?B?5dbFxM7F187ZyiDP1N7F1A==?=
-
-# NOTE: This file must end with an empty line
-# EOF
diff --git a/libmailutils/testsuite/Mailcap b/libmailutils/testsuite/Mailcap
deleted file mode 100644
index a8dcb4e..0000000
--- a/libmailutils/testsuite/Mailcap
+++ b/dev/null
@@ -1,195 +0,0 @@
-# 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.
-#
-text/plain; less '%s'; needsterminal
-entry
- typefield: text/plain
- view-command: less '%s'
- fields[1]: needsterminal
-
-text/html; gnome-help-browser '%s'; nametemplate=%s.html; test=test -n "$DISPLAY"
-entry
- typefield: text/html
- view-command: gnome-help-browser '%s'
- fields[1]: nametemplate=%s.html
- fields[2]: test=test -n "$DISPLAY"
-
-application/x-troff-man; /usr/bin/nroff -mandoc -Tlatin1; \
-copiousoutput; print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
-entry
- typefield: application/x-troff-man
- view-command: /usr/bin/nroff -mandoc -Tlatin1
- fields[1]: copiousoutput
- fields[2]: print=/usr/bin/nroff -mandoc -Tlatin1 | print text/plain:-
-
-text/plain; shownonascii iso-8859-1 '%s'; description="Plain ASCII Text"; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
- typefield: text/plain
- view-command: shownonascii iso-8859-1 '%s'
- fields[1]: description="Plain ASCII Text"
- fields[2]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-text/richtext; shownonascii iso-8859-1 -e richtext -p '%s'; \
-description="Richtext"; copiousoutput; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
- typefield: text/richtext
- view-command: shownonascii iso-8859-1 -e richtext -p '%s'
- fields[1]: description="Richtext"
- fields[2]: copiousoutput
- fields[3]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-text/enriched; shownonascii iso-8859-1 -e richtext -e -p '%s'; \
-description="Enriched Text"; \
-copiousoutput; \
-test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-entry
- typefield: text/enriched
- view-command: shownonascii iso-8859-1 -e richtext -e -p '%s'
- fields[1]: description="Enriched Text"
- fields[2]: copiousoutput
- fields[3]: test=test "$(echo %{charset} | tr "[A-Z]" "[a-z]")" = iso-8859-1 -a "$DISPLAY" != ""
-
-message/partial; showpartial '%s' %{id} %{number} %{total}; description="An incomplete message"
-entry
- typefield: message/partial
- view-command: showpartial '%s' %{id} %{number} %{total}
- fields[1]: description="An incomplete message"
-
-message/external-body; showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}; needsterminal; description="A reference to data stored in an external location"; composetyped="extcompose '%s"'
-entry
- typefield: message/external-body
- view-command: showexternal '%s' %{access-type} %{name} %{site} %{directory} %{mode} %{server}
- fields[1]: needsterminal
- fields[2]: description="A reference to data stored in an external location"
- fields[3]: composetyped="extcompose '%s"'
-
-application/x-dvi; /usr/bin/xdvi '%s'; test=test -n "$DISPLAY"; description=TeX DVI file; nametemplate=%s.dvi
-entry
- typefield: application/x-dvi
- view-command: /usr/bin/xdvi '%s'
- fields[1]: test=test -n "$DISPLAY"
- fields[2]: description=TeX DVI file
- fields[3]: nametemplate=%s.dvi
-
-text/plain; more '%s'; needsterminal
-entry
- typefield: text/plain
- view-command: more '%s'
- fields[1]: needsterminal
-
-text/html; /usr/bin/links '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/links '%s'
- fields[1]: needsterminal
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/richtext; richtext '%s'; description="Richtext"; copiousoutput
-entry
- typefield: text/richtext
- view-command: richtext '%s'
- fields[1]: description="Richtext"
- fields[2]: copiousoutput
-
-text/enriched; richtext -e '%s'; description="Enriched Text"; copiousoutput
-entry
- typefield: text/enriched
- view-command: richtext -e '%s'
- fields[1]: description="Enriched Text"
- fields[2]: copiousoutput
-
-text/html; /usr/bin/w3m -T text/html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/w3m -T text/html '%s'
- fields[1]: needsterminal
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/links -dump '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/links -dump '%s'
- fields[1]: copiousoutput
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/lynx -force_html '%s'; needsterminal; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/lynx -force_html '%s'
- fields[1]: needsterminal
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/w3m -dump -T text/html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/w3m -dump -T text/html '%s'
- fields[1]: copiousoutput
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/html; /usr/bin/html2text '%s'; copiousoutput; description=HTML Text
-entry
- typefield: text/html
- view-command: /usr/bin/html2text '%s'
- fields[1]: copiousoutput
- fields[2]: description=HTML Text
-
-text/html; /usr/bin/lynx -dump -force_html '%s'; copiousoutput; description=HTML Text; nametemplate=%s.html
-entry
- typefield: text/html
- view-command: /usr/bin/lynx -dump -force_html '%s'
- fields[1]: copiousoutput
- fields[2]: description=HTML Text
- fields[3]: nametemplate=%s.html
-
-text/*; less '%s'; needsterminal
-entry
- typefield: text/*
- view-command: less '%s'
- fields[1]: needsterminal
-
-text/*; more '%s'; needsterminal
-entry
- typefield: text/*
- view-command: more '%s'
- fields[1]: needsterminal
-
-application/x-debian-package; /usr/lib/mime/debian-view '%s'; \
-needsterminal; description=Debian GNU/Linux Package; \
-nametemplate=%s.deb
-entry
- typefield: application/x-debian-package
- view-command: /usr/lib/mime/debian-view '%s'
- fields[1]: needsterminal
- fields[2]: description=Debian GNU/Linux Package
- fields[3]: nametemplate=%s.deb
-
-audio/basic; /usr/lib/mime/playaudio '%s'; description=Basic uLaw Audio; \
-nametemplate=%s.au
-entry
- typefield: audio/basic
- view-command: /usr/lib/mime/playaudio '%s'
- fields[1]: description=Basic uLaw Audio
- fields[2]: nametemplate=%s.au
-
-# End of Mailcap
diff --git a/libmailutils/testsuite/Makefile.am b/libmailutils/testsuite/Makefile.am
deleted file mode 100644
index fb30e88..0000000
--- a/libmailutils/testsuite/Makefile.am
+++ b/dev/null
@@ -1,92 +0,0 @@
-## Process this file with GNU Automake to create Makefile.in
-
-## Copyright (C) 2002, 2003, 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 = mailbox
-RUNTESTFLAGS =
-CLEANFILES = *.log
-test_dirs = lib mailbox
-EXTRA_DIST = Addrs Argcv Mailcap Mime Urls Encode Decode Encode2047 Decode2047
-
-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,top_builddir) `cd $(top_builddir); 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
diff --git a/libmailutils/testsuite/Urls b/libmailutils/testsuite/Urls
deleted file mode 100644
index a6e565e..0000000
--- a/libmailutils/testsuite/Urls
+++ b/dev/null
@@ -1,629 +0,0 @@
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, 2007, 2008 Free Software Foundation
-#
-# 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.
-#
-# NOTE: Expected lines must be indented with exactly one tab character.
-
-scheme: => SUCCESS
- scheme <scheme>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path <>
-
-scheme:/absolute/path => SUCCESS
- scheme <scheme>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </absolute/path>
-
-scheme:relative/path => SUCCESS
- scheme <scheme>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path <relative/path>
-
-scheme:///absolute/path => SUCCESS
- scheme <scheme>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </absolute/path>
-
-scheme://%75%73%65%72:%70%61%73%73@%68%6f%73%74 => SUCCESS
- scheme <scheme>
- user <user>
- passwd <pass>
- auth <>
- host <host>
- port 0
- path <>
-
-ftp://user:pass@host//a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <pass>
- auth <>
- host <host>
- port 0
- path </a/path>
-
-ftp://:pass@host//a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <pass>
- auth <>
- host <host>
- port 0
- path </a/path>
-
-ftp://user:@host//a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <>
- auth <>
- host <host>
- port 0
- path </a/path>
-
-ftp://user:pass@//a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <pass>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://user:@//a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://:@host//a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <host>
- port 0
- path </a/path>
-
-ftp://:pass@//a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <pass>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://:@//a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://://a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://@//a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp:/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-ftp://user:pass@host/a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <pass>
- auth <>
- host <host>
- port 0
- path <a/path>
-
-ftp://:pass@host/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <pass>
- auth <>
- host <host>
- port 0
- path <a/path>
-
-ftp://user:@host/a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <>
- auth <>
- host <host>
- port 0
- path <a/path>
-
-ftp://user:pass@/a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <pass>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp://user:@/a/path => SUCCESS
- scheme <ftp>
- user <user>
- passwd <>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp://:@host/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <host>
- port 0
- path <a/path>
-
-ftp://:pass@/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <pass>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp://:@/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp://:/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp://@/a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path <a/path>
-
-ftp:///a/path => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </a/path>
-
-pop://pop.example.net => SUCCESS
- scheme <pop>
- user <>
- passwd <>
- auth <>
- host <pop.example.net>
- port 0
- path <>
-
-pop://user@pop.example.net => SUCCESS
- scheme <pop>
- user <user>
- passwd <>
- auth <>
- host <pop.example.net>
- port 0
- path <>
-
-pop://user:passwd@pop.example.net => SUCCESS
- scheme <pop>
- user <user>
- passwd <passwd>
- auth <>
- host <pop.example.net>
- port 0
- path <>
-
-pop://user;auth=*@pop.example.net => SUCCESS
- scheme <pop>
- user <user>
- passwd <>
- auth <*>
- host <pop.example.net>
- port 0
- path <>
-
-pop://pop.example.net:111 => SUCCESS
- scheme <pop>
- user <>
- passwd <>
- auth <>
- host <pop.example.net>
- port 111
- path <>
-
-pop://user@pop.example.net:111 => SUCCESS
- scheme <pop>
- user <user>
- passwd <>
- auth <>
- host <pop.example.net>
- port 111
- path <>
-
-pop://user:passwd@pop.example.net:111 => SUCCESS
- scheme <pop>
- user <user>
- passwd <passwd>
- auth <>
- host <pop.example.net>
- port 111
- path <>
-
-pop://user;auth=*@pop.example.net:111 => SUCCESS
- scheme <pop>
- user <user>
- passwd <>
- auth <*>
- host <pop.example.net>
- port 111
- path <>
-
-imap://imap.example.net => SUCCESS
- scheme <imap>
- user <>
- passwd <>
- auth <>
- host <imap.example.net>
- port 0
- path <>
-
-imap://user@imap.example.net => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 0
- path <>
-
-imap://user:passwd@imap.example.net => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 0
- path <>
-
-imap://user;auth=*@imap.example.net => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 0
- path <>
-
-imap://imap.example.net:111 => SUCCESS
- scheme <imap>
- user <>
- passwd <>
- auth <>
- host <imap.example.net>
- port 111
- path <>
-
-imap://user@imap.example.net:111 => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 111
- path <>
-
-imap://user:passwd@imap.example.net:111 => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 111
- path <>
-
-imap://user;auth=*@imap.example.net:111 => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 111
- path <>
-
-imap://imap.example.net/mbox => SUCCESS
- scheme <imap>
- user <>
- passwd <>
- auth <>
- host <imap.example.net>
- port 0
- path <mbox>
-
-imap://user@imap.example.net/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 0
- path <mbox>
-
-imap://user:passwd@imap.example.net/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 0
- path <mbox>
-
-imap://user;auth=*@imap.example.net/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 0
- path <mbox>
-
-imap://imap.example.net:111/mbox => SUCCESS
- scheme <imap>
- user <>
- passwd <>
- auth <>
- host <imap.example.net>
- port 111
- path <mbox>
-
-imap://user@imap.example.net:111/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 111
- path <mbox>
-
-imap://user:passwd@imap.example.net:111/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 111
- path <mbox>
-
-imap://user;auth=*@imap.example.net:111/mbox => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 111
- path <mbox>
-
-imap://imap.example.net/mbox/user@host => SUCCESS
- scheme <imap>
- user <imap.example.net/mbox/user>
- passwd <>
- auth <>
- host <host>
- port 0
- path <>
-
-imap://user@imap.example.net/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 0
- path <mbox/user@host>
-
-imap://user:passwd@imap.example.net/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 0
- path <mbox/user@host>
-
-imap://user;auth=*@imap.example.net/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 0
- path <mbox/user@host>
-
-imap://imap.example.net:111/mbox/user@host => SUCCESS
- scheme <imap>
- user <imap.example.net>
- passwd <111/mbox/user>
- auth <>
- host <host>
- port 0
- path <>
-
-imap://user@imap.example.net:111/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <>
- host <imap.example.net>
- port 111
- path <mbox/user@host>
-
-imap://user:passwd@imap.example.net:111/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <passwd>
- auth <>
- host <imap.example.net>
- port 111
- path <mbox/user@host>
-
-imap://user;auth=*@imap.example.net:111/mbox/user@host => SUCCESS
- scheme <imap>
- user <user>
- passwd <>
- auth <*>
- host <imap.example.net>
- port 111
- path <mbox/user@host>
-
-ftp://ftp.example.org/mbox/user%40host => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <ftp.example.org>
- port 0
- path <mbox/user@host>
-
-ftp://ftp.example.org:111/mbox/user%40host => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <ftp.example.org>
- port 111
- path <mbox/user@host>
-
-ftp://ftp.example.org:111/mbox/user%40host;type=pass => SUCCESS
- scheme <ftp>
- user <>
- passwd <>
- auth <>
- host <ftp.example.org>
- port 111
- path <mbox/user@host>
- param[0] <type=pass>
-
-mbox:/var/spool/mail;type=index;param=2;user=gray => SUCCESS
- scheme <mbox>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </var/spool/mail>
- param[0] <type=index>
- param[1] <param=2>
- param[2] <user=gray>
-
-mbox:///var/spool/mail;type=index;param=2;user=gray => SUCCESS
- scheme <mbox>
- user <>
- passwd <>
- auth <>
- host <>
- port 0
- path </var/spool/mail>
- param[0] <type=index>
- param[1] <param=2>
- param[2] <user=gray>
-
-http:///gnu.org.ua/home/gray?prog&arg1&arg2
- scheme <http>
- user <>
- passwd <>
- auth <>
- host <gnu.org.ua>
- port 0
- path <home/gray>
- query[0] <prog>
- query[1] <arg1>
- query[2] <arg2>
-
-http:///gnu.org.ua/home/gray;foo=bar;baz=qux?prog&arg%201&arg%202
- scheme <http>
- user <>
- passwd <>
- auth <>
- host <gnu.org.ua>
- port 0
- path <home/gray>
- param[0] <foo=bar>
- param[1] <baz=qux>
- query[0] <prog>
- query[1] <arg 1>
- query[2] <arg 2>
-
-# NOTE: This file must end with an empty line
diff --git a/libmailutils/testsuite/lib/DISTFILES b/libmailutils/testsuite/lib/DISTFILES
deleted file mode 100644
index b42768e..0000000
--- a/libmailutils/testsuite/lib/DISTFILES
+++ b/dev/null
@@ -1 +0,0 @@
-mailbox.exp
diff --git a/libmailutils/testsuite/lib/mailbox.exp b/libmailutils/testsuite/lib/mailbox.exp
deleted file mode 100644
index abc273e..0000000
--- a/libmailutils/testsuite/lib/mailbox.exp
+++ b/dev/null
@@ -1,243 +0,0 @@
-# -*- 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.
-
-source $top_srcdir/testsuite/lib/mailutils.exp
-
-mu_init
-
-proc mailbox_run {args} {
- global verbose
- global expect_out
-
- set sw ""
- for {set i 0} {$i < [llength $args]} {incr i} {
- set a [lindex $args $i]
- if {"$a" == "-mail-spool"} {
- if [info exists host_board] {
- if [board_info $host_board exists top_srcdir] {
- append sw "--set mailbox.mail-spool=\"'[board_info $host_board top_srcdir]/mail/testsuite/spool'\""
- }
- }
- if {![info exists init_spool]} {
- set init_spool 1
- }
- } elseif {"$a" == "-reuse-spool"} {
- set init_spool 0
- } else {
- break
- }
- }
-
- if [info exists init_spool] {
- mu_prepare_spools
- }
-
- set args "[lrange $args $i end] $sw"
-
- verbose "Spawning $args"
-
- set res [remote_spawn host $args]
- if { $res < 0 || $res == "" } {
- perror "Spawning $args failed."
- return 1;
- }
-
- return 0
-}
-
-proc mailbox_send { string } {
- return [mu_send "$string"]
-}
-
-# mailbox_test [-message MESSAGE][-default (FAIL|XFAIL)]
-# COMMAND [-pattern PATTERN-LIST][PATTERN...]
-# COMMAND - Command to send.
-# PATTERN - Sequence to expect in return.
-# MESSAGE - [optional] message to output
-proc mailbox_test { args } {
- global verbose
- global suppress_flag;
- upvar timeout timeout
-
- set default ""
- set message ""
- 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 [lindex $args $i]
- } else {
- set args [lrange $args $i end]
- break
- }
- }
-
- if {"$message" == ""} {
- set message [lindex $args 0]
- }
-
- if $verbose>2 then {
- send_user "Message is \"$message\"\n"
- }
- set command [lindex $args 0]
- if {[llength $args] >= 2} {
- set pattern [lrange $args 1 end]
- }
-
- if [info exists pattern] {
- set result [mu_test $command $pattern]
- } else {
- set result [mu_test $command]
- }
-
- if {$result == 0} {
- pass "$message"
- } elseif {$result == 1} {
- if { "$default" == "" || "$default" != "FAIL" } {
- fail "$message"
- } else {
- xfail "$message"
- set result 0
- }
- } elseif {$result == -2} {
- fail "$message (timeout)"
- } elseif {$result == -3} {
- fail "$message (eof)"
- } else {
- fail "$message"
- }
- return $result
-}
-
-proc mailbox_prog_start {cmd} {
- global verbose
- global MU_TOOL
- global MU_TOOL_FLAGS
- global mailbox_prog_prompt
- global expect_out
- global mailbox_spawn_id
-
- verbose "Spawning $cmd"
-
- set mailbox_spawn_id [remote_spawn host $cmd]
- if { $mailbox_spawn_id < 0 || $mailbox_spawn_id == "" } {
- perror "Spawning $cmd failed."
- return 1;
- }
-
- mu_expect 360 {
- -re "\[\r\n\]?${mailbox_prog_prompt}$" {
- verbose "program initialized."
- }
- default {
- perror "program not initialized"
- return 1
- }
- }
- return 0
-}
-
-proc mailbox_prog_send { string } {
- return [mu_send "$string"]
-}
-
-proc mailbox_prog_command { cmd } {
- return [mu_command $cmd]
-}
-
-proc mailbox_prog_stop {} {
- verbose "Stopping program"
- remote_close host
-
-}
-
-# mailbox_prog_test [-message MESSAGE][-default (FAIL|XFAIL)][-noprompt]
-# COMMAND PATTERN [PATTERN...]
-# COMMAND - Command to send.
-# PATTERN - Sequence to expect in return.
-# MESSAGE - [optional] message to output
-proc mailbox_prog_test { args } {
- global verbose
- global mailbox_prog_prompt
- global suppress_flag;
- upvar timeout timeout
-
- set default ""
- set message ""
- set wait_for_prompt 1
- for {set i 0} {$i < [llength $args]} {incr i} {
- set a [lindex $args $i]
- if {"$a" == "-default"} {
- set default [lindex $args [expr $i + 1]]
- incr i
- } elseif {"$a" == "-message"} {
- set message [lindex $args [expr $i + 1]]
- incr i
- } elseif {"$a" == "-noprompt"} {
- set wait_for_prompt 0
- } else {
- set args [lrange $args $i end]
- break
- }
- }
-
- if {"$message" == ""} {
- set message [lindex $args 0]
- }
-
- if $verbose>2 then {
- send_user "Message is \"$message\"\n"
- }
- set command [lindex $args 0]
- set pattern [lrange $args 1 end]
- set result [mu_test $command $pattern]
- if {$wait_for_prompt} {
- mu_expect 30 {
- -re "\[\r\n\]?${mailbox_prog_prompt}$" {}
- default {
- perror "prog not initialized"
- return 1
- }
- }
- }
-
- if {$result == 0} {
- pass "$message"
- } elseif {$result == 1} {
- if { "$default" == "" || "$default" != "FAIL" } {
- fail "$message"
- } else {
- xfail "$message"
- set result 0
- }
- } elseif {$result == -2} {
- fail "$message (timeout)"
- } elseif {$result == -3} {
- fail "$message (eof)"
- } else {
- fail "$message"
- }
- return $result
-}
diff --git a/libmailutils/testsuite/mailbox/DISTFILES b/libmailutils/testsuite/mailbox/DISTFILES
deleted file mode 100644
index 55cc9e1..0000000
--- a/libmailutils/testsuite/mailbox/DISTFILES
+++ b/dev/null
@@ -1,9 +0,0 @@
-address.exp
-argcv.exp
-base64.exp
-decode2047.exp
-encode2047.exp
-list.exp
-mailcap.exp
-mime.exp
-url.exp
diff --git a/libmailutils/testsuite/mailbox/address.exp b/libmailutils/testsuite/mailbox/address.exp
deleted file mode 100644
index 2809580..0000000
--- a/libmailutils/testsuite/mailbox/address.exp
+++ b/dev/null
@@ -1,48 +0,0 @@
-# -*- 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.
-
-mailbox_run ${top_builddir}/examples/addr
-
-set chan [open ${srcdir}/Addrs r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- switch -regexp -- "$line" {
- "^#.*" { }
- "^[^ \t].*=>.*" {
- regexp "(.*)=>.*" $line dummy command
- set pattern [list $line]
- }
- "^\$" {
- if {$command != ""} {
- mailbox_test -pattern $pattern $command
- set command ""
- }
- }
- default {
- if [info exist pattern] {
- set pattern [concat $pattern [list $line]]
- }
- }
- }
-}
-
-close $chan
-
-# end of address.exp
diff --git a/libmailutils/testsuite/mailbox/argcv.exp b/libmailutils/testsuite/mailbox/argcv.exp
deleted file mode 100644
index 88db5e1..0000000
--- a/libmailutils/testsuite/mailbox/argcv.exp
+++ b/dev/null
@@ -1,55 +0,0 @@
-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2005, 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.
-
-mailbox_run ${top_builddir}/examples/argcv
-
-set chan [open ${srcdir}/Argcv r]
-
-set command ""
-set message ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- switch -regexp -- "$line" {
- "^#.*" { }
- "^[ \t]*\$" { }
- "message:" {
- regexp "message:\[ \t\]*(.*)" $line dummy message
- }
- default {
- if {$command == ""} {
- set command $line
- } else {
- if {$message != ""} {
- mailbox_test -message $message -pattern [list $line] $command
- set message ""
- } else {
- mailbox_test -pattern [list $line] $command
- }
- set command ""
- }
- }
- }
-}
-
-if {$command != ""} {
- fail "Malformed input file ${srcdir}/Argcv"
-}
-
-close $chan
-
-# end of argcv.exp
diff --git a/libmailutils/testsuite/mailbox/base64.exp b/libmailutils/testsuite/mailbox/base64.exp
deleted file mode 100644
index b86ca6f..0000000
--- a/libmailutils/testsuite/mailbox/base64.exp
+++ b/dev/null
@@ -1,37 +0,0 @@
-# -*- 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.
-
-set MU_TOOL ${top_builddir}/examples/base64
-set MU_TOOL_FLAGS ""
-
-mu_exec -message "encode" -arg -i${srcdir}/Encode \
-"AAECAwQFBgcICQoLDA0ODxAREhMUFRYXGBkaGxwdHh8gISIjJCUmJygpKissLS4vMDEyMzQ1Njc4"\
-"OTo7PD0+P0BBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWltcXV5fYGFiY2RlZmdoaWprbG1ub3Bx"\
-"cnN0dXZ3eHl6e3x9fn+AgYKDhIWGh4iJiouMjY6PkJGSk5SVlpeYmZqbnJ2en6ChoqOkpaanqKmq"\
-"q6ytrq+wsbKztLW2t7i5uru8vb6/wMHCw8TFxsfIycrLzM3Oz9DR0tPU1dbX2Nna29zd3t/g4eLj"\
-"5OXm5+jp6uvs7e7v8PHy8/T19vf4+fr7/P3+/w=="
-
-## Expect chokes on binary data, so let's switch base64 to printable
-## octal output.
-## The -l0 option ensures that the output is not split by inserting
-## additional newlines.
-mu_exec -message "decode" -arg -i${srcdir}/Decode -arg -dpl0 \
-"\\000\\001\\002\\003\\004\\005\\006\\007\\010\\011\\012\\013\\014\\015\\016\\017\\020\\021\\022\\023\\024\\025\\026\\027\\030\\031\\032\\033\\034\\035\\036\\037 !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\[\\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\\177\\200\\201\\202\\203\\204\\205\\206\\207\\210\\211\\212\\213\\214\\215\\216\\217\\220\\221\\222\\223\\224\\225\\226\\227\\230\\231\\232\\233\\234\\235\\236\\237\\240\\241\\242\\243\\244\\245\\246\\247\\250\\251\\252\\253\\254\\255\\256\\257\\260\\261\\262\\263\\264\\265\\266\\267\\270\\271\\272\\273\\274\\275\\276\\277\\300\\301\\302\\303\\304\\305\\306\\307\\310\\311\\312\\313\\314\\315\\316\\317\\320\\321\\322\\323\\324\\325\\326\\327\\330\\331\\332\\333\\334\\335\\336\\337\\340\\341\\342\\343\\344\\345\\346\\347\\350\\351\\352\\353\\354\\355\\356\\357\\360\\361\\362\\363\\364\\365\\366\\367\\370\\371\\372\\373\\374\\375\\376\\377"
-
-# End of base64.exp
diff --git a/libmailutils/testsuite/mailbox/decode2047.exp b/libmailutils/testsuite/mailbox/decode2047.exp
deleted file mode 100644
index b91fa65..0000000
--- a/libmailutils/testsuite/mailbox/decode2047.exp
+++ b/dev/null
@@ -1,50 +0,0 @@
-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2006, 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.
-
-mailbox_run ${top_builddir}/examples/decode2047 -p
-
-set chan [open ${srcdir}/Decode2047 r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- switch -regexp -- "$line" {
- "^#.*" { }
- "^[^ \t].*=>.*" {
- regexp "(.*)=>.*" $line dummy command
- set pattern [list $line]
- }
- "^\$" {
- if {$command != ""} {
- verbose "COMMAND $command"
- verbose "PATTERN $pattern"
- mailbox_test -pattern $pattern $command
- set command ""
- }
- }
- default {
- if [info exist pattern] {
- set pattern [concat $pattern [list $line]]
- }
- }
- }
-}
-
-close $chan
-
-# end of decode2047.exp
diff --git a/libmailutils/testsuite/mailbox/encode2047.exp b/libmailutils/testsuite/mailbox/encode2047.exp
deleted file mode 100644
index d696130..0000000
--- a/libmailutils/testsuite/mailbox/encode2047.exp
+++ b/dev/null
@@ -1,62 +0,0 @@
-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2006, 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.
-
-mailbox_run ${top_builddir}/examples/encode2047
-
-set chan [open ${srcdir}/Encode2047 r]
-
-set command ""
-set message ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- switch -regexp -- "$line" {
- "^#.*" { }
- "-message.*" {
- regexp -- "-message (.*)" $line dummy message
- }
- "^\\\\\[^\\\\\]" {
- mu_command $line
- }
- "^[^ \t].*=>.*" {
- regexp "(.*)=>.*" $line dummy command
- set pattern [list $line]
- }
- "^\$" {
- if {$command != ""} {
- verbose "COMMAND $command"
- verbose "PATTERN $pattern"
- if {$message != ""} {
- mailbox_test -message $message -pattern $pattern $command
- } else {
- mailbox_test -pattern $pattern $command
- }
- set command ""
- set message ""
- }
- }
- default {
- if [info exist pattern] {
- set pattern [concat $pattern [list $line]]
- }
- }
- }
-}
-
-close $chan
-
-# end of encode2037.exp
diff --git a/libmailutils/testsuite/mailbox/list.exp b/libmailutils/testsuite/mailbox/list.exp
deleted file mode 100644
index acb7bb2..0000000
--- a/libmailutils/testsuite/mailbox/list.exp
+++ b/dev/null
@@ -1,330 +0,0 @@
-# -*- tcl -*-
-# This file is part of Mailutils testsuite.
-# Copyright (C) 2003, 2005, 2007, 2008, 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.
-
-set current_text [list "NULL" "NULL" "NULL" "NULL"]
-set current_iter 0
-
-proc make_promt {} {
- global current_iter
- global current_text
- global mailbox_prog_prompt
-
- set mailbox_prog_prompt "${current_iter}:\\([lindex $current_text $current_iter]\\)> "
-}
-
-proc prompt_text {text} {
- global current_iter
- global current_text
-
- set current_text [lreplace $current_text $current_iter $current_iter $text]
- make_promt
-}
-
-proc prompt_iterator {iter} {
- global current_iter
-
- set current_iter $iter
- make_promt
-}
-
-prompt_iterator 0
-prompt_text "NULL"
-
-mailbox_prog_start "${top_builddir}/examples/listop"
-
-mailbox_prog_command "add en to tre fire fem"
-mailbox_prog_test "print" \
- "# items: 5" \
- "en" \
- "to" \
- "tre" \
- "fire" \
- "fem"
-
-prompt_text "en"
-mailbox_prog_test "next"
-
-prompt_text "tre"
-mailbox_prog_test "next 2"
-
-prompt_iterator 1
-prompt_text "en"
-mailbox_prog_test "iter 1"
-
-prompt_text "to"
-mailbox_prog_test "find to"
-
-mailbox_prog_test "del tre fire"
-
-prompt_text "fem"
-mailbox_prog_test "next"
-
-prompt_iterator 0
-prompt_text "fem"
-mailbox_prog_test "iter 0"
-mailbox_prog_test "print" \
- "# items: 3" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "prep jeden dwa trzy cztery"
-
-mailbox_prog_test "print" \
- "# items: 7" \
- "cztery" \
- "trzy" \
- "dwa" \
- "jeden" \
- "en" \
- "to" \
- "fem"
-
-prompt_text "cztery"
-mailbox_prog_test "first"
-
-prompt_text "trzy"
-mailbox_prog_test "del cztery"
-
-prompt_text "3"
-mailbox_prog_test "repl trzy 3"
-
-prompt_iterator 1
-mailbox_prog_test "iter 1"
-
-prompt_text "3"
-mailbox_prog_test "next 2"
-
-mailbox_prog_command "ins jeden un"
-mailbox_prog_test "print" \
- "# items: 7" \
- "3" \
- "dwa" \
- "jeden" \
- "un" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "ins before jeden zero"
-mailbox_prog_test "print" \
- "# items: 8" \
- "3" \
- "dwa" \
- "zero" \
- "jeden" \
- "un" \
- "en" \
- "to" \
- "fem"
-
-prompt_text "un"
-mailbox_prog_test "find un"
-
-mailbox_prog_command "ins before un cero"
-mailbox_prog_command "ins un dos"
-
-mailbox_prog_test "print" \
- "# items: 10" \
- "3" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "un" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "ins before 3 1"
-mailbox_prog_test "print" \
- "# items: 11" \
- "1" \
- "3" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "un" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "ins before 3 2"
-mailbox_prog_test "print" \
- "# items: 12" \
- "1" \
- "2" \
- "3" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "un" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "ins 3 4 5 6"
-mailbox_prog_test "print" \
- "# items: 15" \
- "1" \
- "2" \
- "3" \
- "4" \
- "5" \
- "6" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "un" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_command "ins before dwa zero jeden"
-mailbox_prog_test "print" \
- "# items: 17" \
- "1" \
- "2" \
- "3" \
- "4" \
- "5" \
- "6" \
- "zero" \
- "jeden" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "un" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_test "ictl tell" "12"
-
-prompt_text "dos"
-mailbox_prog_test "ictl del"
-
-prompt_text "dos"
-mailbox_prog_test "next"
-
-mailbox_prog_test "print" \
- "# items: 16" \
- "1" \
- "2" \
- "3" \
- "4" \
- "5" \
- "6" \
- "zero" \
- "jeden" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "dos" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_test "ictl ins seis"
-
-mailbox_prog_test "print" \
- "# items: 17" \
- "1" \
- "2" \
- "3" \
- "4" \
- "5" \
- "6" \
- "zero" \
- "jeden" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "dos" \
- "seis" \
- "en" \
- "to" \
- "fem"
-
-mailbox_prog_test "ictl ins tres quatro cinco"
-
-mailbox_prog_test "print" \
- "# items: 20" \
- "1" \
- "2" \
- "3" \
- "4" \
- "5" \
- "6" \
- "zero" \
- "jeden" \
- "dwa" \
- "zero" \
- "jeden" \
- "cero" \
- "dos" \
- "tres" \
- "quatro" \
- "cinco" \
- "seis" \
- "en" \
- "to" \
- "fem"
-
-prompt_text "tres"
-mailbox_prog_test "next"
-
-mailbox_prog_test "ictl dir" "forwards"
-
-mailbox_prog_test "ictl dir backwards"
-
-prompt_text "dos"
-mailbox_prog_test "next"
-
-prompt_text "dwa"
-mailbox_prog_test "next 4"
-
-prompt_text "jeden"
-mailbox_prog_test "ictl del"
-
-mailbox_prog_test "next"
-
-prompt_text "zero"
-mailbox_prog_test "next"
-
-mailbox_prog_test "ictl dir forwards"
-
-prompt_text "jeden"
-mailbox_prog_test "next"
-
-mailbox_prog_send "quit"
-mailbox_prog_stop
-
-# End of list.exp
diff --git a/libmailutils/testsuite/mailbox/mailcap.exp b/libmailutils/testsuite/mailbox/mailcap.exp
deleted file mode 100644
index eaed867..0000000
--- a/libmailutils/testsuite/mailbox/mailcap.exp
+++ b/dev/null
@@ -1,71 +0,0 @@
-# -*- 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_prepare_spools
-
-set mailcapfile ${MU_DATA_DIR}/mailcap
-set chan [open ${srcdir}/Mailcap r]
-set outchan [open "$mailcapfile" w]
-
-set command ""
-set state 0
-set entry 0
-set pattern [list]
-
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- if {$state == 0} {
- switch -regexp -- "$line" {
- "^#.*" { }
- "^entry" {
- set state 1
- incr entry
- lappend pattern "entry\[${entry}\]"
- }
- default {
- puts $outchan $line
- }
- }
- } else {
- switch -regexp -- "$line" {
- "^#.*" { }
- "^\$" {
- lappend pattern ""
- set state 0
- }
- default {
- lappend pattern $line
- }
- }
- }
-}
-
-if {$state == 1} {
- lappend pattern ""
-}
-
-close $outchan
-close $chan
-
-set MU_TOOL ${top_builddir}/examples/mailcap
-set MU_TOOL_FLAGS ""
-
-verbose "INVOKE $pattern"
-eval mu_exec -message "mailcap" -arg "$mailcapfile" $pattern
-
-# end of mailcap.exp
diff --git a/libmailutils/testsuite/mailbox/mime.exp b/libmailutils/testsuite/mailbox/mime.exp
deleted file mode 100644
index aabecfe..0000000
--- a/libmailutils/testsuite/mailbox/mime.exp
+++ b/dev/null
@@ -1,39 +0,0 @@
-# -*- 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.
-
-set MU_TOOL "${top_builddir}/examples/mimetest"
-set MU_TOOL_FLAGS "-i 0 -p $MU_SPOOL_DIR/mbox1"
-
-mu_prepare_spools
-
-set chan [open ${srcdir}/Mime r]
-
-set pattern [list]
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- switch -regexp -- "$line" {
- "^#.*" { }
- default { set pattern [concat $pattern [list $line]] }
- }
-}
-
-mu_exec -retcode 0 -message "MIME" -pattern $pattern
-
-close $chan
-
-# end of mime.exp
diff --git a/libmailutils/testsuite/mailbox/url.exp b/libmailutils/testsuite/mailbox/url.exp
deleted file mode 100644
index f390306..0000000
--- a/libmailutils/testsuite/mailbox/url.exp
+++ b/dev/null
@@ -1,48 +0,0 @@
-# -*- 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.
-
-mailbox_run ${top_builddir}/examples/url-parse
-
-set chan [open ${srcdir}/Urls r]
-
-set command ""
-for {gets $chan line} {![eof $chan]} {gets $chan line} {
- verbose "LINE: $line"
- switch -regexp -- "$line" {
- "^#.*" { }
- "^[^ \t].*=>.*" {
- regexp "(.*\[^ \t\])\[ \t\]*=>.*" $line dummy command
- verbose "COMMAND: \"$command\""
- set pattern [list $line]
- }
- "^\$" {
- if {$command != ""} {
- mailbox_test -pattern $pattern $command
- set command ""
- }
- }
- default {
- set pattern [concat $pattern [list $line]]
- }
- }
-}
-
-close $chan
-
-# end of url.exp
diff --git a/readmsg/tests/Makefile.am b/readmsg/tests/Makefile.am
index 69c08a9..59dce6f 100644
--- a/readmsg/tests/Makefile.am
+++ b/readmsg/tests/Makefile.am
@@ -23,7 +23,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
## ------------ ##
$(srcdir)/package.m4: $(top_srcdir)/configure.ac
- { \
+ $(AM_V_GEN) { \
echo '# Signature of the current package.'; \
echo 'm4_define([AT_PACKAGE_NAME], [@PACKAGE_NAME@])'; \
echo 'm4_define([AT_PACKAGE_TARNAME], [@PACKAGE_TARNAME@])'; \
diff --git a/readmsg/tests/testsuite.at b/readmsg/tests/testsuite.at
index e7e63f0..beef5f9 100644
--- a/readmsg/tests/testsuite.at
+++ b/readmsg/tests/testsuite.at
@@ -16,7 +16,6 @@
# This file is part of Mailfromd testsuite.
# Require a reasonably recent autotest.
-m4_version_prereq([2.52g])
m4_include([testsuite.inc])
dnl ------------------------------------------------------------
diff --git a/sieve/tests/Makefile.am b/sieve/tests/Makefile.am
index 8a79022..a7494bc 100644
--- a/sieve/tests/Makefile.am
+++ b/sieve/tests/Makefile.am
@@ -24,7 +24,7 @@ MAINTAINERCLEANFILES = Makefile.in $(TESTSUITE)
## ------------ ##
$(srcdir)/package.m4: $(top_srcdir)/configure.ac
- { \
+ $(AM_V_GEN) { \
echo '# Signature of the current package.'; \
echo 'm4_define([AT_PACKAGE_NAME], [@PACKAGE_NAME@])'; \
echo 'm4_define([AT_PACKAGE_TARNAME], [@PACKAGE_TARNAME@])'; \
diff --git a/sieve/tests/testsuite.at b/sieve/tests/testsuite.at
index c6d7b82..c0bb825 100644
--- a/sieve/tests/testsuite.at
+++ b/sieve/tests/testsuite.at
@@ -15,8 +15,7 @@
# 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_include([testsuite.inc])
dnl ------------------------------------------------------------
dnl testcompile(SCRIPT) -- test compilation of the Sieve SCRIPT
diff --git a/sieve/tests/version.at b/sieve/tests/version.at
index 5b8fc36..b4375f8 100644
--- a/sieve/tests/version.at
+++ b/sieve/tests/version.at
@@ -15,6 +15,6 @@
# along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
# This file is part of Mailfromd testsuite.
-m4_include([testsuite.inc])
+dnl m4_include([testsuite.inc])
MUT_VERSION(sieve)
diff --git a/testsuite/testsuite.inc b/testsuite/testsuite.inc
index 8d5b610..875f4ad 100644
--- a/testsuite/testsuite.inc
+++ b/testsuite/testsuite.inc
@@ -15,6 +15,11 @@
# 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 MUT_VERSION(TOOL) -- checks the version output from TOOL
dnl
@@ -38,5 +43,3 @@ _EOT
AT_CLEANUP
])
-m4_define([AT_SKIP_TEST],[exit 77])
-

Return to:

Send suggestions and report system problems to the System administrator.