# This file is part of GNU Mailutils. -*- Autotest -*-
# Copyright (C) 2007, 2008, 2009, 2010, 2011 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, see .
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([m4_if(m4_index([$1],[']),-1,[addr '[$1]'],
[AT_DATA([input],[$1
])
addr < input])],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 :
local-part domain
2. email :
local-part domain
])
TESTADDR([,a@b,z@y],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a@b,z@y,],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([,a@b,z@y,],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a@b,,z@y],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a@b,,,z@y],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([,,,a@b,,,],[],
[0],
[naddr: 1
1. email :
local-part domain
])
TESTADDR([,a@b],[],
[0],
[naddr: 1
1. email :
local-part domain
])
TESTADDR([a@b,],[],
[0],
[naddr: 1
1. email :
local-part domain
])
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 :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: ,a@b,z@y;],[group],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: a@b,z@y,;],[group],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: ,a@b,z@y,;],[group],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: a@b,,z@y;],[group],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: a@b,,,z@y;],[group],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
local-part domain
])
TESTADDR([a group: ,,,a@b,,, ;],[group],
[0],
[naddr: 1
1. email :
local-part domain
])
TESTADDR([a group: ,a@b ;],[group],
[0],
[naddr: 1
1. email :
local-part domain
])
TESTADDR([a group: a@b, ;],[group],
[0],
[naddr: 1
1. email :
local-part domain
])
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 :
personal
local-part domain
route <@[matrix (smtp)]>
2. email :
local-part domain <[10].[1]>
]])
TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];],
[],
[0],
[[naddr: 3
1. email :
local-part domain
2. email :
personal
local-part domain
route <@[matrix (smtp)]>
3. email :
local-part domain <[10].[1]>
]])
TESTADDR([Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
[],
[0],
[[naddr: 3
1. email :
personal
local-part domain
route <@[matrix (smtp)]>
2. email :
local-part domain <[10].[1]>
3. email :
local-part domain
]])
TESTADDR([lo@hi, Aliens: Sam <@[matrix (smtp)]: sam@sam>, sroberts@[10].[1];, hi@lo],
[],
[0],
[[naddr: 4
1. email :
local-part domain
2. email :
personal
local-part domain
route <@[matrix (smtp)]>
3. email :
local-part domain <[10].[1]>
4. email :
local-part domain
]])
TESTADDR([Sam <@mail2.uniserve.com:sroberts@uniserve.com>],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
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 :
personal
local-part domain <570.com>
])
TESTADDR([list-ietf-wg-apps-drums@faerber.muc.de (=?ISO-8859-1?Q?Claus_F=E4rber?=)],[],
[0],
[naddr: 1
1. email :
personal <=?ISO-8859-1?Q?Claus_F=E4rber?=>
local-part domain
])
TESTADDR([(mutt #369), guug-bugs-closed@guug.de (#369)],[],
[0],
[naddr: 2
1. email :
local-part domain
2. email :
personal <#369>
local-part domain
])
TESTADDR(["'Aernoudt Bottemanne'" ],[],
[0],
[naddr: 1
1. email :
personal <'Aernoudt Bottemanne'>
local-part domain
])
TESTADDR(["'Haag, Ullrich - MBDC'" ,],[],
[0],
[naddr: 1
1. email :
personal <'Haag, Ullrich - MBDC'>
local-part domain
])
TESTADDR(["'Michael C. Ibarra'" , arl@q7.net, Al ],
[],
[0],
[naddr: 3
1. email :
personal <'Michael C. Ibarra'>
local-part domain
2. email :
local-part domain
3. email :
personal
local-part domain
])
TESTADDR(["'Sam Roberts'" ],[],
[0],
[naddr: 1
1. email :
personal <'Sam Roberts'>
local-part domain
])
TESTADDR(["'paul@pitbull-productions.com'" ,],[],
[0],
[naddr: 1
1. email :
personal <'paul@pitbull-productions.com'>
local-part domain
])
TESTADDR(["'sam@cogent.ca'" , "'sroberts@uniserve.com'"],[],
[0],
[],
[MU_ERR_BAD_822_FORMAT
])
TESTADDR(["'sroberts\@certicom\.ca'" ],[],
[0],
[naddr: 1
1. email :
personal <'sroberts@certicom.ca'>
local-part domain
])
TESTADDR(["=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=" ],[],
[0],
[naddr: 1
1. email :
personal <=?iso-8859-1?Q?Juan_Carlos_Marcos_Rodr=EDguez?=>
local-part domain
])
TESTADDR(["Christian Edward Gruber" ,],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["D. J. Bernstein" <"djb- "@cr.yp.to>],[],
[0],
[naddr: 1
1. email <"djb- "@cr.yp.to>:
personal
local-part domain
])
TESTADDR(["D. J. Bernstein" , drums@cs.utk.edu],[],
[0],
[naddr: 2
1. email :
personal
local-part domain
2. email :
local-part domain
])
TESTADDR(["Dave Sill ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Dave \(work\) Baerg \(E-mail\)" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Demian" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Detailed Revision/Update of Message Standards" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Fred" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain <__nowhere__.users.sourceforge.net>
])
TESTADDR(["Haag, Ullrich - MBDC" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Jacob Palme" , ],[],
[0],
[naddr: 2
1. email :
personal
local-part domain
2. email :
local-part domain
])
TESTADDR(["Jakob 'sparky' Kaivo" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Lee R. Copp" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Lionel Johnson" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["Martin [Keso] Keseg" ],[],
[0],
[[naddr: 1
1. email :
personal
local-part domain
]])
TESTADDR(["}{ristoph" ],[],
[0],
[naddr: 1
1. email :
personal <}{ristoph>
local-part domain
])
TESTADDR(["fmartens-2000" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["g'o'tz ohnesorge" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain
])
TESTADDR(["gao jie" ],[],
[0],
[naddr: 1
1. email :
personal
local-part domain