vcard 0.1.1 → 0.2.0

data/lib/vcard/version.rb

@@ -0,0 +1,3 @@
+module Vcard
+  VERSION = "0.2.0"
+end

data/test/field_test.rb

@@ -1,15 +1,15 @@
-require 'test_helper'
-
-Field=Vpim::DirectoryInfo::Field
+require "test_helper"
 
 class FieldTest < Test::Unit::TestCase
 
+  Field = Vcard::DirectoryInfo::Field
+
   def test_encode_decode_text()
     enc_in = "+\\\\+\\n+\\N+\\,+\\;+\\a+\\b+\\c+"
-    dec = Vpim.decode_text(enc_in)
+    dec = Vcard.decode_text(enc_in)
     #puts("<#{enc_in}> => <#{dec}>")
     assert_equal("+\\+\n+\n+,+;+a+b+c+", dec)
-    enc_out = Vpim.encode_text(dec)
+    enc_out = Vcard.encode_text(dec)
     should_be = "+\\\\+\\n+\\n+\\,+\\;+a+b+c+"
     # Note a, b, and c are allowed to be escaped, but shouldn't be and
     # aren't in output
@@ -19,23 +19,23 @@ class FieldTest < Test::Unit::TestCase
   end
 
   def test_field4
-    line = 't;e=a,b: 4 '
+    line = "t;e=a,b: 4 "
     part = Field.decode0(line)
     assert_equal("4", part[ 3 ])
   end
 
   def test_field3
-    line = 't;e=a,b:4'
+    line = "t;e=a,b:4"
     part = Field.decode0(line)
     assert_equal("4", part[ 3 ])
-    assert_equal( {'E' => [ 'a','b' ] }, part[ 2 ])
+    assert_equal( {"E" => [ "a","b" ] }, part[ 2 ])
   end
 
   def test_field2
-    line = 'tel;type=work,voice,msg:+1 313 747-4454'
+    line = "tel;type=work,voice,msg:+1 313 747-4454"
     part = Field.decode0(line)
     assert_equal("+1 313 747-4454", part[ 3 ])
-    assert_equal( {'TYPE' => [ 'work','voice','msg' ] }, part[ 2 ])
+    assert_equal( {"TYPE" => [ "work","voice","msg" ] }, part[ 2 ])
   end
 
   def test_field1
@@ -43,9 +43,9 @@ class FieldTest < Test::Unit::TestCase
     parts = Field.decode0(line)
 
     assert_equal(nil, parts[0])
-    assert_equal('ORGANIZER', parts[1])
-    assert_equal({ 'CN' => [ "xxxx, xxxx [SC100:370:EXCH]" ] }, parts[2])
-    assert_equal('MAILTO:xxxx@americasm01.nt.com', parts[3])
+    assert_equal("ORGANIZER", parts[1])
+    assert_equal({ "CN" => [ "xxxx, xxxx [SC100:370:EXCH]" ] }, parts[2])
+    assert_equal("MAILTO:xxxx@americasm01.nt.com", parts[3])
   end
 
 =begin this can not be done :-(
@@ -66,87 +66,87 @@ class FieldTest < Test::Unit::TestCase
 =end
 
   def test_field0
-    assert_equal('name:', line = Field.encode0(nil, 'name'))
-    assert_equal([ nil, 'NAME', {}, ''], Field.decode0(line))
+    assert_equal("name:", line = Field.encode0(nil, "name"))
+    assert_equal([ nil, "NAME", {}, ""], Field.decode0(line))
 
-    assert_equal('name:value', line = Field.encode0(nil, 'name', {}, 'value'))
-    assert_equal([ nil, 'NAME', {}, 'value'], Field.decode0(line))
+    assert_equal("name:value", line = Field.encode0(nil, "name", {}, "value"))
+    assert_equal([ nil, "NAME", {}, "value"], Field.decode0(line))
 
-    assert_equal('name;encoding=B:dmFsdWU=', line = Field.encode0(nil, 'name', { 'encoding'=>:b64 }, 'value'))
-    assert_equal([ nil, 'NAME', { 'ENCODING'=>['B']}, ['value'].pack('m').chomp ], Field.decode0(line))
+    assert_equal("name;encoding=B:dmFsdWU=", line = Field.encode0(nil, "name", { "encoding"=>:b64 }, "value"))
+    assert_equal([ nil, "NAME", { "ENCODING"=>["B"]}, ["value"].pack("m").chomp ], Field.decode0(line))
 
-    assert_equal('group.name:value', line = Field.encode0('group', 'name', {}, 'value'))
-    assert_equal([ 'GROUP', 'NAME', {}, 'value'], Field.decode0(line))
+    assert_equal("group.name:value", line = Field.encode0("group", "name", {}, "value"))
+    assert_equal([ "GROUP", "NAME", {}, "value"], Field.decode0(line))
   end
 
   def tEst_invalid_fields
     [
-      'g.:',
-      ':v',
+      "g.:",
+      ":v",
     ].each do |line|
-      assert_raises(Vpim::InvalidEncodingError) { Field.decode0(line) }
+      assert_raises(Vcard::InvalidEncodingError) { Field.decode0(line) }
     end
   end
 
   def test_date_encode
-    assert_equal("DTSTART:20040101\n", Field.create('DTSTART',  Date.new(2004, 1, 1) ).to_s)
-    assert_equal("DTSTART:20040101\n", Field.create('DTSTART', [Date.new(2004, 1, 1)]).to_s)
+    assert_equal("DTSTART:20040101\n", Field.create("DTSTART",  Date.new(2004, 1, 1) ).to_s)
+    assert_equal("DTSTART:20040101\n", Field.create("DTSTART", [Date.new(2004, 1, 1)]).to_s)
   end
 
   def test_field_modify
-    f = Field.create('name')
+    f = Field.create("name")
 
-    assert_equal('', f.value)
-    f.value = ''
-    assert_equal('', f.value)
-    f.value = 'z'
-    assert_equal('z', f.value)
+    assert_equal("", f.value)
+    f.value = ""
+    assert_equal("", f.value)
+    f.value = "z"
+    assert_equal("z", f.value)
 
-    f.group = 'z.b'
-    assert_equal('Z.B', f.group)
+    f.group = "z.b"
+    assert_equal("Z.B", f.group)
     assert_equal("z.b.NAME:z\n", f.encode)
 
     assert_raises(TypeError) { f.value = :group }
 
-    assert_equal('Z.B', f.group)
+    assert_equal("Z.B", f.group)
 
     assert_equal("z.b.NAME:z\n", f.encode)
 
     assert_raises(TypeError) { f.group = :group }
 
     assert_equal("z.b.NAME:z\n", f.encode)
-    assert_equal('Z.B', f.group)
+    assert_equal("Z.B", f.group)
 
-    f['p0'] = "hi julie"
+    f["p0"] = "hi julie"
 
     assert_equal("Z.B.NAME;P0=hi julie:z\n", f.encode)
-    assert_equal(['hi julie'], f.param('p0'))
-    assert_equal(['hi julie'], f['p0'])
-    assert_equal('NAME', f.name)
-    assert_equal('Z.B', f.group)
+    assert_equal(["hi julie"], f.param("p0"))
+    assert_equal(["hi julie"], f["p0"])
+    assert_equal("NAME", f.name)
+    assert_equal("Z.B", f.group)
 
-    # FAIL   assert_raises(ArgumentError) { f.group = 'z.b:' }
+    # FAIL   assert_raises(ArgumentError) { f.group = "z.b:" }
 
-    assert_equal('Z.B', f.group)
+    assert_equal("Z.B", f.group)
 
-    f.value = 'some text'
+    f.value = "some text"
 
-    assert_equal('some text', f.value)
-    assert_equal('some text', f.value_raw)
+    assert_equal("some text", f.value)
+    assert_equal("some text", f.value_raw)
 
-    f['encoding'] = :b64
+    f["encoding"] = :b64
 
-    assert_equal('some text', f.value)
-    assert_equal([ 'some text' ].pack('m*').chomp, f.value_raw)
+    assert_equal("some text", f.value)
+    assert_equal([ "some text" ].pack("m*").chomp, f.value_raw)
   end
 
   def test_field_wrapping
-    assert_equal("0:x\n",             Vpim::DirectoryInfo::Field.create('0', 'x' * 1).encode(4))
-    assert_equal("0:xx\n",            Vpim::DirectoryInfo::Field.create('0', 'x' * 2).encode(4))
-    assert_equal("0:xx\n x\n",        Vpim::DirectoryInfo::Field.create('0', 'x' * 3).encode(4))
-    assert_equal("0:xx\n xx\n",       Vpim::DirectoryInfo::Field.create('0', 'x' * 4).encode(4))
-    assert_equal("0:xx\n xxxx\n",     Vpim::DirectoryInfo::Field.create('0', 'x' * 6).encode(4))
-    assert_equal("0:xx\n xxxx\n x\n", Vpim::DirectoryInfo::Field.create('0', 'x' * 7).encode(4))
+    assert_equal("0:x\n",             Vcard::DirectoryInfo::Field.create("0", "x" * 1).encode(4))
+    assert_equal("0:xx\n",            Vcard::DirectoryInfo::Field.create("0", "x" * 2).encode(4))
+    assert_equal("0:xx\n x\n",        Vcard::DirectoryInfo::Field.create("0", "x" * 3).encode(4))
+    assert_equal("0:xx\n xx\n",       Vcard::DirectoryInfo::Field.create("0", "x" * 4).encode(4))
+    assert_equal("0:xx\n xxxx\n",     Vcard::DirectoryInfo::Field.create("0", "x" * 6).encode(4))
+    assert_equal("0:xx\n xxxx\n x\n", Vcard::DirectoryInfo::Field.create("0", "x" * 7).encode(4))
   end
 end
 

data/test/fixtures/bday_decode.vcard

@@ -0,0 +1,3 @@
+BEGIN:VCARD
+BDAY:1970-07-14
+END:VCARD

data/test/fixtures/bday_decode_2.vcard

@@ -0,0 +1,6 @@
+BEGIN:VCARD
+BDAY:1970-07-14
+BDAY:70-7-14
+BDAY:1970-07-15T03:45:12
+BDAY:1970-07-15T03:45:12Z
+END:VCARD

data/test/fixtures/empty_tel.vcard

@@ -0,0 +1,3 @@
+BEGIN:VCARD
+TEL;HOME;FAX:
+END:VCARD

data/test/fixtures/ex1.vcard

@@ -0,0 +1,7 @@
+cn:
+cn:Babs Jensen
+cn:Barbara J Jensen
+sn:Jensen
+email:babs@umich.edu
+phone:+1 313 747-4454
+x-id:1234567890

data/test/fixtures/ex2.vcard

@@ -0,0 +1,9 @@
+begin:VCARD
+source:ldap://cn=bjorn%20Jensen, o=university%20of%20Michigan, c=US
+name:Bjorn Jensen
+fn:Bj=F8rn Jensen
+n:Jensen;Bj=F8rn
+email;type=internet:bjorn@umich.edu
+tel;type=work,voice,msg:+1 313 747-4454
+key;type=x509;encoding=B:dGhpcyBjb3VsZCBiZSAKbXkgY2VydGlmaWNhdGUK
+end:VCARD

data/test/fixtures/ex3.vcard

@@ -0,0 +1,30 @@
+begin:vcard
+source:ldap://cn=Meister%20Berger,o=Universitaet%20Goerlitz,c=DE
+name:Meister Berger
+fn:Meister Berger
+n:Berger;Meister
+bday;value=date:1963-09-21
+o:Universit=E6t G=F6rlitz
+title:Mayor
+title;language=de;value=text:Burgermeister
+note:The Mayor of the great city of
+  Goerlitz in the great country of Germany.
+email;internet:mb@goerlitz.de
+home.tel;type=fax,voice,msg:+49 3581 123456
+home.label:Hufenshlagel 1234\n
+ 02828 Goerlitz\n
+ Deutschland
+key;type=X509;encoding=b:MIICajCCAdOgAwIBAgICBEUwDQYJKoZIhvcNAQEEBQ
+ AwdzELMAkGA1UEBhMCVVMxLDAqBgNVBAoTI05ldHNjYXBlIENvbW11bmljYXRpb25zI
+ ENvcnBvcmF0aW9uMRwwGgYDVQQLExNJbmZvcm1hdGlvbiBTeXN0ZW1zMRwwGgYDVQQD
+ ExNyb290Y2EubmV0c2NhcGUuY29tMB4XDTk3MDYwNjE5NDc1OVoXDTk3MTIwMzE5NDc
+ 1OVowgYkxCzAJBgNVBAYTAlVTMSYwJAYDVQQKEx1OZXRzY2FwZSBDb21tdW5pY2F0aW
+ 9ucyBDb3JwLjEYMBYGA1UEAxMPVGltb3RoeSBBIEhvd2VzMSEwHwYJKoZIhvcNAQkBF
+ hJob3dlc0BuZXRzY2FwZS5jb20xFTATBgoJkiaJk/IsZAEBEwVob3dlczBcMA0GCSqG
+ SIb3DQEBAQUAA0sAMEgCQQC0JZf6wkg8pLMXHHCUvMfL5H6zjSk4vTTXZpYyrdN2dXc
+ oX49LKiOmgeJSzoiFKHtLOIboyludF90CgqcxtwKnAgMBAAGjNjA0MBEGCWCGSAGG+E
+ IBAQQEAwIAoDAfBgNVHSMEGDAWgBT84FToB/GV3jr3mcau+hUMbsQukjANBgkqhkiG9
+ w0BAQQFAAOBgQBexv7o7mi3PLXadkmNP9LcIPmx93HGp0Kgyx1jIVMyNgsemeAwBM+M
+ SlhMfcpbTrONwNjZYW8vJDSoi//yrZlVt9bJbs7MNYZVsyF1unsqaln4/vy6Uawfg8V
+ UMk1U7jt8LYpo4YULU7UZHPYVUaSgVttImOHZIKi4hlPXBOhcUQ==
+end:vcard

data/test/fixtures/ex_21.vcard

@@ -0,0 +1,16 @@
+BEGIN:VCARD
+VERSION:2.1
+X-EVOLUTION-FILE-AS:AAA Our Fax
+FN:AAA Our Fax
+N:AAA Our Fax
+ADR;WORK;PREF:
+LABEL;WORK;PREF:
+TEL;WORK;FAX:925 833-7660
+TEL;HOME;FAX:925 833-7660
+TEL;VOICE:1
+TEL;FAX:2
+EMAIL;INTERNET:e@c
+TITLE:
+NOTE:
+UID:pas-id-3F93E22900000001
+END:VCARD

data/test/fixtures/ex_21_case0.vcard

@@ -0,0 +1,15 @@
+BEGIN:VCARD
+VERSION:2.1
+N:Middle Family;Ny_full
+TEL;PREF;HOME;VOICE:0123456789
+TEL;FAX:0123456789
+TEL;CELL;VOICE:0123456789
+TEL;HOME;VOICE:0123456789
+TEL;WORK;VOICE:0123456789
+EMAIL:email@email.com
+EMAIL:work@work.com
+URL:www.email.com
+URL:www.work.com
+LABEL;CHARSET=ISO-8859-1;ENCODING=QUOTED-PRINTABLE:Box 1234=0AWorkv=E4gen =
+  2=0AWorkv=E4gen 1=0AUme=E5=0AV=E4sterbotten=0A12345=0AS
+END:VCARD

data/test/fixtures/ex_apple1.vcard

@@ -0,0 +1,13 @@
+BEGIN:VCARD
+VERSION:3.0
+N:Roberts;Sam;;;
+FN:Roberts Sam
+EMAIL;type=HOME;type=pref:sroberts@uniserve.com
+TEL;type=WORK;type=pref:905-501-3781
+TEL;type=FAX:905-907-4230
+TEL;type=HOME:416 535 5341
+ADR;type=HOME;type=pref:;;376 Westmoreland Ave.;Toronto;ON;M6H 3
+ A6;Canada
+NOTE:CATEGORIES: Amis/Famille
+BDAY;value=date:1970-07-14
+END:VCARD

data/test/fixtures/ex_attach.vcard

@@ -0,0 +1,16 @@
+BEGIN:VCARD
+VERSION:3.0
+N:Middle Family;Ny_full
+PHOTO:val\nue
+PHOTO;encoding=8bit:val\nue
+PHOTO;encoding=8bit:val\nue
+PHOTO;encoding=8bit;type=atype:val\nue
+PHOTO;value=binary;encoding=8bit:val\nue
+PHOTO;value=binary;encoding=8bit:val\nue
+PHOTO;value=binary;encoding=8bit;type=atype:val\nue
+PHOTO;value=text;encoding=8bit:val\nue
+PHOTO;value=text;encoding=8bit:val\nue
+PHOTO;value=text;encoding=8bit;type=atype:val\nue
+PHOTO;value=uri:my://
+PHOTO;value=uri;type=atype:my://
+END:VCARD

data/test/fixtures/ex_bdays.vcard

@@ -0,0 +1,8 @@
+BEGIN:VCARD
+BDAY;value=date:206-12-15
+END:VCARD
+BEGIN:VCARD
+BDAY;value=date:2003-12-09
+END:VCARD
+BEGIN:VCARD
+END:VCARD

data/test/fixtures/ex_encode_1.vcard

@@ -0,0 +1,10 @@
+BEGIN:VCARD
+VERSION:3.0
+N:Roberts;Sam;;;
+FN:Roberts Sam
+EMAIL;type=HOME;type=pref:sroberts@uniserve.com
+TEL;type=HOME:416 535 5341
+ADR;type=HOME;type=pref:;;376 Westmoreland Ave.;Toronto;ON;M6H 3A6;Canada
+NOTE:CATEGORIES: Amis/Famille
+BDAY;value=date:1970-07-14
+END:VCARD

data/test/fixtures/ex_ical_1.vcal

@@ -0,0 +1,47 @@
+BEGIN:VCALENDAR
+CALSCALE:GREGORIAN
+X-WR-TIMEZONE;VALUE=TEXT:Canada/Eastern
+METHOD:PUBLISH
+PRODID:-//Apple Computer\, Inc//iCal 1.0//EN
+X-WR-RELCALID;VALUE=TEXT:18E75B8C-5722-11D7-AB0B-000393AD088C
+X-WR-CALNAME;VALUE=TEXT:Events
+VERSION:2.0
+BEGIN:VEVENT
+SEQUENCE:14
+UID:18E74C28-5722-11D7-AB0B-000393AD088C
+DTSTAMP:20030301T171521Z
+SUMMARY:Bob Log III
+DTSTART;TZID=Canada/Eastern:20030328T200000
+DTEND;TZID=Canada/Eastern:20030328T230000
+DESCRIPTION:Healey's\n\nLook up exact time.\n
+BEGIN:VALARM
+TRIGGER;VALUE=DURATION:-P2D
+ACTION:DISPLAY
+DESCRIPTION:Event reminder
+END:VALARM
+BEGIN:VALARM
+ATTENDEE:mailto:sroberts@uniserve.com
+TRIGGER;VALUE=DURATION:-P1D
+ACTION:EMAIL
+SUMMARY:Alarm notification
+DESCRIPTION:This is an event reminder
+END:VALARM
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:1
+DTSTAMP:20030312T043534Z
+SUMMARY:Small Potatoes 10\nFriday\, March 14th\, 8:00 p.m.\n361 Danforth
+ Avenue (at Hampton -- Chester subway)\nInfo:_ (416) 480-2802 or (416)
+ 323-1715\n
+UID:18E750A8-5722-11D7-AB0B-000393AD088C
+DTSTART;TZID=Canada/Eastern:20030315T000000
+DURATION:PT1H
+BEGIN:VALARM
+ATTENDEE:mailto:sroberts@uniserve.com
+TRIGGER;VALUE=DURATION:-P1D
+ACTION:EMAIL
+SUMMARY:Alarm notification
+DESCRIPTION:This is an event reminder
+END:VALARM
+END:VEVENT
+END:VCALENDAR

data/test/fixtures/gmail.vcard

@@ -0,0 +1,27 @@
+BEGIN:VCARD
+VERSION:3.0
+FN:Stepcase TestUser
+N:TestUser;Stepcase;;;
+EMAIL;TYPE=INTERNET:testuser@stepcase.com
+X-GTALK:gtalk.step
+X-AIM:aim.step
+X-YAHOO:yahoo.step
+X-MSN:msn.step
+X-ICQ:icq.step
+X-JABBER:jabber.step
+TEL;TYPE=FAX:44444444
+TEL;TYPE=PAGER:66666666
+TEL;TYPE=HOME:22222222
+TEL;TYPE=CELL:11111111
+TEL;TYPE=FAX:55555555
+TEL;TYPE=WORK:33333333
+LABEL;TYPE=HOME;ENCODING=QUOTED-PRINTABLE:123 Home, Home Street=0D=0A=
+Kowloon, N/A=0D=0A=
+Hong Kong
+LABEL;TYPE=HOME;ENCODING=QUOTED-PRINTABLE:321 Office, Work Road=0D=0A=
+Tsuen Wan NT=0D=0A=
+Hong Kong
+TITLE:CTO
+ORG:Stepcase.com
+NOTE:Stepcase test user is a robot.
+END:VCARD

data/test/fixtures/highrise.vcard

@@ -0,0 +1,41 @@
+BEGIN:VCARD
+VERSION:3.0
+REV:20080409T095515Z
+X-YAHOO;TYPE=HOME:yahoo.john
+X-GOOGLE TALK;TYPE=WORK:gtalk.john
+X-SAMETIME;TYPE=WORK:sametime.john
+X-SKYPE;TYPE=WORK:skype.john
+X-MSN;TYPE=WORK:msn.john
+X-JABBER;TYPE=WORK:jabber.john
+N:Doe;John;;;
+ADR;TYPE=WORK:;;456 Grandview Building\, Wide Street;San Diego;CA;90204;
+ United States
+ADR;TYPE=HOME:;;123 Sweet Home\, Narrow Street;New York;NY;91102;United
+  States
+URL;TYPE=OTHER:http\://www.homepage.com
+URL;TYPE=HOME:http\://www.home.com
+URL;TYPE=WORK:http\://www.work.com
+URL;TYPE=OTHER:http\://www.other.com
+URL;TYPE=OTHER:http\://www.custom.com
+ORG:John Doe & Partners Limited;;
+TEL;TYPE=WORK:11111111
+TEL;TYPE=CELL:22222222
+TEL;TYPE=HOME:33333333
+TEL;TYPE=OTHER:44444444
+TEL;TYPE=FAX:55555555
+TEL;TYPE=FAX:66666666
+TEL;TYPE=PAGER:77777777
+TEL;TYPE=OTHER:88888888
+TEL;TYPE=OTHER:99999999
+UID:cc548e11-569e-3bf5-a9aa-722de4571f4a
+X-ICQ;TYPE=HOME:icq.john
+EMAIL;TYPE=WORK,INTERNET:john.doe@work.com
+EMAIL;TYPE=HOME,INTERNET:john.doe@home.com
+EMAIL;TYPE=OTHER,INTERNET:john.doe@other.com
+EMAIL;TYPE=OTHER,INTERNET:john.doe@custom.com
+TITLE:Sales Manager
+X-OTHER;TYPE=WORK:other.john
+X-AIM;TYPE=WORK:aim.john
+X-QQ;TYPE=WORK:qq.john
+FN:John Doe
+END:VCARD