$:.unshift File.dirname(__FILE__) require 'tmail/address' require 'extctrl' require 'test/unit' class AddressTester < Test::Unit::TestCase def test_s_new a = TMail::Address.new(%w(aamine), %w(loveruby net)) assert_instance_of TMail::Address, a assert_nil a.phrase assert_equal [], a.routes assert_equal 'aamine@loveruby.net', a.spec end def test_local [ [ ['aamine'], 'aamine' ], [ ['Minero Aoki'], '"Minero Aoki"' ], [ ['!@#$%^&*()'], '"!@#$%^&*()"' ], [ ['a','b','c'], 'a.b.c' ] ].each_with_index do |(words, ok), idx| a = TMail::Address.new(words, nil) assert_equal ok, a.local, "case #{idx+1}: #{ok.inspect}" end end def test_domain [ [ ['loveruby','net'], 'loveruby.net' ], [ ['love ruby','net'], '"love ruby".net' ], [ ['!@#$%^&*()'], '"!@#$%^&*()"' ], [ ['[192.168.1.1]'], '[192.168.1.1]' ] ].each_with_index do |(words, ok), idx| a = TMail::Address.new(%w(test), words) assert_equal ok, a.domain, "case #{idx+1}: #{ok.inspect}" end end def test_EQUAL # == a = TMail::Address.new(%w(aamine), %w(loveruby net)) assert_equal a, a b = TMail::Address.new(%w(aamine), %w(loveruby net)) b.phrase = 'Minero Aoki' assert_equal a, b b.routes.push 'a' assert_equal a, b end def test_hash a = TMail::Address.new(%w(aamine), %w(loveruby net)) assert_equal a.hash, a.hash b = TMail::Address.new(%w(aamine), %w(loveruby net)) b.phrase = 'Minero Aoki' assert_equal a.hash, b.hash b.routes.push 'a' assert_equal a.hash, b.hash end def test_dup a = TMail::Address.new(%w(aamine), %w(loveruby net)) a.phrase = 'Minero Aoki' a.routes.push 'someroute' b = a.dup assert_equal a, b b.routes.push 'anyroute' assert_equal a, b b.phrase = 'AOKI, Minero' assert_equal a, b end def test_inspect a = TMail::Address.new(%w(aamine), %w(loveruby net)) a.inspect a.phrase = 'Minero Aoki' a.inspect a.routes.push 'a' a.routes.push 'b' a.inspect end def validate_case__address( str, ok ) a = TMail::Address.parse(str) assert_equal ok[:display_name], a.phrase, str.inspect + " (phrase)\n" assert_equal ok[:address], a.spec, str.inspect + " (spec)\n" assert_equal ok[:local], a.local, str.inspect + " (local)\n" assert_equal ok[:domain], a.domain, str.inspect + " (domain)\n" # assert_equal ok[:format], a.to_s, str.inspect + " (to_s)\n" end def validate_case__group( str, groupname, addrlist ) g = TMail::Address.parse(str) assert_instance_of TMail::AddressGroup, g assert_equal groupname, g.name assert_equal addrlist.size, g.size addrlist.each_with_index do |ok, idx| a = g[idx] assert_equal ok[:display_name], a.phrase, str.inspect + " (phrase)\n" assert_equal ok[:address], a.spec, str.inspect + " (spec)\n" assert_equal ok[:local], a.local, str.inspect + " (local)\n" assert_equal ok[:domain], a.domain, str.inspect + " (domain)\n" # assert_equal ok[:format], a.to_s, str.inspect + " (to_s)\n" end end def test_parse__address # # basic tests # validate_case__address 'aamine@loveruby.net', :display_name => nil, :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'aamine@loveruby.net' validate_case__address 'Minero Aoki ', :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' validate_case__address 'Minero Aoki', :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' validate_case__address '"Minero Aoki" ', :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' # integer in domain validate_case__address 'Minero Aoki', :display_name => 'Minero Aoki', :address => 'aamine@0246.loveruby.net', :local => 'aamine', :domain => '0246.loveruby.net', :format => 'Minero Aoki ' end def test_parse__dot validate_case__address 'hoge..test@docomo.ne.jp', :display_name => nil, :address => 'hoge..test@docomo.ne.jp', :local => 'hoge..test', :domain => 'docomo.ne.jp', :format => 'hoge..test@docomo.ne.jp' validate_case__address 'foo.bar.@docomo.ne.jp', :display_name => nil, :address => 'foo.bar.@docomo.ne.jp', :local => 'foo.bar.', :domain => 'docomo.ne.jp', :format => 'foo.bar.@docomo.ne.jp' end def test_parse__mime # "\306\374\313\334\270\354" # "\223\372\226{\214\352" # "\e$BF|K\\8l\e(B" # GyRCRnxLXDhsGyhC $KCODE = 'NONE' validate_case__address\ '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ', :display_name => "\e$BF|K\\8l\e(B", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' validate_case__address\ '=?iso-2022-jp?Q?=1b=24=42=46=7c=4b=5c=38=6c=1b=28=42?= ', :display_name => "\e$BF|K\\8l\e(B", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' $KCODE = 'EUC' validate_case__address\ '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ', :display_name => "\306\374\313\334\270\354", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' validate_case__address\ '=?iso-2022-jp?Q?=1b=24=42=46=7c=4b=5c=38=6c=1b=28=42?= ', :display_name => "\306\374\313\334\270\354", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' $KCODE = 'SJIS' validate_case__address\ '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ', :display_name => "\223\372\226{\214\352", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' validate_case__address\ '=?iso-2022-jp?Q?=1b=24=42=46=7c=4b=5c=38=6c=1b=28=42?= ', :display_name => "\223\372\226{\214\352", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => '=?iso-2022-jp?B?GyRCRnxLXDhsGyhC?= ' end def test_parse__rawjp begin $KCODE = 'EUC' _test_parse__euc _test_parse__jis ensure $KCODE = 'NONE' end end def _test_parse__euc # raw EUC-JP validate_case__address\ "\244\242\244\252\244\255 \244\337\244\315\244\355\244\246 ", :display_name => "\244\242\244\252\244\255 \244\337\244\315\244\355\244\246", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => "\244\242\244\252\244\255 \244\337\244\315\244\355\244\246 " end def _test_parse__jis # raw iso-2022-jp string in comment validate_case__address\ "Minero Aoki (\e$B@DLZJvO:\e(B) ", :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' validate_case__address\ "Minero Aoki (\e$B@DLZJvO:\e(B )", :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' # raw iso-2022-jp string in quoted-word (it includes backslash) validate_case__address\ %Q["\e$BF|K\\8l\e(B" ], :display_name => "\e$BF|K\\8l\e(B", :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' end def OFF_test_parse__group validate_case__group 'Softica: Minero Aoki ;', 'Softica', { :display_name => 'Minero Aoki', :address => 'aamine@loveruby.net', :local => 'aamine', :domain => 'loveruby.net', :format => 'Minero Aoki ' } end # # The following test cases are quoted from RubyMail 0.2 # (written by Matt Armstrong), with some modifications. # The copyright notice of the original file is: # # Copyright (c) 2001 Matt Armstrong. All rights reserved. # # Permission is granted for use, copying, modification, # distribution, and distribution of modified versions of this work # as long as the above copyright notice is included. # def test_parse__rfc2822 validate_case__address\ '"Joe Q. Public" ', :name => 'Joe Q. Public', :display_name => 'Joe Q. Public', :address => 'john.q.public@example.com', :comments => nil, :domain => 'example.com', :local => 'john.q.public', :format => '"Joe Q. Public" ' validate_case__address\ 'Who? ', :name => 'Who?', :display_name => 'Who?', :address => 'one@y.test', :comments => nil, :domain => 'y.test', :local => 'one', :format => 'Who? ' validate_case__address\ '"Giant; \"Big\" Box" ', :name => 'Giant; "Big" Box', :display_name => 'Giant; "Big" Box', :address => 'sysservices@example.net', :comments => nil, :domain => 'example.net', :local => 'sysservices', :format => '"Giant; \"Big\" Box" ' validate_case__address\ '"Mary Smith: Personal Account" ', :name => 'Mary Smith: Personal Account', :display_name => 'Mary Smith: Personal Account', :address => 'smith@home.example', :comments => nil, :domain => 'home.example', :local => 'smith', :format => '"Mary Smith: Personal Account" ' validate_case__address\ 'Pete(A wonderful \) chap) ', :name => 'Pete', :display_name => 'Pete', :address => 'pete@silly.test', :comments => ['A wonderful ) chap', 'his account', 'his host'], :domain => 'silly.test', :local => 'pete', #:format => 'Pete (A wonderful \) chap) (his account) (his host)' :format => 'Pete ' validate_case__address\ "Chris Jones ", :name => 'Chris Jones', :display_name => 'Chris Jones', :address => 'c@public.example', :comments => ['Chris\'s host.'], :domain => 'public.example', :local => 'c', #:format => 'Chris Jones (Chris\'s host.)' :format => 'Chris Jones ' validate_case__address\ 'Joe Q. Public ', :name => 'Joe Q.Public', :display_name => 'Joe Q.Public', :address => 'john.q.public@example.com', :comments => nil, :domain => 'example.com', :local => 'john.q.public', :format => '"Joe Q.Public" ' validate_case__address\ 'Mary Smith <@machine.tld:mary@example.net>', :name => 'Mary Smith', :display_name => 'Mary Smith', :address => 'mary@example.net', :comments => nil, :domain => 'example.net', :local => 'mary', #:format => 'Mary Smith ' :format => 'Mary Smith <@machine.tld:mary@example.net>' validate_case__address\ ' jdoe@test . example', :name => nil, :display_name => nil, :address => 'jdoe@test.example', :comments => nil, :domain => 'test.example', :local => 'jdoe', :format => 'jdoe@test.example' validate_case__address\ 'John Doe ', :name => 'John Doe', :display_name => 'John Doe', :address => 'jdoe@machine.example', :comments => ['comment'], :domain => 'machine.example', :local => 'jdoe', #:format => 'John Doe (comment)' :format => 'John Doe ' validate_case__address\ "Mary Smith\n\r \n ", :name => 'Mary Smith', :display_name => 'Mary Smith', :address => 'mary@example.net', :comments => nil, :domain => 'example.net', :local => 'mary', :format => 'Mary Smith ' end def test_parse__rfc822 validate_case__address\ '":sysmail"@ Some-Group. Some-Org', :name => nil, :display_name => nil, #:address => ':sysmail@Some-Group.Some-Org', :address => '":sysmail"@Some-Group.Some-Org', :comments => nil, :domain => 'Some-Group.Some-Org', #:local => ':sysmail', :local => '":sysmail"', :format => '":sysmail"@Some-Group.Some-Org' validate_case__address\ 'Muhammed.(I am the greatest) Ali @(the)Vegas.WBA', :name => 'the', :display_name => nil, :address => 'Muhammed.Ali@Vegas.WBA', :comments => ['I am the greatest', 'the'], :domain => 'Vegas.WBA', :local => 'Muhammed.Ali', #:format => 'Muhammed.Ali@Vegas.WBA (I am the greatest) (the)' :format => 'Muhammed.Ali@Vegas.WBA' validate_case__group\ 'A Group:Chris Jones ,joe@where.test,John ;', 'A Group', [ { :name => 'Chris Jones', :display_name => 'Chris Jones', :address => 'c@a.test', :comments => nil, :domain => 'a.test', :local => 'c', :format => 'Chris Jones ' }, { :name => nil, :display_name => nil, :address => 'joe@where.test', :comments => nil, :domain => 'where.test', :local => 'joe', :format => 'joe@where.test' }, { :name => 'John', :display_name => 'John', :address => 'jdoe@one.test', :comments => nil, :domain => 'one.test', :local => 'jdoe', :format => 'John ' } ] validate_case__group\ 'Undisclosed recipients:;', 'Undisclosed recipients', [ ] validate_case__group\ 'undisclosed recipients: ;', 'undisclosed recipients', [] validate_case__group\ "A Group(Some people)\r\n :Chris Jones ,\r\n joe@example.org", 'A Group', [ { :name => 'Chris Jones', :display_name => 'Chris Jones', :address => 'c@public.example', :comments => ['Chris\'s host.'], :domain => 'public.example', :local => 'c', :format => 'Chris Jones (Chris\'s host.)' }, { :name => nil, :display_name => nil, :address => 'joe@example.org', :comments => nil, :domain => 'example.org', :local => 'joe', :format => 'joe@example.org' } ] validate_case__group\ '(Empty list)(start)Undisclosed recipients :(nobody(that I know)) ;', 'Undisclosed recipients', [] end def test_parse__mailtools # # The following are from the Perl MailTools module version 1.40 # validate_case__address\ '"Joe & J. Harvey" ', :name => 'Joe & J. Harvey', :display_name => 'Joe & J. Harvey', :address => 'ddd@Org', :comments => nil, :domain => 'Org', :local => 'ddd', :format => '"Joe & J. Harvey" ' validate_case__address\ '"spickett@tiac.net" ', :name => 'spickett@tiac.net', :display_name => 'spickett@tiac.net', :address => 'Sean.Pickett@zork.tiac.net', :comments => nil, :domain => 'zork.tiac.net', :local => 'Sean.Pickett', :format => '"spickett@tiac.net" ' validate_case__address\ 'rls@intgp8.ih.att.com (-Schieve,R.L.)', :name => '-Schieve,R.L.', :display_name => nil, :address => 'rls@intgp8.ih.att.com', :comments => ['-Schieve,R.L.'], :domain => 'intgp8.ih.att.com', :local => 'rls', #:format => 'rls@intgp8.ih.att.com (-Schieve,R.L.)' :format => 'rls@intgp8.ih.att.com' validate_case__address\ 'jrh%cup.portal.com@portal.unix.portal.com', :name => nil, :display_name => nil, :address => 'jrh%cup.portal.com@portal.unix.portal.com', :comments => nil, :domain => 'portal.unix.portal.com', :local => 'jrh%cup.portal.com', :format => 'jrh%cup.portal.com@portal.unix.portal.com' validate_case__address\ 'astrachan@austlcm.sps.mot.com (\'paul astrachan/xvt3\')', :name => '\'paul astrachan/xvt3\'', :display_name => nil, :address => 'astrachan@austlcm.sps.mot.com', :comments => ["'paul astrachan/xvt3'"], :domain => 'austlcm.sps.mot.com', :local => 'astrachan', #:format => "astrachan@austlcm.sps.mot.com ('paul astrachan/xvt3')" :format => 'astrachan@austlcm.sps.mot.com' validate_case__address\ 'TWINE57%SDELVB.decnet@SNYBUF.CS.SNYBUF.EDU (JAMES R. TWINE - THE NERD)', :name => 'JAMES R. TWINE - THE NERD', :display_name => nil, :address => 'TWINE57%SDELVB.decnet@SNYBUF.CS.SNYBUF.EDU', :comments => ['JAMES R. TWINE - THE NERD'], :domain => 'SNYBUF.CS.SNYBUF.EDU', :local => 'TWINE57%SDELVB.decnet', :format => 'TWINE57%SDELVB.decnet@SNYBUF.CS.SNYBUF.EDU' #'TWINE57%SDELVB.decnet@SNYBUF.CS.SNYBUF.EDU (JAMES R. TWINE - THE NERD)' validate_case__address\ 'David Apfelbaum ', :name => 'David Apfelbaum', :display_name => 'David Apfelbaum', :address => 'da0g+@andrew.cmu.edu', :comments => nil, :domain => 'andrew.cmu.edu', :local => 'da0g+', :format => 'David Apfelbaum ' validate_case__address\ '"JAMES R. TWINE - THE NERD" ', :name => 'JAMES R. TWINE - THE NERD', :display_name => 'JAMES R. TWINE - THE NERD', :address => 'TWINE57%SDELVB%SNYDELVA.bitnet@CUNYVM.CUNY.EDU', :comments => nil, :domain => 'CUNYVM.CUNY.EDU', :local => 'TWINE57%SDELVB%SNYDELVA.bitnet', :format => '"JAMES R. TWINE - THE NERD" ' validate_case__address\ '/G=Owen/S=Smith/O=SJ-Research/ADMD=INTERSPAN/C=GB/@mhs-relay.ac.uk', :name => nil, :display_name => nil, :address => '/G=Owen/S=Smith/O=SJ-Research/ADMD=INTERSPAN/C=GB/@mhs-relay.ac.uk', :comments => nil, :domain => 'mhs-relay.ac.uk', :local => '/G=Owen/S=Smith/O=SJ-Research/ADMD=INTERSPAN/C=GB/', :format => '/G=Owen/S=Smith/O=SJ-Research/ADMD=INTERSPAN/C=GB/@mhs-relay.ac.uk' validate_case__address\ '"Stephen Burke, Liverpool" ', :name => 'Stephen Burke, Liverpool', :display_name => 'Stephen Burke, Liverpool', :address => 'BURKE@vxdsya.desy.de', :comments => nil, :domain => 'vxdsya.desy.de', :local => 'BURKE', :format => '"Stephen Burke, Liverpool" ' validate_case__address\ 'The Newcastle Info-Server ', :name => 'The Newcastle Info-Server', :display_name => 'The Newcastle Info-Server', :address => 'info-admin@newcastle.ac.uk', :comments => nil, :domain => 'newcastle.ac.uk', :local => 'info-admin', :format => 'The Newcastle Info-Server ' validate_case__address\ 'Suba.Peddada@eng.sun.com (Suba Peddada [CONTRACTOR])', :name => 'Suba Peddada [CONTRACTOR]', :display_name => nil, :address => 'Suba.Peddada@eng.sun.com', :comments => ['Suba Peddada [CONTRACTOR]'], :domain => 'eng.sun.com', :local => 'Suba.Peddada', #:format => 'Suba.Peddada@eng.sun.com (Suba Peddada [CONTRACTOR])' :format => 'Suba.Peddada@eng.sun.com' validate_case__address\ 'Paul Manser (0032 memo) ', :name => 'Paul Manser', :display_name => 'Paul Manser', :address => 'a906187@tiuk.ti.com', :comments => ['0032 memo'], :domain => 'tiuk.ti.com', :local => 'a906187', #:format => 'Paul Manser (0032 memo)' :format => 'Paul Manser ' validate_case__address\ '"gregg (g.) woodcock" ', :name => 'gregg (g.) woodcock', :display_name => 'gregg (g.) woodcock', :address => 'woodcock@bnr.ca', :comments => nil, :domain => 'bnr.ca', :local => 'woodcock', :format => '"gregg (g.) woodcock" ' validate_case__address\ 'Graham.Barr@tiuk.ti.com', :name => nil, :display_name => nil, :address => 'Graham.Barr@tiuk.ti.com', :comments => nil, :domain => 'tiuk.ti.com', :local => 'Graham.Barr', :format => 'Graham.Barr@tiuk.ti.com' validate_case__address\ 'a909937 (Graham Barr (0004 bodg))', :name => 'Graham Barr (0004 bodg)', :display_name => nil, :address => 'a909937', :comments => ['Graham Barr (0004 bodg)'], :domain => nil, :local => 'a909937', #:format => 'a909937 (Graham Barr \(0004 bodg\))' :format => 'a909937' validate_case__address\ "david d `zoo' zuhn ", :name => "david d `zoo' zuhn", :display_name => "david d `zoo' zuhn", :address => 'zoo@aggregate.com', :comments => nil, :domain => 'aggregate.com', :local => 'zoo', :format => "david d `zoo' zuhn " validate_case__address\ '(foo@bar.com (foobar), ned@foo.com (nedfoo) ) ', :name => 'foo@bar.com (foobar), ned@foo.com (nedfoo) ', :display_name => nil, :address => 'kevin@goess.org', :comments => ['foo@bar.com (foobar), ned@foo.com (nedfoo) '], :domain => 'goess.org', :local => 'kevin', :format => 'kevin@goess.org' #'kevin@goess.org (foo@bar.com \(foobar\), ned@foo.com \(nedfoo\) )' end def test_parse__pythonbuglist # # From Python address parsing bug list. # This is valid according to RFC2822. # validate_case__address\ 'Amazon.com ', :name => 'Amazon.com', :display_name => 'Amazon.com', :address => 'delivers-news2@amazon.com', :comments => nil, :domain => 'amazon.com', :local => 'delivers-news2', :format => '"Amazon.com" ' validate_case__address\ "\r\n Amazon \r . \n com \t < delivers-news2@amazon.com > \n ", :name => 'Amazon.com', :display_name => 'Amazon.com', :address => 'delivers-news2@amazon.com', :comments => nil, :domain => 'amazon.com', :local => 'delivers-news2', :format => '"Amazon.com" ' # From postfix-users@postfix.org # Date: Tue, 13 Nov 2001 10:58:23 -0800 # Subject: Apparent bug in strict_rfc821_envelopes (Snapshot-20010714) validate_case__address\ '"mailto:rfc"@monkeys.test', :name => nil, :display_name => nil, #:address => 'mailto:rfc@monkeys.test', :address => '"mailto:rfc"@monkeys.test', :comments => nil, :domain => 'monkeys.test', #:local => 'mailto:rfc', :local => '"mailto:rfc"', :format => '"mailto:rfc"@monkeys.test' # An unquoted mailto:rfc will end up having the mailto: portion # discarded as a group name. validate_case__group\ 'mailto:rfc@monkeys.test', 'mailto', [ { :name => nil, :display_name => nil, :address => 'rfc@monkeys.test', :comments => nil, :domain => 'monkeys.test', :local => 'rfc', :format => 'rfc@monkeys.test' } ] # From gnu.emacs.help # Date: 24 Nov 2001 15:37:23 -0500 validate_case__address\ '"Stefan Monnier " ', :name => 'Stefan Monnier ', :display_name => 'Stefan Monnier ', :address => 'monnier+gnu.emacs.help/news/@flint.cs.yale.edu', :comments => nil, :domain => 'flint.cs.yale.edu', :local => 'monnier+gnu.emacs.help/news/', :format => '"Stefan Monnier " ' validate_case__address\ '"foo:" . bar@somewhere.test', :name => nil, :display_name => nil, #:address => 'foo:.bar@somewhere.test', :address => '"foo:".bar@somewhere.test', :comments => nil, :domain => 'somewhere.test', #:local => 'foo:.bar', :local => '"foo:".bar', #:format => '"foo:.bar"@somewhere.test' :format => '"foo:".bar@somewhere.test' validate_case__address\ 'Some Dude <"foo:" . bar@somewhere.test>', :name => 'Some Dude', :display_name => 'Some Dude', #:address => 'foo:.bar@somewhere.test', :address => '"foo:".bar@somewhere.test', :comments => nil, :domain => 'somewhere.test', #:local => 'foo:.bar', :local => '"foo:".bar', #:format => 'Some Dude <"foo:.bar"@somewhere.test>' :format => 'Some Dude <"foo:".bar@somewhere.test>' validate_case__address\ '"q\uo\ted"@example.com', :name => nil, :display_name => nil, :address => 'quoted@example.com', :comments => nil, :domain => 'example.com', :local => 'quoted', :format => 'quoted@example.com' validate_case__address\ 'Luke Skywalker <"use"."the.force"@space.test>', :name => 'Luke Skywalker', :display_name => 'Luke Skywalker', #:address => 'use.the.force@space.test', :address => 'use."the.force"@space.test', :comments => nil, :domain => 'space.test', #:local => 'use.the.force', :local => 'use."the.force"', #:format => 'Luke Skywalker ' :format => 'Luke Skywalker ' validate_case__address\ 'Erik =?ISO-8859-1?Q?B=E5gfors?= ', :name => 'Erik =?ISO-8859-1?Q?B=E5gfors?=', :display_name => 'Erik =?ISO-8859-1?Q?B=E5gfors?=', :address => 'erik@example.net', :comments => nil, :domain => 'example.net', :local => 'erik', :format => 'Erik =?ISO-8859-1?Q?B=E5gfors?= ' end def test_parse__outofspec =begin validate_case__address\ 'bodg fred@tiuk.ti.com', :name => nil, :display_name => nil, :address => 'bodg fred@tiuk.ti.com', :comments => nil, :domain => 'tiuk.ti.com', :local => 'bodg fred', :format => '"bodg fred"@tiuk.ti.com' validate_case__address\ '', :name => nil, :display_name => nil, :address => 'Investor Alert@example.com', :comments => nil, :domain => 'example.com', :local => 'Investor Alert', :format => '"Investor Alert"@example.com' =end validate_case__address\ '"" ', :name => nil, :display_name => nil, :address => 'bob@example.com', :comments => nil, :domain => 'example.com', :local => 'bob', :format => 'bob@example.com' validate_case__address '"" <""@example.com>', :name => nil, :display_name => nil, :address => '""@example.com', :comments => nil, :domain => 'example.com', :local => '""', :format => '""@example.com' assert_raise(TMail::SyntaxError) { TMail::Address.parse '@example.com' } validate_case__address\ 'bob', :name => nil, :display_name => nil, :address => 'bob', :comments => nil, :domain => nil, :local => 'bob', :format => 'bob' =begin validate_case__address\ ['bob,sally, sam', [ { :name => nil, :display_name => nil, :address => 'bob', :comments => nil, :domain => nil, :local => 'bob', :format => 'bob' }, { :name => nil, :display_name => nil, :address => 'sally', :comments => nil, :domain => nil, :local => 'sally', :format => 'sally' }, { :name => nil, :display_name => nil, :address => 'sam', :comments => nil, :domain => nil, :local => 'sam', :format => 'sam' }] ] =end assert_raises(TMail::SyntaxError) { TMail::Address.parse 'Undisclosed <>' } assert_raises(TMail::SyntaxError) { TMail::Address.parse '"Mensagem Automatica do Terra" <>' } # These test cases are meanful in Japanese charset context. # validate_case(["\177", []]) # validate_case(["\177\177\177", []]) end def test_parse__domainliteral validate_case__address\ 'test@[domain]', :name => nil, :display_name => nil, :address => 'test@[domain]', :comments => nil, :domain => '[domain]', :local => 'test', :format => '' validate_case__address\ '<@[obsdomain]:test@[domain]>', :name => nil, :display_name => nil, :address => 'test@[domain]', :comments => nil, :domain => '[domain]', :local => 'test', :format => '' validate_case__address\ '<@[ob\]sd\\\\omain]:test@[dom\]ai\\\\n]>', :name => nil, :display_name => nil, :address => 'test@[dom]ai\\n]', :comments => nil, :domain => '[dom]ai\\n]', :local => 'test', :format => '' # ALL 'route's have '@' prefix so this example is wrong. #"Bob \r<@machine.tld \r,\n [obsdomain]\t:\ntest @ [domain]>", validate_case__address\ "Bob \r<@machine.tld \r,\n @[obsdomain]\t:\ntest @ [domain]>", :name => 'Bob', :display_name => 'Bob', :address => 'test@[domain]', :comments => nil, :domain => '[domain]', :local => 'test', :format => 'Bob ' end def test_exhaustive() # We don't test every alphanumeric in atext -- assume that if a, m # and z work, they all will. atext = ('a'..'z').to_a + ('A'..'Z').to_a + ('0'..'9').to_a + '!#$%&\'*+-/=?^_`{|}~'.split(//) #/ boring = ('b'..'l').to_a + ('n'..'o').to_a + ('p'..'y').to_a + ('B'..'L').to_a + ('N'..'O').to_a + ('P'..'Y').to_a + ('1'..'4').to_a + ('6'..'8').to_a (atext - boring).each do |ch| validate_case__address\ "#{ch} <#{ch}@test>", :name => ch, :display_name => ch, :address => "#{ch}@test", :comments => nil, :domain => 'test', :local => ch, :format => ch + ' <' + ch + '@test>' end validate_case__address\ atext.join('') + ' <' + atext.join('') + '@test>', :name => atext.join(''), :display_name => atext.join(''), :address => atext.join('') + '@test', :comments => nil, :domain => 'test', :local => atext.join(''), :format => atext.join('') + ' <' + atext.join('') + '@test>' ascii = (0..127).collect {|i| i.chr } whitespace = ["\r", "\n", ' ', "\t"] # I remove ESC from this list because TMail is ESC sensitive. qtext = ascii - (whitespace + ['"', '\\'] + ["\e"]) ctext = ascii - (whitespace + ['(', ')', '\\'] + ["\e"]) dtext = ascii - (whitespace + ['[', ']', '\\'] + ["\e"]) (qtext - atext).each do |ch| validate_case__address\ %Q("#{ch}" <"#{ch}"@test>), :name => ch, :display_name => ch, :address => %Q("#{ch}"@test), :comments => nil, :domain => 'test', :local => %Q("#{ch}"), :format => %Q("#{ch}" <"#{ch}"@test>) end ['"', "\\"].each do |ch| validate_case__address\ %Q("\\#{ch}" <"\\#{ch}"@test>), :name => ch, :display_name => ch, :address => %Q("\\#{ch}"@test), :comments => nil, :domain => 'test', :local => %Q("\\#{ch}"), :format => %Q("\\#{ch}" <"\\#{ch}"@test>) end =begin TMail does not have #comments in Address. (ctext - boring).each do |ch| validate_case__address\ "bob@test (#{ch})", :name => ch, :display_name => nil, :address => 'bob@test', :comments => ["#{ch}"], :domain => 'test', :local => 'bob', :format => "bob@test (#{ch})" validate_case__address\ "bob@test (\\#{ch})", :name => ch, :display_name => nil, :address => 'bob@test', :comments => ["#{ch}"], :domain => 'test', :local => 'bob', :format => "bob@test (#{ch})" end [')', '(', '\\'].each do |ch| validate_case__address\ "bob@test (\\#{ch})", :name => ch, :display_name => nil, :address => 'bob@test', :comments => ["#{ch}"], :domain => 'test', :local => 'bob', :format => "bob@test (\\#{ch})" end =end (dtext - boring).each do |ch| validate_case__address\ "test@[\\#{ch}] (Sam)", :name => "Sam", :display_name => nil, :address => 'test@[' + ch + ']', :comments => ["Sam"], :domain => '[' + ch + ']', :local => 'test', :format => " (Sam)" validate_case__address\ "Sally ", :name => 'Sally', :display_name => 'Sally', :address => "test@[#{ch}]", :comments => nil, :domain => "[#{ch}]", :local => 'test', :format => "Sally " end validate_case__address\ "test@[" + (dtext - boring).join('') + "]", :name => nil, :display_name => nil, :address => 'test@[' + (dtext - boring).join('') + "]", :comments => nil, :domain => '[' + (dtext - boring).join('') + ']', :local => 'test', :format => '' validate_case__address\ 'Bob ', :name => "Bob", :display_name => "Bob", :address => 'test@[' + (dtext - boring).join('') + "]", :comments => nil, :domain => '[' + (dtext - boring).join('') + ']', :local => 'test', :format => 'Bob ' end end