hmachine 0.0.1 → 0.1.0

data/test/microformat/geo_test.rb

@@ -0,0 +1,66 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class GeoTest < Test::Unit::TestCase
+  setup do
+    @klass = HMachine::Microformat::Geo
+  end
+  
+  should 'has a latitude and longitude' do
+    doc = Nokogiri.parse(%q{
+      <div class="geo">GEO: 
+       <span class="latitude">37.386013</span>, 
+       <span class="longitude">-122.082932</span>
+      </div>
+    })
+    geo = @klass.parse(doc)
+    assert_respond_to geo, :latitude
+    assert_respond_to geo, :longitude
+    assert_equal geo.latitude, geo.lat
+    assert_equal geo.longitude, geo.long
+    assert_equal '-122.082932', geo.long
+    assert_equal '37.386013', geo.lat
+  end
+  
+  should 'use the abbreviation design pattern when applicable' do
+    doc = Nokogiri.parse(%q{
+      <div class="geo">
+       <abbr class="latitude" title="37.408183">N 37° 24.491</abbr> 
+       <abbr class="longitude" title="-122.13855">W 122° 08.313</abbr>
+      </div>
+    })
+    geo = @klass.parse(doc)
+    assert_equal "37.408183", geo.lat
+    assert_equal "-122.13855", geo.long
+  end
+  
+  should 'use the value class pattern' do
+    doc = Nokogiri.parse(%q{
+      <div class="geo">GEO: 
+       <span class="latitude">Somewhere <span class="value">37.386013</span></span>, 
+       <span class="longitude">Far Away <span class="value">-122.082932</span></span>
+      </div>
+    })
+    geo = @klass.parse(doc)
+    assert_equal '37.386013', geo.lat
+    assert_equal '-122.082932', geo.long
+  end
+  
+  should 'spit out a google maps url' do
+    doc = Nokogiri.parse(%q{
+      <div class="geo">
+       <abbr class="latitude" title="37.408183">N 37° 24.491</abbr> 
+       <abbr class="longitude" title="-122.13855">W 122° 08.313</abbr>
+      </div>
+    })
+    geo = @klass.parse(doc)
+    assert_equal "http://maps.google.com/?q=37.408183,-122.13855", geo.to_google_maps
+  end
+  
+  should 'extract lat/long values from paired value' do
+    doc = Nokogiri.parse(%q(<abbr class="geo" title="37.77;-122.41">Northern California</abbr>))
+    geo = @klass.parse(doc)
+    assert_respond_to geo, :latitude
+    assert_equal '37.77', geo.lat
+    assert_equal '-122.41', geo.long
+  end
+end

data/test/microformat/hcard_test.rb

@@ -1,43 +1,510 @@
 require File.join(File.dirname(__FILE__), '..', 'test_helper')
 
 class HCardTest < Test::Unit::TestCase
-  setup do
-    @html = get_fixture('hcard/commercenet.html')
-    @node = Nokogiri::HTML.parse(@html).css(HMachine::Microformat::HCard::ROOT_SELECTOR)[0]
-    @hcard = HMachine::Microformat::HCard.new(@node)
+  @@klass = HMachine::Microformat::HCard
+  
+  describe 'non test-fixture tests' do
+    def self.before_all
+      @doc ||= Nokogiri.parse(get_fixture('hcard/commercenet.html'))
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'be an organization' do
+      assert @vcard.organization?
+    end
+    
+    should 'convert to a vcard' do
+      assert_respond_to @vcard, :to_vcard
+    end
+  end 
+  
+  # http://www.ufxtract.com/testsuite/hcard/hcard1.htm
+  describe 'single occurence test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard1.html')
+      @vcard ||= @@klass.parse_first(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The fn (formatted name) is a singular value' do
+      assert_respond_to @vcard, :fn
+      assert @vcard.has_property?(:fn)
+      assert_equal 'John Doe', @vcard.fn
+    end
+    
+    test 'The n (name) is a singular value' do
+      assert_respond_to @vcard, :n
+      assert @vcard.has_property?(:n)
+    end
+    
+    test 'The bday (birthday) is a singular value' do
+      assert @vcard.has_property?(:bday)
+      assert_equal 1, @vcard.bday.mon
+      assert_equal 1, @vcard.bday.day
+      assert_equal 2000, @vcard.bday.year
+    end
+    
+    test 'The class is a singular value' do
+      assert @vcard.has_property?(:class)
+      assert_equal 'Public', @vcard[:class]
+    end
+    
+    test 'The geo is a singular value' do
+      assert_respond_to @vcard, :geo
+      assert @vcard.has_property?(:geo)
+    end
+    
+    test 'The rev is a singular value' do
+      assert @vcard.has_property?(:rev)
+      assert_equal 1, @vcard.rev.mon
+      assert_equal 1, @vcard.rev.day
+    end
+    
+    test 'The role is a singular value' do
+      assert @vcard.has_property?(:role)
+      assert_equal 'Designer', @vcard.role
+    end
+    
+    test 'The sort-string is a singular value' do
+      assert @vcard.has_property?(:sort_string)
+      assert_equal 'John', @vcard.sort_string
+    end
+    
+    test 'The tz is a singular value' do
+      assert @vcard.has_property?(:tz)
+      assert_equal -18000, @vcard.tz.utc_offset
+    end
+    
+    test 'The uid is a singular value' do
+      assert @vcard.has_property?(:uid)
+      assert_equal 'com.johndoe/profiles/johndoe', @vcard.uid
+    end 
   end
   
-  describe 'Constants' do
-    test "hCard's root class" do
-      assert @hcard.class::ROOT_CLASS == 'vcard', "Root class is #{@hcard.class::ROOT_CLASS}"
+  # http://www.ufxtract.com/testsuite/hcard/hcard2.htm
+  describe 'multiple occurence test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard2.html')
+      @vcard ||= @@klass.parse_first(@doc)
     end
-
-    test "hCard's root selector" do
-      assert @hcard.class::ROOT_SELECTOR == '.vcard', "Root selector is #{@hcard.class::ROOT_SELECTOR}"
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The adr (address) is a optional multiple value' do
+      assert @vcard.has_property?(:adr)
+    end
+    
+    test 'The email is a optional multiple value' do
+      assert @vcard.has_property?(:email)
+    end
+    
+    test 'The org is a optional multiple value' do
+      assert @vcard.has_property?(:org)
+    end
+    
+    test 'The tel is a optional multiple value' do
+      assert @vcard.has_property?(:tel)
+    end
+    
+    test 'The agent is a optional multiple value' do
+      assert @vcard.has_property?(:agent)
+      assert_equal 'Dave Doe', @vcard.agent[1]
+    end
+    
+    test 'The category is a optional multiple value' do
+      assert @vcard.has_property?(:category)
+      assert_equal 'development', @vcard.category[1]
+    end
+    
+    test 'The key is a optional multiple value' do
+      assert @vcard.has_property?(:key)
+      assert_equal "hd02$Gfu*d%dh87KTa2=23934532479", @vcard.key
+    end
+    
+    test 'The key is a optional multiple value' do
+      assert @vcard.has_property?(:label)
+      assert_equal "West Street, Brighton, United Kingdom", @vcard.label[1].split("\n").collect {|i| i.strip }.join(' ')
+    end
+    
+    test 'The label is a optional multiple value' do
+      assert @vcard.has_property?(:label)
+      assert_equal "West Street, Brighton, United Kingdom", @vcard.label[1].split("\n").collect {|i| i.strip }.join(' ')
+    end
+    
+    test 'The logo is a optional multiple value' do
+      assert @vcard.has_property?(:logo)
+      assert_equal "../images/logo.gif", @vcard.logo[1]
+    end
+    
+    test 'The mailer is a optional multiple value' do
+      assert @vcard.has_property?(:mailer)
+      assert_equal "Outlook 2007", @vcard.mailer[1]
+    end
+    
+    test 'The nickname is a optional multiple value' do
+      assert @vcard.has_property?(:nickname)
+      assert_equal "Lost boy", @vcard.nickname[1]
+    end
+    
+    test 'The note is a optional multiple value' do
+      assert @vcard.has_property?(:note)
+      assert_equal "It can be a real problem booking a hotel room with the name John Doe.", @vcard.note[1]
+    end
+    
+    test 'The photo is a optional multiple value' do
+      assert @vcard.has_property?(:photo)
+      assert_equal "../images/photo.gif", @vcard.photo
+    end
+    
+    test 'The sound is a optional multiple value' do
+      assert @vcard.has_property?(:sound)
+      assert_equal 'Pronunciation of my name', @vcard.sound
+    end
+    
+    test 'The title is a optional multiple value' do
+      assert @vcard.has_property?(:title)
+      assert_equal 'Owner', @vcard.title[1]
+    end
+    
+    test 'The url is a optional multiple value' do
+      assert @vcard.has_property?(:url)
+      assert_equal "http://www.webfeetmedia.com/", @vcard.url[1]
+    end   
+  end
+  
+  # http://ufxtract.com/testsuite/hcard/hcard3.htm
+  describe 'adr single and multiple occurence test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard3.html')
+      @vcard ||= @@klass.parse_first(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The type is a optional multiple value.' do
+      assert @vcard.adr.type.eql?(:work)
+    end
+    
+    test 'The post-office-box is a optional singular value' do
+      assert_equal 'PO Box 46', @vcard.adr.post_office_box
+    end
+    
+    test 'The street-address is a optional multiple value' do
+      assert_equal 'West Street', @vcard.adr.street_address[1]
+    end
+    
+    test 'The extended-address is a optional singular value' do
+      assert_equal 'Suite 2', @vcard.adr.extended_address
+    end
+    
+    test 'The region is a optional singular value' do
+      assert_equal 'East Sussex', @vcard.adr.region
+    end
+    
+    test 'The locality is a optional singular value' do
+      assert_equal 'Brighton', @vcard.adr.locality
+    end
+    
+    test 'The postal-code is a optional singular value' do
+      assert_equal 'BN1 3DF', @vcard.adr.postal_code
+    end
+    
+    test 'The country-name is a optional singular value' do
+      assert_equal 'United Kingdom', @vcard.adr.country_name
+    end
+  end
+  
+  # http://ufxtract.com/testsuite/hcard/hcard4.htm
+  describe 'n single and multiple occurence test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard4.html')
+      @vcard ||= @@klass.parse_first(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The honorific-prefix is a optional multiple value' do
+      assert_equal 'Dr', @vcard.n[:honorific_prefix]
+    end
+    
+    test 'The given-name is a optional multiple value' do
+      assert_equal 'John', @vcard.n[:given_name]
+    end
+    
+    test 'The additional-name is a optional multiple value' do
+      assert_equal 'Peter', @vcard.n[:additional_name]
+    end
+    
+    test 'The family-name is a optional multiple value' do
+      assert_equal 'Doe', @vcard.n[:family_name]
+    end
+    
+    test 'The honorific-suffix is a optional multiple value' do
+      assert_equal 'PHD', @vcard.n[:honorific_suffix][1]
     end
   end
   
-  describe "Inheritance" do
-    test "hCard's wiki url" do
-      assert @hcard.class.wiki_url == @hcard.class::WIKI_URL, "Wiki url is #{@hcard.class.wiki_url}"
+  # http://ufxtract.com/testsuite/hcard/hcard6.htm
+  describe 'extracting email addresses text' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard6.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'collect the email address from href attribute' do
+      assert_equal 'john@example.com', @vcard[0].email
+    end
+    
+    test 'Where a type is specified, but the value is not then the node text is the value' do
+      assert @vcard[1].email.has_key?(:internet)
+      assert_equal 'john@example.com', @vcard[1].email.values.first
+    end
+    
+    should 'collect the email address from the node text' do
+      assert_equal 'john@example.com', @vcard[2].email
+    end
+    
+    should 'find the type value. types are case insensitive' do
+      assert_equal :internet, @vcard[3].email[1][:type]
+    end
+    
+    should 'not contain querystring "?subject=parser-test"' do
+      assert_equal 'john@example.com', @vcard[5].email
     end
     
-    test "hCard's validation" do
-      assert @hcard.class.validate(@node)
+    test 'Where a type is specified, but the value is not then the node text is the value' do
+      assert_equal 'john@example.com', @vcard[6].email[:value]
     end
   end
   
-  test "rejects invalid nodes" do
-    assert_raise RuntimeError do 
-      HMachine::Microformat::HCard.new(Nokogiri::HTML.parse(@html)) 
+  # http://ufxtract.com/testsuite/hcard/hcard7.htm
+  describe 'extracting tel number test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard7.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'collect the telephone number from the node text' do
+      assert_equal '01273 700100', @vcard[0].tel
+    end
+    
+    should 'collect the telephone number from a descendant node with value property' do
+      assert_equal "01273 700100", @vcard[1].tel[:value]
+    end
+    
+    should 'find the type value' do
+      assert @vcard[2].tel.first[:type].include?(:pcs)
+    end
+    
+    test 'Where a type is specified, but the value is not then the node text is the value' do
+      assert_equal '01273 700301', @vcard[4].tel[:value]
     end
   end
   
-  test 'retains original node' do
-    assert @hcard.node == @node
+  # http://ufxtract.com/testsuite/hcard/hcard8.htm
+  describe 'extracting URLs test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard8.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'collect the URL from the a element' do
+      assert_equal 'http://example.com/johndoe/', @vcard.first.url
+    end
+    
+    should 'collect the URL from the area element' do
+      assert_equal 'http://example.com/johndoe/', @vcard[1].url
+    end
+    
+    should 'collect the URL of the image element' do
+      assert_equal 'http://ufxtract.com/testsuite/images/photo.gif', @vcard[2].photo
+    end
   end
   
+  # http://ufxtract.com/testsuite/hcard/hcard5.htm
+  describe 'multiple values in class attribute test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard5.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'find given-name value even if class attribute has multiple values' do
+      assert_equal 'John', @vcard.n[:given_name]
+    end
+    
+    should 'find category value even if class and rel attribute have multiple values' do
+      assert_equal 'development', @vcard.category[1]
+    end
+    
+    should 'find rev value even if class attribute has multiple values' do
+      assert @vcard.has_property?(:rev)
+      assert_equal 2008, @vcard.rev.year
+      assert_equal 1, @vcard.rev.mon
+      assert_equal 1, @vcard.rev.day
+    end
+  end
   
+  # http://ufxtract.com/testsuite/hcard/hcard11.htm
+  describe 'img element test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard11.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The fn value should be taken from the alt attribute on a img element' do
+      assert_equal 'John Doe', @vcard[0].fn
+    end
+    
+    test 'The given-name value should implied from the alt attribute' do
+      assert_equal 'John', @vcard[1].n[:given_name]
+    end
+    
+    test 'The family-name value should implied from the alt attribute' do
+      assert_equal 'Doe', @vcard[2].n[:family_name]
+    end
+  end
+  
+  # http://ufxtract.com/testsuite/hcard/hcard12.htm
+  describe 'abbr element test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard12.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'take the value from the abbr title attribute' do
+      assert_equal 'John Doe', @vcard.fn
+      assert_equal 'Mister', @vcard.n[:honorific_prefix]
+      assert_equal 'Jonathan', @vcard.n[:given_name]
+      assert_equal 'John', @vcard.n[:additional_name]
+      assert_equal 'JJ', @vcard.nickname
+      assert_equal '123 Fake Street', @vcard.adr[:street_address]
+      assert @vcard.adr[:type].eql?(:work)
+      assert_equal "415.555.1234", @vcard.tel
+    end
+  end
   
+  # http://ufxtract.com/testsuite/hcard/hcard9.htm
+  describe 'extracting geo singular and paired values test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard9.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    should 'find latitude value from single element' do
+      assert_equal '37.77', @vcard[0].geo[:latitude]
+    end
+    
+    should 'extract latitude value from paired value' do
+      assert_equal '37.77', @vcard[1].geo[:latitude]
+    end
+  end
+  
+  # http://ufxtract.com/testsuite/hcard/hcard99.htm
+  describe 'implied n optimization test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard99.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The given-name value is implied from the fn value' do
+      assert_equal 'Ryan', @vcard[0].n[:given_name]
+      assert_equal 'Ryan', @vcard[1].n[:given_name]
+      assert_equal 'Ryan', @vcard[2].n[:given_name]
+      assert_equal 'Brian', @vcard[3].n[:given_name]
+      assert_equal 'Ryan', @vcard[4].n[:given_name]
+      assert_equal 'R', @vcard[5].n[:given_name]
+      assert_equal 'King', @vcard[6].n[:given_name]
+    end
+    
+    test 'The family-name value is implied from the fn value' do
+      assert_equal 'King', @vcard[0].n[:family_name]
+      assert_equal 'King', @vcard[1].n[:family_name]
+      assert_equal 'King', @vcard[2].n[:family_name]
+      assert_equal 'Suda', @vcard[3].n[:family_name]
+      assert_equal 'King', @vcard[4].n[:family_name]
+      assert_equal 'King', @vcard[5].n[:family_name]
+      assert_equal 'R', @vcard[6].n[:family_name]
+    end
+    
+    test 'The given name property should be missing' do
+      assert !@vcard[7].has_property?(:n)
+      assert !@vcard[8].has_property?(:n)
+    end
+    
+    test 'The family name property should be missing' do
+      assert !@vcard[7].has_property?(:n)
+      assert !@vcard[8].has_property?(:n)
+    end
+  end
+  
+  # http://ufxtract.com/testsuite/hcard/hcard17.htm
+  describe 'implied organization-name optimization test' do
+    def self.before_all
+      @doc ||= test_fixture('hcard/hcard17.html')
+      @vcard ||= @@klass.parse(@doc)
+    end
+    
+    setup do
+      @vcard = self.class.before_all
+    end
+    
+    test 'The organization-name value is implied from the org value' do
+      assert_equal 'World Wide Web Consortium', @vcard[0].org[:organization_name]
+      assert_equal 'World Wide Web Consortium', @vcard[1].org[:organization_name]
+      assert_equal 'World Wide Web Consortium', @vcard[2].org[:organization_name]
+      assert_equal 'World Wide Web Consortium', @vcard[3].org[:organization_name]
+      assert_equal 'World Wide Web Consortium', @vcard[4].org[:organization_name]
+    end
+    
+    test 'The organization name value' do
+      assert_equal 'World Wide Web Consortium', @vcard[5].org[:organization_name]
+      assert_equal 'World Wide Web Consortium', @vcard[6].org[:organization_name]
+    end
+  end
 
 end