test_protocol.rb in atom-tools-2.0.0

- old
+ new

@@ -3,19 +3,25 @@
 require "atom/service"
 
 class FakeHTTP
   Response = Struct.new(:body, :code, :content_type)
 
-  def initialize table, mime_type
+  def initialize table
     @table = table
-    @mime_type = mime_type
   end
-  def get url
+
+  def get url, headers = {}
     res = Response.new
-    res.body = @table[url.to_s]
+
+    data = @table[url.to_s]
+
+    res.body = data[1]
     res.code = 200.to_s
-    res.content_type = @mime_type
+    res.content_type = data[0]
+
+    def res.validate_content_type valid; valid.member? content_type; end
+
     res
   end
 end
 
 class AtomProtocolTest < Test::Unit::TestCase
@@ -33,34 +39,28 @@
       <accept>image/*</accept>
     </collection>
   </workspace>
 </service>
 END
-    
-    service = Atom::Service.new
-    service.parse doc
 
+    service = Atom::Service.parse doc
+
     ws = service.workspaces.first
-    assert_equal "My Blog", ws.title.to_s 
+    assert_equal "My Blog", ws.title.to_s
 
     coll = ws.collections.first
-    assert_equal URI.parse("http://example.org/myblog/entries"), coll.uri
+    assert_equal "http://example.org/myblog/entries", coll.href
     assert_equal "Entries", coll.title.to_s
     assert_equal ["application/atom+xml;type=entry"], coll.accepts
 
     coll = ws.collections.last
-    assert_equal URI.parse("http://example.org/myblog/fotes"), coll.uri
+    assert_equal "http://example.org/myblog/fotes", coll.href
     assert_equal "Photos", coll.title.to_s
     assert_equal ["image/*"], coll.accepts
 
     http = service.instance_variable_get(:@http)
     assert_instance_of Atom::HTTP, http
-
-    # collections should inherit the service's HTTP object
-    assert_equal http, coll.instance_variable_get(:@http)
-
-    # XXX write a test for relative hrefs
   end
 
   def test_write_introspection
     service = Atom::Service.new
 
@@ -81,14 +81,14 @@
 
     doc = REXML::Document.new(service.to_s)
 
     assert_equal "http://www.w3.org/2007/app", doc.root.namespace
 
-    ws = REXML::XPath.first( doc.root, 
-                              "/app:service/app:workspace", 
+    ws = REXML::XPath.first( doc.root,
+                              "/app:service/app:workspace",
                               nses )
-   
+
     title = REXML::XPath.first( ws, "./atom:title", nses)
 
     assert_equal "Workspace 1", title.text
     assert_equal "http://www.w3.org/2005/Atom", title.namespace
 
@@ -120,11 +120,49 @@
     collection = Atom::Collection.new("http://necronomicorp.com/testatom?atom")
 
     assert_instance_of Atom::HTTP, collection.instance_variable_get("@http")
   end
 
-  def test_collection_properly_inherits_feed
-    collection = Atom::Collection.new("http://necronomicorp.com/testatom?atom")
+  def test_autodiscover_service_link
+    http = FakeHTTP.new \
+      'http://example.org/' => [ 'text/html', '<html><link rel="service" href="svc">' ],
+      'http://example.org/xhtml' => [ 'text/html', '<html><head><link rel="service" href="svc"/></head></html>' ],
+      'http://example.org/svc' => [ 'application/atomsvc+xml', '<service xmlns="http://www.w3.org/2007/app"/>' ]
 
-    assert_equal [], collection.links
+    svc = Atom::Service.discover 'http://example.org/', http
+    assert_instance_of Atom::Service, svc
+
+    svc = Atom::Service.discover 'http://example.org/xhtml', http
+    assert_instance_of Atom::Service, svc
+  end
+
+  def test_autodiscover_rsd
+    http = FakeHTTP.new \
+      'http://example.org/' => [ 'text/html', '<html><link rel="EditURI" href="rsd">' ],
+      'http://example.org/svc' => [ 'application/atomsvc+xml', '<service xmlns="http://www.w3.org/2007/app"/>' ],
+      'http://example.org/rsd' => [ 'text/xml', '<rsd version="1.0" xmlns="http://archipelago.phrasewise.com/rsd"><service><apis><api name="Atom" apiLink="svc" /></apis></service></rsd>' ]
+
+    svc = Atom::Service.discover 'http://example.org/', http
+    assert_instance_of Atom::Service, svc
+  end
+
+  def test_autodiscover_conneg
+    http = FakeHTTP.new \
+      'http://example.org/svc' => [ 'application/atomsvc+xml', '<service xmlns="http://www.w3.org/2007/app"/>' ]
+
+    svc = Atom::Service.discover 'http://example.org/svc', http
+    assert_instance_of Atom::Service, svc
+  end
+
+  def test_cant_autodiscover
+    http = FakeHTTP.new 'http://example.org/h' => [ 'text/html', '<html>' ],
+                       'http://example.org/t' => [ 'text/plain', 'no joy.' ]
+
+    assert_raises Atom::AutodiscoveryFailure do
+      Atom::Service.discover 'http://example.org/h', http
+    end
+
+    assert_raises Atom::AutodiscoveryFailure do
+      Atom::Service.discover 'http://example.org/t', http
+    end
   end
 end