oai 0.0.1 → 1.3.0

data/test/activerecord_provider/helpers/providers.rb

@@ -0,0 +1,68 @@
+require 'active_record'
+require 'oai'
+
+Dir.glob(File.dirname(__FILE__) + "/../models/*.rb").each do |lib|
+  require lib
+end
+
+class ARProvider < OAI::Provider::Base
+  repository_name 'ActiveRecord Based Provider'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordWrapper.new(DCField)
+end
+
+class ARProviderCustomIdentifierField < OAI::Provider::Base
+  repository_name 'ActiveRecord Based Provider'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordWrapper.new(DCField, identifier_field: "source")
+end
+
+class ARProviderWithScope < OAI::Provider::Base
+  DATE_LESS_THAN_RESTRICTION = Time.parse("2007-03-12 19:30:22 UTC")
+
+  repository_name 'ActiveRecord Based Provider'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordWrapper.new(DCField.where("date < ?", DATE_LESS_THAN_RESTRICTION).includes(:sets))
+end
+
+class SimpleResumptionProvider < OAI::Provider::Base
+  repository_name 'ActiveRecord Resumption Provider'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordWrapper.new(DCField, :limit => 25)
+end
+
+class SimpleResumptionProviderWithNonIntegerID < OAI::Provider::Base
+  repository_name 'ActiveRecord Resumption Provider With Non-Integer ID'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordWrapper.new(DCField, :limit => 25, identifier_field: "source")
+end
+
+class CachingResumptionProvider < OAI::Provider::Base
+  repository_name 'ActiveRecord Caching Resumption Provider'
+  repository_url 'http://localhost'
+  record_prefix 'oai:test'
+  source_model ActiveRecordCachingWrapper.new(DCField, :limit => 25)
+end
+
+
+class ARLoader
+  def self.load
+    fixtures = YAML.load_file(
+      File.join(File.dirname(__FILE__), '..', 'fixtures', 'dc.yml')
+    )
+    fixtures.keys.sort.each do |key|
+      lang = DCLang.create(name: fixtures[key].delete('language'))
+      DCField.create(fixtures[key].merge(dc_lang: lang))
+    end
+  end
+
+  def self.unload
+    DCField.delete_all
+    DCLang.delete_all
+  end
+end

data/test/activerecord_provider/helpers/set_provider.rb

@@ -0,0 +1,24 @@
+# Extend ActiveRecordModel to support sets
+class SetModel < OAI::Provider::ActiveRecordWrapper
+
+  # Return all available sets
+  def sets
+    DCSet.all
+  end
+
+end
+
+class ARSetProvider < OAI::Provider::Base
+  repository_name 'ActiveRecord Set Based Provider'
+  repository_url 'http://localhost'
+  record_prefix = 'oai:test'
+  source_model SetModel.new(DCField, :timestamp_field => 'date')
+end
+
+class ARExclusiveSetProvider < OAI::Provider::Base
+  repository_name 'ActiveRecord Set Based Provider'
+  repository_url 'http://localhost'
+  record_prefix = 'oai:test'
+  source_model OAI::Provider::ActiveRecordWrapper.new(
+    ExclusiveSetDCField, :timestamp_field => 'date')
+end

data/test/activerecord_provider/helpers/transactional_test_case.rb

@@ -0,0 +1,35 @@
+class TransactionalTestCase < Test::Unit::TestCase
+
+  def run(result, &block)
+    # Handle the default "you have no tests" test if it turns up
+    return if @method_name.to_s == "default_test"
+    ActiveRecord::Base.transaction do
+      load_fixtures
+      result = super(result, &block)
+      raise ActiveRecord::Rollback
+    end
+    result
+  end
+
+  protected
+
+  def load_fixtures
+    fixtures = YAML.load_file(
+      File.join(File.dirname(__FILE__), '..', 'fixtures', 'dc.yml')
+    )
+    disable_logging do
+      fixtures.keys.sort.each do |key|
+        lang = DCLang.create(name: fixtures[key].delete('language'))
+        DCField.create(fixtures[key].merge(dc_lang: lang))
+      end
+    end
+  end
+
+  def disable_logging
+    logger = ActiveRecord::Base.logger
+    ActiveRecord::Base.logger = nil
+    yield
+    ActiveRecord::Base.logger = logger
+  end
+
+end

data/test/activerecord_provider/models/dc_field.rb

@@ -0,0 +1,15 @@
+class DCField < ActiveRecord::Base
+  self.inheritance_column = 'DONOTINHERIT'
+  has_and_belongs_to_many :sets,
+    :join_table => "dc_fields_dc_sets",
+    :foreign_key => "dc_field_id",
+    :class_name => "DCSet"
+
+  belongs_to :dc_lang, class_name: "DCLang", optional: true
+
+  default_scope -> { left_outer_joins(:dc_lang) }
+
+  def language
+    dc_lang&.name
+  end
+end

data/test/activerecord_provider/models/dc_lang.rb

@@ -0,0 +1,3 @@
+class DCLang < ActiveRecord::Base
+  has_many :dc_fields
+end

data/test/activerecord_provider/models/dc_set.rb

@@ -0,0 +1,7 @@
+class DCSet < ActiveRecord::Base
+  has_and_belongs_to_many :dc_fields,
+    :join_table => "dc_fields_dc_sets",
+    :foreign_key => "dc_set_id",
+    :class_name => "DCField"
+
+end

data/test/activerecord_provider/models/exclusive_set_dc_field.rb

@@ -0,0 +1,17 @@
+class ExclusiveSetDCField < ActiveRecord::Base
+  self.inheritance_column = 'DONOTINHERIT'
+
+  def self.sets
+    klass = Struct.new(:name, :spec)
+    self.distinct.pluck(:set).compact.map do |spec|
+      klass.new("Set #{spec}", spec)
+    end
+  end
+
+  belongs_to :dc_lang, class_name: "DCLang", optional: true
+
+  def language
+    dc_lang&.name
+  end
+
+end

data/test/activerecord_provider/models/oai_token.rb

@@ -0,0 +1,3 @@
+class OaiToken < ActiveRecord::Base
+  serialize :params
+end

data/test/activerecord_provider/tc_activerecord_wrapper.rb

@@ -0,0 +1,63 @@
+require 'test_helper_ar_provider'
+
+class ActiveRecordWrapperTest < TransactionalTestCase
+  def test_sql_conditions_from_date
+    input = "2005-12-25"
+    expected = input.dup
+    sql_template, sql_opts = sql_conditions(from: input)
+    assert_equal "dc_fields.updated_at >= :from", sql_template
+    assert_equal expected, sql_opts[:from]
+    sql_template, sql_opts = sql_conditions(from: Date.strptime(input, "%Y-%m-%d"))
+    assert_equal "dc_fields.updated_at >= :from", sql_template
+    assert_equal expected, sql_opts[:from]
+  end
+
+  def test_sql_conditions_from_time
+    input = "2005-12-25T00:00:00Z"
+    expected = "2005-12-25 00:00:00"
+    sql_template, sql_opts = sql_conditions(from: input)
+    assert_equal "dc_fields.updated_at >= :from", sql_template
+    assert_equal expected, sql_opts[:from]
+    sql_template, sql_opts = sql_conditions(from: Time.strptime(input, "%Y-%m-%dT%H:%M:%S%Z"))
+    assert_equal "dc_fields.updated_at >= :from", sql_template
+    assert_equal expected, sql_opts[:from]
+  end
+
+  def test_sql_conditions_until_date
+    input = "2005-12-25"
+    expected = "2005-12-26"
+    sql_template, sql_opts = sql_conditions(until: input)
+    assert_equal "dc_fields.updated_at < :until", sql_template
+    assert_equal expected, sql_opts[:until]
+    sql_template, sql_opts = sql_conditions(until: Date.strptime(input, "%Y-%m-%d"))
+    assert_equal "dc_fields.updated_at < :until", sql_template
+    assert_equal expected, sql_opts[:until]
+  end
+
+  def test_sql_conditions_until_time
+    input = "2005-12-25T00:00:00Z"
+    expected = "2005-12-25 00:00:01"
+    sql_template, sql_opts = sql_conditions(until: input)
+    assert_equal "dc_fields.updated_at < :until", sql_template
+    assert_equal expected, sql_opts[:until]
+    sql_template, sql_opts = sql_conditions(until: Time.strptime(input, "%Y-%m-%dT%H:%M:%S%Z"))
+    assert_equal "dc_fields.updated_at < :until", sql_template
+    assert_equal expected, sql_opts[:until]
+  end
+
+  def test_sql_conditions_both
+    input = "2005-12-25"
+    sql_template, sql_opts = sql_conditions(from: input, until: input)
+    assert_equal "dc_fields.updated_at >= :from AND dc_fields.updated_at < :until", sql_template
+  end
+
+  def setup
+    @wrapper = OAI::Provider::ActiveRecordWrapper.new(DCField)
+  end
+
+  def sql_conditions(opts)
+    @wrapper.send :sql_conditions, opts
+  end
+end
+
+

data/test/activerecord_provider/tc_ar_provider.rb

@@ -0,0 +1,199 @@
+require 'test_helper_ar_provider'
+
+class ActiveRecordProviderTest < TransactionalTestCase
+
+  def test_identify
+    assert @provider.identify =~ /ActiveRecord Based Provider/
+  end
+
+  def test_metadata_formats
+    assert_nothing_raised { REXML::Document.new(@provider.list_metadata_formats) }
+    doc =  REXML::Document.new(@provider.list_metadata_formats)
+    assert doc.elements['/OAI-PMH/ListMetadataFormats/metadataFormat/metadataPrefix'].text == 'oai_dc'
+  end
+
+  def test_metadata_formats_for_record
+    record_id = DCField.first.id
+    assert_nothing_raised { REXML::Document.new(@provider.list_metadata_formats(:identifier => "oai:test:#{record_id}")) }
+    doc =  REXML::Document.new(@provider.list_metadata_formats)
+    assert doc.elements['/OAI-PMH/ListMetadataFormats/metadataFormat/metadataPrefix'].text == 'oai_dc'
+  end
+
+  def test_list_records
+    assert_nothing_raised do
+      REXML::Document.new(@provider.list_records(:metadata_prefix => 'oai_dc'))
+    end
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc'))
+    assert_equal 100, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_list_records_scope
+    @provider = ARProviderWithScope.new
+
+    doc = nil
+    assert_nothing_raised do
+      doc = REXML::Document.new(@provider.list_records(:metadata_prefix => 'oai_dc'))
+    end
+
+    expected_count = DCField.where("date < ?", ARProviderWithScope::DATE_LESS_THAN_RESTRICTION).count
+    assert_equal expected_count, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_invalid_set_raises_no_match
+    assert_raises(OAI::NoMatchException) do
+      @provider.list_records(:metadata_prefix => 'oai_dc', :set => "invalid_does_not_exist")
+    end
+  end
+
+  def test_get_record_alternate_identifier_column
+    @provider = ARProviderCustomIdentifierField.new
+
+    record_id = DCField.first.send(@provider.class.model.identifier_field)
+
+    doc = REXML::Document.new(@provider.get_record(
+        :identifier => "oai:test:#{record_id}", :metadata_prefix => 'oai_dc'))
+
+    assert_equal "oai:test:#{record_id}", doc.elements['OAI-PMH/GetRecord/record/header/identifier'].text
+  end
+
+  def test_list_identifiers
+    assert_nothing_raised { REXML::Document.new(@provider.list_identifiers) }
+    doc = REXML::Document.new(@provider.list_identifiers)
+    assert_equal 100, doc.elements['OAI-PMH/ListIdentifiers'].to_a.size
+  end
+
+  def test_get_record
+    record_id = DCField.first.id
+    assert_nothing_raised do
+      REXML::Document.new(@provider.get_record(
+        :identifier => "oai:test:#{record_id}", :metadata_prefix => 'oai_dc'))
+    end
+    doc = REXML::Document.new(@provider.get_record(
+      :identifier => "#{record_id}", :metadata_prefix => 'oai_dc'))
+    assert_equal "oai:test:#{record_id}", doc.elements['OAI-PMH/GetRecord/record/header/identifier'].text
+  end
+
+  def test_deleted
+    record = DCField.first
+    record.deleted = true;
+    record.save
+    doc = REXML::Document.new(@provider.get_record(
+      :identifier => "oai:test:#{record.id}", :metadata_prefix => 'oai_dc'))
+    assert_equal "oai:test:#{record.id}", doc.elements['OAI-PMH/GetRecord/record/header/identifier'].text
+    assert_equal 'deleted', doc.elements['OAI-PMH/GetRecord/record/header'].attributes["status"]
+  end
+
+  def test_from
+    first_id = DCField.order("id asc").first.id
+    DCField.where("dc_fields.id < #{first_id + 90}").update_all(updated_at: Time.parse("January 1 2005"))
+
+    DCField.where("dc_fields.id < #{first_id + 10}").update_all(updated_at: Time.parse("June 1 2005"))
+
+
+    from_param = Time.parse("January 1 2006").getutc.iso8601
+
+    doc = REXML::Document.new(
+      @provider.list_records(
+        :metadata_prefix => 'oai_dc', :from => from_param)
+    )
+    assert_equal DCField.where(["dc_fields.updated_at >= ?", from_param]).size,
+      doc.elements['OAI-PMH/ListRecords'].size
+
+    doc = REXML::Document.new(
+      @provider.list_records(
+        :metadata_prefix => 'oai_dc', :from => Time.parse("May 30 2005").getutc.iso8601)
+    )
+    assert_equal 20, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_until
+    first_id = DCField.order(id: :asc).first.id
+    DCField.where("dc_fields.id < ?", first_id + 10).update_all(updated_at: Time.parse("June 1 2005"))
+
+    doc = REXML::Document.new(
+      @provider.list_records(
+        :metadata_prefix => 'oai_dc', :until => Time.parse("June 1 2005"))
+    )
+    assert_equal 10, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_from_and_until
+    first_id = DCField.order(id: :asc).first.id
+    DCField.update_all(updated_at: Time.parse("June 1 2005"))
+    DCField.where("dc_fields.id < ?", first_id + 50).update_all(updated_at: Time.parse("June 15 2005"))
+    DCField.where("dc_fields.id < ?", first_id + 10).update_all(updated_at: Time.parse("June 30 2005"))
+
+    doc = REXML::Document.new(
+      @provider.list_records(
+        :metadata_prefix => 'oai_dc',
+        :from => Time.parse("June 3 2005").getutc.iso8601,
+        :until => Time.parse("June 16 2005").getutc.iso8601)
+      )
+    assert_equal 40, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_bad_until_raises_exception
+    DCField.order(id: :asc).limit(10).update_all(updated_at: 1.year.ago)
+    DCField.order(id: :desc).limit(10).update_all(updated_at: 1.year.from_now)
+    badTimes = [
+      'junk',
+      'February 92nd, 2015']
+    badTimes.each do |time|
+      assert_raise(OAI::ArgumentException) do
+        @provider.list_records(:metadata_prefix => 'oai_dc', :until => time)
+      end
+    end
+  end
+
+  def test_bad_from_raises_exception
+    DCField.order(id: :asc).limit(10).update_all(updated_at: 1.year.ago)
+    DCField.order(id: :desc).limit(10).update_all(updated_at: 1.year.from_now)
+
+    badTimes = [
+      'junk',
+      'February 92nd, 2015']
+    badTimes.each do |time|
+      assert_raise(OAI::ArgumentException) do
+        @provider.list_records(:metadata_prefix => 'oai_dc', :from => time)
+      end
+    end
+  end
+
+  def test_handles_empty_collections
+    DCField.delete_all
+    assert DCField.count == 0
+    # Identify and ListMetadataFormats should return normally
+    test_identify
+    test_metadata_formats
+    # ListIdentifiers and ListRecords should return "noRecordsMatch" error code
+    assert_raises(OAI::NoMatchException) do
+      REXML::Document.new(@provider.list_identifiers)
+    end
+    assert_raises(OAI::NoMatchException) do
+      REXML::Document.new(@provider.list_records(:metadata_prefix => 'oai_dc'))
+    end
+  end
+
+  def test_bad_id_raises_exception
+    badIdentifiers = [
+      'invalid"id',
+      'oai:test/5000',
+      'oai:test/-1',
+      'oai:test/one',
+      'oai:test/\\$1\1!']
+    badIdentifiers.each do |id|
+      assert_raise(OAI::IdException) do
+        @provider.get_record(:identifier => id, :metadata_prefix => 'oai_dc')
+      end
+    end
+  end
+
+
+  def setup
+    @provider = ARProvider.new
+  end
+
+end
+
+

data/test/activerecord_provider/tc_ar_sets_provider.rb

@@ -0,0 +1,159 @@
+require 'test_helper_ar_provider'
+
+class ActiveRecordSetProviderTest < TransactionalTestCase
+
+  def test_list_sets
+    doc = REXML::Document.new(@provider.list_sets)
+    sets = doc.elements["/OAI-PMH/ListSets"]
+    assert sets.size == 4
+    assert sets[0].elements["//setName"].text == "Set A"
+  end
+
+  def test_set_a
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "A"))
+    assert_equal 20, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_set_b
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "B"))
+    assert_equal 10, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_set_ab
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "A:B"))
+    assert_equal 10, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_record_with_multiple_sets
+    record = DCSet.where("spec = 'C'").first.dc_fields.first
+    assert_equal 2, record.sets.size
+  end
+
+  def test_missing_set
+    assert_raise(OAI::NoMatchException) do
+      doc = REXML::Document.new(@provider.list_records(
+        :metadata_prefix => 'oai_dc', :set => "D"))
+    end
+  end
+
+  def setup
+    @provider = ARSetProvider.new
+    define_sets
+  end
+
+  def define_sets
+    set_a = DCSet.create(:name => "Set A", :spec => "A")
+    set_b = DCSet.create(:name => "Set B", :spec => "B")
+    set_c = DCSet.create(:name => "Set C", :spec => "C")
+    set_ab = DCSet.create(:name => "Set A:B", :spec => "A:B")
+
+    next_id = 0
+    DCField.limit(10).order(id: :asc).each do |record|
+      set_a.dc_fields << record
+      next_id = record.id
+    end
+
+    DCField.where("dc_fields.id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      set_b.dc_fields << record
+      next_id = record.id
+    end
+
+    DCField.where("dc_fields.id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      set_ab.dc_fields << record
+      next_id = record.id
+    end
+
+    DCField.where("dc_fields.id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      set_a.dc_fields << record
+      set_c.dc_fields << record
+      next_id = record.id
+    end
+  end
+end
+
+
+class ActiveRecordExclusiveSetsProviderTest < TransactionalTestCase
+
+  def test_list_sets
+    doc = REXML::Document.new(@provider.list_sets)
+    sets = doc.elements["/OAI-PMH/ListSets"]
+    assert_equal 3, sets.size
+    assert_equal "Set A", sets[0].elements["//setName"].text
+  end
+
+  def test_set_a
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "A"))
+    assert_equal 20, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_set_b
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "B"))
+    assert_equal 10, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_set_ab
+    doc = REXML::Document.new(@provider.list_records(
+      :metadata_prefix => 'oai_dc', :set => "A:B"))
+    assert_equal 10, doc.elements['OAI-PMH/ListRecords'].to_a.size
+  end
+
+  def test_missing_set
+    assert_raise(OAI::NoMatchException) do
+      doc = REXML::Document.new(@provider.list_records(
+        :metadata_prefix => 'oai_dc', :set => "D"))
+    end
+  end
+
+  def setup
+    @provider = ARExclusiveSetProvider.new
+    define_sets
+  end
+
+  def define_sets
+    next_id = 0
+
+    ExclusiveSetDCField.limit(10).order(id: :asc).each do |record|
+      record.set = "A"
+      record.save!
+      next_id = record.id
+    end
+
+    ExclusiveSetDCField.where("id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      record.set = "B"
+      record.save!
+      next_id = record.id
+    end
+
+    ExclusiveSetDCField.where("id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      record.set = "A:B"
+      record.save!
+      next_id = record.id
+    end
+
+    ExclusiveSetDCField.where("id > ?", next_id).limit(10).order(id: :asc).each do |record|
+      record.set = "A"
+      record.save!
+      next_id = record.id
+    end
+  end
+
+  protected
+
+  def load_fixtures
+    fixtures = YAML.load_file(
+      File.join(File.dirname(__FILE__), 'fixtures', 'dc.yml')
+    )
+    disable_logging do
+      fixtures.keys.sort.each do |key|
+        lang = DCLang.create(name: fixtures[key].delete('language'))
+        ExclusiveSetDCField.create(fixtures[key].merge(dc_lang: lang))
+      end
+    end
+  end
+
+end

data/test/activerecord_provider/tc_caching_paging_provider.rb

@@ -0,0 +1,50 @@
+require 'test_helper_ar_provider'
+
+class CachingPagingProviderTest < TransactionalTestCase
+  include REXML
+
+  def test_full_harvest
+    doc = Document.new(@provider.list_records(:metadata_prefix => 'oai_dc'))
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].size
+    token = doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    doc = Document.new(@provider.list_records(:resumption_token => token))
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    token = doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].size
+    doc = Document.new(@provider.list_records(:resumption_token => token))
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    token = doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].size
+    doc = Document.new(@provider.list_records(:resumption_token => token))
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    assert_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].to_a.size
+  end
+
+  def test_from_and_until
+    first_id = DCField.order(id: :asc).first.id
+    DCField.where("dc_fields.id <= ?", first_id + 25).update_all(updated_at: Time.parse("September 15 2005"))
+    DCField.where(["dc_fields.id < ? and dc_fields.id > ?", first_id + 50, first_id + 25]).update_all(updated_at: Time.parse("November 1 2005"))
+
+    # Should return 50 records broken into 2 groups of 25.
+    doc = Document.new(
+      @provider.list_records(
+        :metadata_prefix => 'oai_dc',
+        :from => Time.parse("September 1 2005"),
+        :until => Time.parse("November 30 2005"))
+      )
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].size
+    token = doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    doc = Document.new(@provider.list_records(:resumption_token => token))
+    assert_not_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"]
+    assert_nil doc.elements["/OAI-PMH/ListRecords/resumptionToken"].text
+    assert_equal 26, doc.elements["/OAI-PMH/ListRecords"].to_a.size
+  end
+
+  def setup
+    @provider = CachingResumptionProvider.new
+  end
+
+end