thehack-atom-tools 2.0.3

data/test/conformance/order.rb

@@ -0,0 +1,118 @@
+require "test/unit"
+require "atom/feed"
+
+# http://www.intertwingly.net/wiki/pie/OrderConformanceTests
+
+FEED = Atom::Feed.new("http://www.snellspace.com/public/ordertest.xml")
+FEED.update!
+
+class TestOrderConformance < Test::Unit::TestCase
+  def test_0
+    entry = FEED.entries[0]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/1", entry.id
+    assert_equal "Simple order, nothing fancy", entry.title.to_s
+    assert_equal "Simple ordering, nothing fancy", entry.summary.to_s
+    assert_equal Time.parse("2006-01-26T09:20:01Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  def test_1
+    entry = FEED.entries[1]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/2", entry.id
+    assert_equal "Same as the first, only mixed up a bit", entry.title.to_s
+    assert_equal "Same as the first, only mixed up a bit", entry.summary.to_s
+    assert_equal Time.parse("2006-01-26T09:20:02Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  # Multiple alt link elements, which does your reader show?
+  def test_2
+    entry = FEED.entries[2]
+
+    # both links should be available, but it's up to you to choose which one to use 
+
+    assert_link_href(entry, "http://www.snellspace.com/public/alternate") { |l| l["rel"] == "alternate" and l["type"] == nil }
+
+    assert_link_href(entry, "http://www.snellspace.com/public/alternate2") { |l| l["rel"] == "alternate" and l["type"] == "text/plain" }
+  end
+
+  # Multiple link elements, does your feed reader show the "alternate" correctly? (also checks to see if the reader is paying attention to link rel values)
+  def test_3
+    entry = FEED.entries[3]
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+
+    assert_link_href(entry, "http://www.snellspace.com/public/related") { |l| l["rel"] == "related" }
+
+    assert_link_href(entry, "http://www.snellspace.com/public/foo") { |l| l["rel"] == "urn:foo" }
+  end
+
+  # Entry with a source first.. does your feed reader show the right title, updated, and alt link?
+  def test_4
+    entry = FEED.entries[4]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/5", entry.id
+    assert_equal "Entry with a source first", entry.title.to_s
+    assert_equal Time.parse("2006-01-26T09:20:05Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  # Entry with a source first.. does your feed reader show the right title, updated, and alt link?
+  #  ^-- quoted summary is a typo, source is last
+  def test_5
+    entry = FEED.entries[5]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/6", entry.id
+    assert_equal "Entry with a source last", entry.title.to_s
+    assert_equal Time.parse("2006-01-26T09:20:06Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  # Entry with a source in the middle.. does your feed reader show the right id, title, updated, and alt link?
+  def test_6
+    entry = FEED.entries[6]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/7", entry.id
+    assert_equal "Entry with a source in the middle", entry.title.to_s
+    assert_equal Time.parse("2006-01-26T09:20:07Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  # Atom elements in an extension element
+  def test_7
+    entry = FEED.entries[7]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/8", entry.id
+    assert_equal "Atom elements in an extension element", entry.title.to_s
+    assert_equal Time.parse("2006-01-26T09:20:08Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  # Atom elements in an extension element
+  def test_8
+    entry = FEED.entries[8]
+
+    assert_equal "tag:example.org,2006:atom/conformance/element_order/9", entry.id
+    assert_equal "Atom elements in an extension element", entry.title.to_s
+    assert_equal Time.parse("2006-01-26T09:20:09Z"), entry.updated
+
+    assert_alternate_href(entry, "http://www.snellspace.com/public/alternate")
+  end
+
+  def assert_link_href(entry, href, &block)
+    link = entry.links.find(&block)
+    assert_equal href, link["href"]
+  end
+
+  def assert_alternate_href(entry, href)
+    assert_link_href(entry, href) { |l| l["rel"] == "alternate" }
+  end
+end

data/test/conformance/title.rb

@@ -0,0 +1,108 @@
+require "test/unit"
+require "atom/feed"
+
+# wiki page at <http://www.intertwingly.net/wiki/pie/TitleConformanceTests>
+
+# http://atomtests.philringnalda.com/tests/item/title/html-cdata.atom
+# http://atomtests.philringnalda.com/tests/item/title/html-entity.atom
+# http://atomtests.philringnalda.com/tests/item/title/html-ncr.atom
+# http://atomtests.philringnalda.com/tests/item/title/text-cdata.atom
+# http://atomtests.philringnalda.com/tests/item/title/text-entity.atom
+# http://atomtests.philringnalda.com/tests/item/title/text-ncr.atom
+# http://atomtests.philringnalda.com/tests/item/title/xhtml-entity.atom
+# http://atomtests.philringnalda.com/tests/item/title/xhtml-ncr.atom
+
+# I make no attempt to normalize the XML from entry.title.to_s
+# therefore, the direct equalities I do below are unwise.
+# (eg. they *could* return &lt; or &#60; and still be perfectly correct)
+#
+# It shouldn't be a problem unless REXML changes what it encodes.
+class TestTitleConformance < Test::Unit::TestCase
+  def test_html_cdata
+    url = "http://atomtests.philringnalda.com/tests/item/title/html-cdata.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "html", entry.title["type"]
+    assert_equal "&lt;title>", entry.title.html
+  end
+
+  def test_html_entity
+    url = "http://atomtests.philringnalda.com/tests/item/title/html-entity.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "html", entry.title["type"]
+    assert_equal "&lt;title>", entry.title.html
+  end
+
+  def test_html_ncr
+    url = "http://atomtests.philringnalda.com/tests/item/title/html-ncr.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "html", entry.title["type"]
+    assert_equal "&lt;title>", entry.title.html
+  end
+
+  def test_text_cdata
+    url = "http://atomtests.philringnalda.com/tests/item/title/text-cdata.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "text", entry.title["type"]
+    assert_equal "&lt;title&gt;", entry.title.html
+  end
+
+  def test_text_entity
+    url = "http://atomtests.philringnalda.com/tests/item/title/text-entity.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "text", entry.title["type"]
+    assert_equal "&lt;title&gt;", entry.title.html
+  end
+
+  def test_text_ncr
+    url = "http://atomtests.philringnalda.com/tests/item/title/text-ncr.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "text", entry.title["type"]
+    assert_equal "&lt;title&gt;", entry.title.html
+  end
+
+  def test_xhtml_entity
+    url = "http://atomtests.philringnalda.com/tests/item/title/xhtml-entity.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "xhtml", entry.title["type"]
+    assert_equal "&lt;title>", entry.title.html
+  end
+
+  def test_xhtml_ncr
+    url = "http://atomtests.philringnalda.com/tests/item/title/xhtml-ncr.atom"
+
+    feed = Atom::Feed.new(url)
+    feed.update!
+
+    entry = feed.entries.first
+    assert_equal "xhtml", entry.title["type"]
+    assert_equal "&#60;title>", entry.title.html
+  end
+end

data/test/conformance/updated.rb

@@ -0,0 +1,34 @@
+require "test/unit"
+require "atom/feed"
+
+# wiki page at <http://www.intertwingly.net/wiki/pie/UpdatedConformanceTests>
+# test feed at <http://intertwingly.net/testcase/updated.atom>
+
+class TestUpdatedConformance < Test::Unit::TestCase
+  def test_it_all
+    feed = Atom::Feed.new "http://intertwingly.net/testcase/updated.atom"
+
+    assert_equal [], feed.entries
+
+    # initial filling
+    feed.update!
+    assert_equal "12 of 13 miner survive mine collapse", feed.entries.first.content.to_s.strip
+  
+    # this is an insignificant change, 
+    # (ie. atom:updated_1 == atom:updated_2),
+    #
+    # the update is applied, your application can handle that however it wants.
+    feed.update!
+    assert_equal "12 of 13 miner<b>s</b> survive mine collapse", feed.entries.first.content.to_s.strip
+   
+    # now we've got a significant change 
+    feed.update!
+    assert_equal "12 of 13 miners <del>survive</del> <b>killed</b> in mine collapse", feed.entries.first.content.to_s.strip
+ 
+    # and now the feed is gone totally
+    assert_raises(Atom::FeedGone) do
+      feed.update!
+    end
+  end
+end
+ 

data/test/conformance/xhtmlcontentdiv.rb

@@ -0,0 +1,18 @@
+require "test/unit"
+require "atom/feed"
+
+class TestXHTMLContentDivConformance < Test::Unit::TestCase
+  def test_all
+    feed = Atom::Feed.new("http://www.franklinmint.fm/2006/06/divtest.atom")
+    feed.update!
+
+    assert_equal "<b>test</b> content", feed.entries.first.content.html
+
+    e = feed.entries.first.content.xml
+    assert_equal "http://www.w3.org/1999/xhtml", e.first.namespace
+    assert_equal "b", e.first.name
+    assert_equal "test", e.first.text
+
+    assert_equal " content", e.last.to_s
+  end
+end

data/test/conformance/xmlnamespace.rb

@@ -0,0 +1,54 @@
+require "test/unit"
+require "atom/feed"
+
+class TestXMLNamespaceConformance < Test::Unit::TestCase
+  def test_baseline
+    feed = Atom::Feed.new "http://plasmasturm.org/attic/atom-tests/nondefaultnamespace-baseline.atom"
+    feed.update!
+
+    assert_baseline feed
+  end
+
+  def assert_baseline feed
+    assert_equal Time.parse("2006-01-18T12:26:54+01:00"), feed.updated
+    assert_equal "http://example.org/tests/namespace/result.html", feed.links.first["href"]
+
+    assert_equal "urn:uuid:f8195e66-863f-11da-9fcb-dd680b0526e0", feed.id
+
+    assert_equal "Aristotle Pagaltzis", feed.authors.first.name
+    assert_equal "pagaltzis@gmx.de", feed.authors.first.email
+
+    entry = feed.entries.first
+
+    assert_equal "urn:uuid:1225c695-cfb8-4ebb-aaaa-80da344efa6a", entry.id
+
+    assert_equal Time.parse("2006-01-18T12:26:54+01:00"), entry.updated
+    assert_equal "http://example.org/tests/namespace/result.html", entry.links.first["href"]
+
+    # XXX content.html should strip namespace prefixes
+    e = entry.content.xml
+    
+    assert_equal "http://www.w3.org/1999/xhtml", e[1].namespace
+    assert_equal "p", e[1].name
+    assert_equal "For information, see:", e[1].text
+  end
+
+  def test_1
+    feed = Atom::Feed.new "http://plasmasturm.org/attic/atom-tests/nondefaultnamespace.atom"
+    feed.update!
+
+    assert_baseline feed
+  end
+
+  def test_2
+    feed = Atom::Feed.new "http://plasmasturm.org/attic/atom-tests/nondefaultnamespace-xhtml.atom"
+    feed.update!
+
+    assert_baseline feed
+  end
+
+  def test_3
+    assert(false, "I haven't written the last test")
+    # XXX FINISHME
+  end
+end

data/test/runtests.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/ruby
+
+$LOAD_PATH << File.expand_path(File.dirname(__FILE__) + "/../lib")
+
+require "test/unit"
+
+Dir["test_*.rb"].each do |test|
+  begin
+    require test
+  rescue LoadError
+    puts "skipping #{test} (LoadError)"
+    next
+  end
+end

data/test/test_constructs.rb

@@ -0,0 +1,161 @@
+require "test/unit"
+require "atom/entry"
+
+class ConstructTest < Test::Unit::TestCase
+  def test_text_construct_html_to_xml
+    begin
+      require "hpricot"
+    rescue LoadError
+      # hpricot isn't installed, just skip this test
+      puts "skipping hpricot tests"
+      return
+    end
+
+    entry = Atom::Entry.new
+
+html = <<END
+<p>Paragraph 1 contains <a href=http://example.org/>a link
+<p>This really is a horrendous mess.
+END
+
+    entry.content = html
+    entry.content["type"] = "html"
+
+    xhtml = entry.content.xml
+
+    # Hpricot is imperfect; for now I'll just test that it's parseable
+    assert_instance_of REXML::Element, xhtml
+    assert_equal 'div', xhtml.name
+
+=begin
+    assert_equal 2, xhtml.length
+
+    first = xhtml.first
+    assert_equal "p", first.name
+    assert_equal 2, first.children.length
+
+    a = first.children.last
+    assert_equal "a", a.name
+    assert_equal "http://example.org/", a.attributes["href"]
+    assert_equal "a link", a.text
+
+    last = xhtml.last
+    assert_equal "p", last.name
+    assert_equal "This really is a horrendous mess.", last.text
+=end
+  end
+
+  def test_text_construct_text
+    entry = Atom::Entry.new
+
+    assert_nil entry.title
+    assert_equal "", entry.title.to_s
+
+    entry.title = "<3"
+
+    assert_equal "text", entry.title["type"]
+    assert_equal "<3", entry.title.to_s
+    assert_equal "&lt;3", entry.title.html
+
+    assert_equal "'<3'#text", entry.title.inspect
+
+    title = entry.to_xml.root.children.first
+    assert_equal "<3", title.text
+  end
+
+  def test_text_construct_html
+    entry = Atom::Entry.new
+
+=begin
+    entry.title = "<3"
+    entry.title["type"] = "html"
+
+    assert_equal "html", entry.title["type"]
+    assert_equal "<3", entry.title.to_s
+    assert_equal "&lt;3", entry.title.html
+
+    title = entry.to_xml.root.children.first
+    assert_equal "<3", title.text
+=end
+
+    entry.title = "<p>pi &lt; 4?"
+    entry.title["type"] = "html"
+
+    assert_equal "<p>pi &lt; 4?", entry.title.to_s
+    assert_equal "<p>pi &lt; 4?", entry.title.html
+  end
+
+  def test_text_construct_xhtml
+    entry = Atom::Entry.new
+
+    entry.title = "<3"
+    assert_raises(Atom::ParseError) { entry.title["type"] = "xhtml" }
+
+    assert_raises(Atom::ParseError) do
+      entry.title["type"] = "application/xhtml+xml"
+    end
+
+    entry.title = REXML::Document.new("<div xmlns='http://www.w3.org/1999/xhtml'>&lt;3</div>").root
+    entry.title["type"] = "xhtml"
+
+    assert_equal "&lt;3", entry.title.to_s
+    assert_equal "&lt;3", entry.title.html
+
+    entry.title = "&lt;3"
+    entry.title["type"] = "xhtml"
+
+    assert_equal "&lt;3", entry.title.to_s
+    assert_equal "&lt;3", entry.title.html
+
+    entry.title = "<em>goodness</em> gracious"
+    entry.title["type"] = "xhtml"
+
+    assert_equal "<em>goodness</em> gracious", entry.title.to_s
+    assert_equal "<em>goodness</em> gracious", entry.title.html
+  end
+
+  def test_content
+    entry = Atom::Entry.new
+
+    entry.content = ""
+    entry.content["src"] = "http://example.com/example.svg"
+    entry.content["type"] = "image/svg+xml"
+
+    assert_equal("", entry.content.to_s)
+  end
+
+  def test_multiple
+    entry = Atom::Entry.new
+
+    link = Atom::Link.new
+    link["href"] = "http://example.org/"
+
+    assert_raises(ArgumentError) { entry.authors << "test" }
+    assert_raises(ArgumentError) { entry.authors << link }
+
+    entry.links << link
+
+    assert_equal 1, entry.links.length
+  end
+
+  def test_nice_multiple
+    entry = Atom::Entry.new
+
+    entry.authors.new :name => 'Brendan Taylor', :email => 'fake@fake.com', :uri => 'http://necronomicorp.com/bct'
+    entry.authors.new :name => 'some jerk'
+
+    assert_equal 2, entry.authors.length
+
+    assert_equal 'Brendan Taylor', entry.authors.first.name
+  end
+
+  require "date"
+  def test_date_construct
+    entry = Atom::Entry.new
+
+    today = Date.today
+    entry.updated = today
+
+    assert_match(/^#{today}T00:00:00/, entry.updated.to_s)
+  end
+end