mrt-ingest 0.0.4 → 0.0.5

data/test/test_iobject.rb

@@ -1,174 +0,0 @@
-# Author::    Erik Hetzner  (mailto:erik.hetzner@ucop.edu)
-# Copyright:: Copyright (c) 2011, Regents of the University of California
-
-require 'rubygems'
-
-require 'test/unit'
-require 'checkm'
-require 'fakeweb'
-require 'mocha'
-require 'mrt/ingest'
-require 'shoulda'
-require 'open-uri'
-require 'socket'
-
-class TestIObject < Test::Unit::TestCase
-  def parse_object_manifest(iobject)
-    req = iobject.mk_request("profile", "submitter")
-    args = req.mk_args
-    return Checkm::Manifest.new(args['file'].read())
-  end
-
-  def write_to_tempfile(content)
-    tempfile = Tempfile.new('test_iobject')
-    tempfile << content
-    tempfile.open
-    return tempfile
-  end
-
-  def get_uri_for_name(iobject, name)
-    manifest = parse_object_manifest(iobject)
-    return manifest.entries.find { |entry|
-      entry.values[-2] == name
-    }
-  end
-
-  def parse_erc(erc)
-    arr = erc.lines.map do |line|
-      md = line.chomp.match(/^([^:]+):\s*(.*)$/)
-      [md[1], md[2]]
-    end.flatten
-    h = Hash[*arr]
-    h.delete("erc")
-    return h
-  end
-
-  def parse_erc_entry(erc_entry)
-    return parse_erc(open(erc_entry.values[0]).read())
-  end
-
-  def check_erc_content(iobject, asserted_erc)
-    erc_entry = get_uri_for_name(iobject, "mrt-erc.txt")
-    if erc_entry.nil?
-      assert(false, "Could not find mrt-erc.txt file!")
-    else
-      iobject.start_server()
-      assert_equal(asserted_erc, parse_erc_entry(erc_entry))
-      iobject.stop_server()
-    end
-  end
-
-  context "an iobject with local ID" do
-    setup do
-      @local_id = '10.1098/rstl.1665.0007'
-      @iobject = Mrt::Ingest::IObject.new(local_identifier: @local_id)
-    end
-
-    should "include that local ID in the resuest" do
-      request = @iobject.mk_request("profile", "submitter")
-      assert_equal(@local_id, request.local_identifier)
-    end
-  end
-
-  context "an iobject" do
-    setup do
-      @iobject = Mrt::Ingest::IObject.new
-    end
-    
-    should "be able to add a URI component" do
-      @iobject.add_component(URI.parse("http://example.org/file"))
-    end
-
-    # TODO: remove prefetch code
-    # should "be able to add a URI component with prefetching, served locally" do
-    #   @iobject.add_component(URI.parse("http://example.org/"), :prefetch=>true)
-    #   manifest = parse_object_manifest(@iobject)
-    #   manifest.entries.each do |entry|
-    #     # check that all files are served locally
-    #     uri = URI.parse(entry.values[0])
-    #     assert_equal(Socket.gethostname, uri.host)
-    #   end
-    # end
-
-    should "not be able to add a non-URI component" do
-      assert_raise(Mrt::Ingest::IngestException) do
-        @iobject.add_component("http://example.org/file")
-      end
-    end
-    
-    should "be able to make a request" do
-      req = @iobject.mk_request("profile", "submitter")
-      assert_equal("profile", req.profile)
-      assert_equal("submitter", req.submitter)
-    end
-  end
-  
-  context "the created request" do
-    setup do
-      @iobject = Mrt::Ingest::IObject.new
-      @manifest = parse_object_manifest(@iobject)
-      @erc_entry = get_uri_for_name(@iobject, "mrt-erc.txt")
-    end
-    
-    should "generate a valid manifest file with more than one line" do
-      assert(@manifest.entries.length > 0, "Empty manifest?")
-    end
-    
-    should "have a mrt-erc.txt entry, and it should be fetchable" do
-      if @erc_entry.nil?
-        assert(false, "Could not find mrt-erc.txt file!")
-      else
-        @iobject.start_server()
-        erc_lines = open(@erc_entry.values[0]).read().lines().to_a
-        @iobject.stop_server()
-      end
-    end
-  end
-
-  ERC_CONTENT = <<EOS
-who: John Doe
-what: Something
-when: now
-EOS
-
-  context "an iobject" do
-    should "be able to specify a file for ERC" do
-      erc_tempfile = write_to_tempfile(ERC_CONTENT)
-      iobject = Mrt::Ingest::IObject.new(:erc=>File.new(erc_tempfile.path))
-      check_erc_content(iobject, parse_erc(ERC_CONTENT))
-    end
-    
-    should "be able to use a hash for ERC" do
-      erc = { 
-        "who" => "John Doe",
-        "what" => "Something",
-        "when" => "now" }
-      iobject = Mrt::Ingest::IObject.new(:erc=>erc)
-      check_erc_content(iobject, erc)
-    end
-  end
-  
-  FILE_CONTENT = <<EOS
-Hello, world!
-EOS
-
-  FILE_CONTENT_MD5 = "746308829575e17c3331bbcb00c0898b"
-
-  context "serving local files" do
-    should "be able to add a local file component" do
-      iobject = Mrt::Ingest::IObject.new
-      tempfile = write_to_tempfile(FILE_CONTENT)
-      iobject.add_component(tempfile, {:name => "helloworld" })
-      uri_entry = get_uri_for_name(iobject, "helloworld")
-      erc_entry = get_uri_for_name(iobject, "mrt-erc.txt")
-      manifest = parse_object_manifest(iobject)
-      if uri_entry.nil?
-        assert(false, "Could not find hosted file URI!")
-      else
-        iobject.start_server
-        assert_equal(FILE_CONTENT, open(uri_entry.values[0]).read())
-        iobject.stop_server()
-      end
-    end
-  end
-end

data/test/test_request.rb

@@ -1,37 +0,0 @@
-# Author::    Erik Hetzner  (mailto:erik.hetzner@ucop.edu)
-# Copyright:: Copyright (c) 2011, Regents of the University of California
-
-require 'rubygems'
-
-require 'test/unit'
-require 'fakeweb'
-require 'mocha'
-require 'mrt/ingest'
-require 'shoulda'
-
-class TestRequest < Test::Unit::TestCase
-  context "when creating a request" do
-    setup do
-    end
-    
-    should "not supplying a required parameter should raise an exception" do
-      assert_raise(Mrt::Ingest::RequestException) do
-        Mrt::Ingest::Request.
-          new(:submitter => "jd/John Doe",
-              :type      => "file")
-      end
-
-      assert_raise(Mrt::Ingest::RequestException) do
-        Mrt::Ingest::Request.
-          new(:profile => "demo_merritt",
-              :type    => "file")
-      end
-
-      assert_raise(Mrt::Ingest::RequestException) do
-        Mrt::Ingest::Request.
-          new(:profile   => "demo_merritt",
-              :submitter => "jd/John Doe")
-      end
-    end
-  end
-end

data/test/test_response.rb

@@ -1,63 +0,0 @@
-# Author::    Erik Hetzner  (mailto:erik.hetzner@ucop.edu)
-# Copyright:: Copyright (c) 2011, Regents of the University of California
-
-require 'rubygems'
-
-require 'test/unit'
-require 'fakeweb'
-require 'mocha'
-require 'mrt/ingest'
-require 'shoulda'
-
-class TestResponse < Test::Unit::TestCase
-  RESPONSE_JSON = <<EOS
-{
-
-    "bat:batchState": {
-        "bat:batchID":"bid-8c0fa0c2-f3d7-4deb-bd49-f953f6752b59",
-        "bat:updateFlag":false,
-        "bat:targetQueue":"example.org:2181",
-        "bat:batchStatus":"QUEUED",
-        "bat:userAgent":"egh/Erik Hetzner",
-        "bat:submissionDate":"2011-08-31T15:40:26-07:00",
-        "bat:targetQueueNode":"/ingest.example.1",
-        "bat:batchProfile": {
-            "bat:owner":"ark:/99999/fk4tt4wsh",
-            "bat:creationDate":"2010-01-19T13:28:14-08:00",
-            "bat:targetStorage": {
-                "bat:storageLink":"http://example.org:35121",
-                "bat:nodeID":10
-            },
-            "bat:objectType":"MRT-curatorial",
-            "bat:modificationDate":"2010-01-26T23:28:14-08:00",
-            "bat:aggregateType":"",
-            "bat:objectMinterURL":"https://example.org/ezid/shoulder/ark:/99999/fk4",
-            "bat:collection": {
-            },
-            "bat:profileID":"merritt_content",
-            "bat:profileDescription":"Merritt demo content",
-            "bat:fixityURL":"http://example.org:33143",
-            "bat:contactsEmail": {
-                "bat:notification": {
-                    "bat:contactEmail":"erik.hetzner@example.org"
-                }
-            },
-            "bat:identifierScheme":"ARK",
-            "bat:identifierNamespace":"99999",
-            "bat:objectRole":"MRT-content"
-        }
-    }
-}
-EOS
-
-  context "when creating a response" do
-    setup do
-      @response = Mrt::Ingest::Response.new(RESPONSE_JSON)
-    end
-    
-    should "have the right properties" do
-      assert_equal("bid-8c0fa0c2-f3d7-4deb-bd49-f953f6752b59", @response.batch_id)
-      assert_equal(Time.at(1314830426), @response.submission_date)
-    end
-  end
-end