require 'test/test_helper'
require 'mofo/hcard'
require 'mofo/hreview'

context "A simple hcard definition" do
  specify "should parse a page with an hcard" do
    proc { HCard.find(fixture(:fauxtank)) }.should.not.raise MicroformatNotFound
  end

  specify "should raise an error if no hcard is found in strict mode" do
    proc { HCard.find(fixture(:fake), :strict => true) }.should.raise MicroformatNotFound
  end

  specify "should return an empty array if no hcard is found" do
    HCard.find(fixture(:fake)).should.equal []
  end

  specify "should return nil if no hcard is found with :first" do
    HCard.find(:first => fixture(:fake)).should.equal nil
  end

  specify "should return nil if no hcard is found with :all" do
    HCard.find(:all => fixture(:fake)).should.equal []
  end

  specify "should accept a :text option" do
    HCard.find(:text => open(fixture(:fauxtank)).read).should.not.equal []
    HCard.find(:text => open(fixture(:fauxtank)).read).should.not.equal nil
  end
end

context "The parsed fauxtank hCard object" do
  setup do
    $fauxtank ||= HCard.find(:first => fixture(:fauxtank))
  end

  specify "should be an instance of HCard" do
    $fauxtank.should.be.an.instance_of HCard
  end

  specify "should have `fauxtank' as the nickname" do
    $fauxtank.nickname.should.equal "fauxtank"
  end

  specify "should have two email addresses" do
    $fauxtank.email.size.should.equal 2
    $fauxtank.email.first.should.equal "fauxtank [at] gmail.com"
    $fauxtank.email.last.should.equal "chris [at] fauxtank.com"
  end
  
  specify "should have `Chris' as the given name" do
    $fauxtank.n.given_name.should.equal "Chris"
  end

  specify "should have `Murphy' as the family name" do
    $fauxtank.n.family_name.should.equal "Murphy"
  end

  specify "should have `Chicago' as the locality" do
    $fauxtank.adr.locality.should.equal "Chicago"
  end

  specify "should have `United States' as the country-name" do
    $fauxtank.adr.country_name.should.equal "United States"
  end

  specify "should have fauxtank's profile pic as the logo" do
    $fauxtank.logo.should.equal "http://static.flickr.com/25/buddyicons/89622800@N00.jpg?1128967902"
  end

  specify "should know what properties it found" do
    $fauxtank.properties.sort.should.equal ["fn", "note", "n", "email", "logo", "adr", "nickname", "title", "url"].sort
  end
end

context "The parsed Bob hCard object" do
  setup do
    $bob ||= HCard.find(:first => fixture(:bob))
  end
  
  specify "should have three valid emails with type information" do
    $bob.email.value.size.should.equal 3
    $bob.email.type.first.should.equal 'home'
    $bob.email.value.first.should.equal 'bob@gmail.com'
    $bob.email.type[1].should.equal 'work'
    $bob.email.value[1].should.equal 'robert@yahoo.com'
    $bob.email.type.last.should.equal 'home'
    $bob.email.value.last.should.equal 'bobby@gmail.com'
  end

  specify "should have two valid telephone numbers with type information" do
    $bob.tel.type.size.should.equal 2
    $bob.tel.type.first.should.equal 'home'
    $bob.tel.value.first.should.equal '707-555-9990'
    $bob.tel.type.last.should.equal 'cell'
    $bob.tel.value.last.should.equal '707-555-4756'
  end

  specify "should have a given, additional, and family name" do
    $bob.n.given_name.should.equal 'Robert'
    $bob.n.additional_name.should.equal 'Albert'
    $bob.n.family_name.should.equal 'Smith'
  end

  specify "should have a valid url" do
    $bob.url.should.equal "http://nubhub.com/bob"
  end
end

context "The parsed Firesteed hReview object" do
 setup do
   $firesteed ||= HReview.find(:first => fixture(:corkd))
 end

  specify "should have a valid, coerced dtreviewed field" do
    $firesteed.dtreviewed.should.be.an.instance_of Time
  end

  specify "should have a rating of 5" do
    $firesteed.rating.should.equal 5
  end

 specify "should have a description" do
   $firesteed.description.should.equal %[This is probably my favorite every day (well, not every day) wine.  It's light, subtly sweet, ripe fruit, slightly spicy oak.  It's a bit "slippery", if that makes sense (in a very good way).  Highly drinkable.]
  end

  specify "should have an HCard as the reviewer" do
    $firesteed.reviewer.fn.should.equal "simplebits"
    $firesteed.reviewer.photo.should.equal "/img/icon-user-64.gif"
    $firesteed.reviewer.url.should.equal "/people/simplebits"
  end

  specify "should have a valid item" do
    $firesteed.item.fn.should.equal "Firesteed 2003 Pinot Noir"
  end

  specify "should have 7 tags" do
    $firesteed.tags.size.should.equal 7
    $firesteed.tags.first.should.equal "berry"
    $firesteed.tags.last.should.equal "sweet"
  end
end

context "The parsed simple hCard object" do
  setup do
    $simple ||= HCard.find(:first => fixture(:simple))
  end

  specify "should have an org string" do
    $simple.org.should.be.an.instance_of String
    $simple.org.should.equal "Err the Blog"
  end

  specify "should have an email string" do
    $simple.email.should.be.an.instance_of String
    $simple.email.should.equal "chris[at]ozmm[dot]org"
  end

  specify "should have a valid name" do
    $simple.fn.should.equal "Chris Wanstrath"
  end

  specify "should have a valid url" do
    $simple.url.should.equal "http://ozmm.org/"
  end
end

context "A string should be coercable into" do
  specify "an integer" do
    "2".coerce.should.equal 2
  end

  specify "a float" do
    "4.0".coerce.should.equal 4.0
  end

  specify "a datetime" do
    "1985-03-13".coerce.should.equal Time.parse("1985-03-13")
  end

  specify "a boolean" do
    "true".coerce.should.be true
    "false".coerce.should.be false
  end
end

context "An array of reltag arrays created from the corkd review webpage" do
  setup do
    $tags ||= RelTag.find(:all => fixture(:corkd))
  end

  specify "should consist of 23 tags" do
    $tags.size.should.equal 23 
  end

  specify "should include the berry and slippery tags" do
    $tags.flatten.should.include 'berry'
    $tags.flatten.should.include 'slippery'
  end
end

context "A string with HTML" do
  specify "should be able to remove the HTML" do
    string = %[<ol> <li><a href="http://diveintomark.org/xml/blink.xml" type="application/rss+xml">dive into mark b-links</a></li> <li><a href="http://www.thauvin.net/blog/xml.jsp?format=rdf" type="application/rss+xml">Eric&#39;s Weblog</a></li> <li><a href="http://intertwingly.net/blog/index.rss2" type="application/rss+xml">Sam Ruby</a></li> <li><a href="http://diveintomark.org/xml/atom.xml" type="application/atom+xml">dive into mark</a></li> <li><a href="http://www.decafbad.com/blog/index.rss" type="application/rss+xml">0xDECAFBAD</a></li> </ol>]
    string.strip_html.strip.should.equal "dive into mark b-links Eric&#39;s Weblog Sam Ruby dive into mark 0xDECAFBAD"
  end
end

context "A web page with three rel tags" do
  setup do 
    $page ||= <<-EOF
    <html>
    <body>
    <ul>
      <li><a href="/tags/miracle" rel="tag">miracle</a></li>
      <li><a href="/tags/wonder" rel="tag">wonder</a></li>
      <li><a href="/tags/amusement" rel="tag">amusement</a></li>
    </ul>
    </body>
    </html>
    EOF
  end

  specify "should produce an array of three RelTag objects" do
    tags = RelTag.find(:all, :text => $page)
    tags.should.be.an.instance_of Array
    tags.size.should.equal 3
    tags.should.equal ["miracle", "wonder", "amusement"]
  end
end