stash-wrapper 0.1.1

data/spec/data/wrapper/wrapper-2.xml

@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<st:stash_wrapper xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+                  xsi:schemaLocation="http://dash.cdlib.org/stash_wrapper/ http://dash.cdlib.org/stash_wrapper/stash_wrapper.xsd"
+                  xmlns:st="http://dash.cdlib.org/stash_wrapper/">
+    <st:identifier type="DOI">10.14749/1407399498</st:identifier>
+    <st:stash_administrative>
+        <st:version>
+            <st:version_number>1</st:version_number>
+            <st:date>2013-08-18Z</st:date>
+            <st:note>Sample wrapped Datacite document</st:note>
+        </st:version>
+        <st:license>
+            <st:name>Creative Commons Attribution 4.0 International (CC-BY)</st:name>
+            <st:uri>https://creativecommons.org/licenses/by/4.0/legalcode</st:uri>
+        </st:license>
+        <st:embargo>
+            <st:type>download</st:type>
+            <st:period>1 year</st:period>
+            <st:start>2014-08-18Z</st:start>
+            <st:end>2013-08-18Z</st:end>
+        </st:embargo>
+        <st:inventory num_files="10">
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.dat</st:pathname>
+                <st:size unit="B">12345</st:size>
+                <st:mime_type>text/plain</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.csv</st:pathname>
+                <st:size unit="B">67890</st:size>
+                <st:mime_type>text/csv</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.sas7bdat</st:pathname>
+                <st:size unit="B">123456</st:size>
+                <st:mime_type>application/x-sas-data</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>formats.sas7bcat</st:pathname>
+                <st:size unit="B">78910</st:size>
+                <st:mime_type>application/x-sas-catalog</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.sas</st:pathname>
+                <st:size unit="B">11121</st:size>
+                <st:mime_type>application/x-sas</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.sav</st:pathname>
+                <st:size unit="B">31415</st:size>
+                <st:mime_type>application/x-sav</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.sps</st:pathname>
+                <st:size unit="B">16171</st:size>
+                <st:mime_type>application/x-spss</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.dta</st:pathname>
+                <st:size unit="B">81920</st:size>
+                <st:mime_type>application/x-dta</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.dct</st:pathname>
+                <st:size unit="B">212223</st:size>
+                <st:mime_type>application/x-dct</st:mime_type>
+            </st:file>
+            <st:file>
+                <st:pathname>HSRC_MasterSampleII.do</st:pathname>
+                <st:size unit="B">242526</st:size>
+                <st:mime_type>application/x-do</st:mime_type>
+            </st:file>
+        </st:inventory>
+    </st:stash_administrative>
+    <st:stash_descriptive>
+        <resource xmlns='http://datacite.org/schema/kernel-3' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'
+                  xsi:schemaLocation='http://datacite.org/schema/kernel-3 http://schema.datacite.org/meta/kernel-3/metadata.xsd'>
+            <identifier identifierType='DOI'>10.14749/1407399498</identifier>
+            <creators>
+                <creator>
+                    <creatorName>Zuma, Khangelani</creatorName>
+                </creator>
+                <creator>
+                    <creatorName>Human Sciences Research Council</creatorName>
+                </creator>
+            </creators>
+            <titles>
+                <title xml:lang='en'>HSRC Master Sample II</title>
+            </titles>
+            <publisher>HSRC - Human Science Research Council SA</publisher>
+            <publicationYear>2014</publicationYear>
+            <contributors>
+                <contributor contributorType='Distributor'>
+                    <contributorName>Human Sciences Research Council</contributorName>
+                </contributor>
+                <contributor contributorType='Funder'>
+                    <contributorName>Human Sciences Research Council</contributorName>
+                </contributor>
+                <contributor contributorType='RightsHolder'>
+                    <contributorName>Human Sciences Research Council</contributorName>
+                </contributor>
+            </contributors>
+            <language>eng</language>
+            <resourceType resourceTypeGeneral='Dataset'/>
+            <version>1.0</version>
+            <rightsList>
+                <rights>
+                  By accessing the data, you give assurance that The data and documentation will not be duplicated, redistributed or sold without prior approval from
+                  the rights holder. The data will be used for scientific research or educational purposes only. The data will only be used for the specified
+                  purpose. If it is used for another purpose the additional purpose will be registered. Redundant data files will be destroyed. The confidentiality of
+                  individuals/organisations in the data will be preserved at all times. No attempt will be made to obtain or derive information from the data to
+                  identify individuals/organisations. The HSRC will be acknowledged in all published and unpublished works based on the data according to the provided
+                  citation. The HSRC will be informed of any books, articles, conference papers, theses, dissertations, reports or other publications resulting from
+                  work based in whole or in part on the data and documentation. For archiving and bibliographic purposes an electronic copy of all reports and
+                  publications based on the requested data will be sent to the HSRC. To offer for deposit into the HSRC Data Collection any new data sets which have
+                  been derived from or which have been created by the combination of the data supplied with other data. The data team bears no responsibility for use of
+                  the data or for interpretations or inferences based upon such uses. Failure to comply with the End User License may result in sanctions being imposed.
+                </rights>
+            </rightsList>
+            <descriptions>
+                <description descriptionType='Abstract' xml:lang='en'>
+                  &lt;p&gt; The 2005 HSRC Master Sample was used for SABSSM 2008 and 2012, the SANHANES study in 2012 and SASAS 2007-2010 (adjacent EAs) to obtain an
+                  understanding of geographical spread of HIV/AIDS, perceptions and attitudes of people and other health related studies over time.&lt;/p&gt;
+                </description>
+                <description descriptionType='Abstract' xml:lang='en'>
+                  &lt;p&gt; A sample can be defined as a subset containing the characteristics of a larger population. Samples are used in statistical testing when
+                  population sizes are too large for the test to include all possible members or observations. A sample should represent the whole population and not
+                  reflect bias toward a specific attribute.[1]&lt;/p&gt; &lt;p&gt; One of the most crucial aspects of sample design in household surveys is its
+                  frame. The sampling frame has significant implications on the cost and the quality of any survey, household or otherwise.[2]&lt;/p&gt; &lt;p&gt; The
+                  sampling frame .... in a household survey must cover the entire target population. When that frame is used for multiple surveys or multiple rounds of
+                  the same survey it is known as a master sample frame or .... master sample.[3]&lt;/p&gt; &lt;p&gt; A master sample is a sample drawn from a population
+                  for use on a number of future occasions, so as to avoid ad hoc sampling on each occasion.  Sometimes the master sample is large and subsequent
+                  inquiries are based on a sub-sample from it.[4]&lt;/p&gt; &lt;p&gt; The HSRC compiles master samples in order to construct samples for various HSRC
+                  research studies.  The 2005 HSRC Master Sample was used for SABSSM 2008 and 2012, SASAS 2007-2010 and the SANHANES study in 2012 to obtain an
+                  understanding of geographical spread of HIV/AIDS, perceptions and attitudes of people and other health related studies over time.&lt;/p&gt; &lt;p&gt;
+                  The 2005 HSRC Master Sample was created in the following way:&lt;/p&gt; &lt;p&gt; South Africa was delineated into EAs according to municipality and
+                  province.  Municipal boundaries were obtained from the Municipal Demarcation Board.  An Enumeration area (EA) is the smallest geographical unit (piece
+                  of land) into which the country is divided for census or survey enumeration.[5] The concepts and definitions of terms used for Census 2001 comply in
+                  most instances with United Nations standards for censuses.&lt;/p&gt; &lt;p&gt; A total of 1,000 census enumeration areas (EAs) from the 2001
+                  population census were randomly selected using probability proportional to size and stratified by province, locality type and race in urban areas from
+                  a database of 80 787 EAs that were mapped using aerial photography to develop an HSRC master sample for selecting households.&lt;/p&gt; &lt;p&gt; The
+                  ideal frame would be complete with respect to the target population if all of its members (the universe) are covered by the frame.&lt;/p&gt; &lt;p&gt;
+                  Ideal characteristics of a master sample:&lt;/p&gt; &lt;ul&gt; &lt;li&gt; The master frame should be as complete, accurate and current as
+                  practicable.&lt;/li&gt; &lt;li&gt; A master sample frame for household surveys is typically developed from the most recent census, just as a regular
+                  sample frame is.&lt;/li&gt; &lt;li&gt; Because the master frame may be used during an entire intercensal (between census) period, however, it will
+                  usually require periodic and regular updating such as every 2-3 years.&lt;/li&gt; &lt;li&gt; This is in contrast to a regular frame which is more
+                  likely to be up-dated on an ad hoc basis and only when a particular survey is being planned[6]&lt;/li&gt; &lt;/ul&gt; &lt;p&gt; [1]
+                  http://www.investopedia.com/terms/s/sample.asp&lt;/p&gt; &lt;p&gt; [2]
+                  http://unstats.un.org/unsd/demographic/meetings/egm/sampling_1203/docs/no_3.pdf&lt;/p&gt; &lt;p&gt; [3]
+                  http://unstats.un.org/unsd/demographic/meetings/egm/sampling_1203/docs/no_3.pdf&lt;/p&gt; &lt;p&gt; [4] A Dictionary of Statistical Terms, 5th
+                  edition, prepared for the International Statistical Institute by F.H.C. Marriott. Published for the International Statistical Institute by Longman
+                  Scientific and Technical. http://stats.oecd.org/glossary/detail.asp?ID=3708&lt;/p&gt; &lt;p&gt; [5]
+                  http://africageodownloads.info/128_mokgokolo.pdf&lt;/p&gt; &lt;p&gt; [6]
+                  http://unstats.un.org/unsd/demographic/meetings/egm/sampling_1203/docs/no_3.pdf&lt;/p&gt;
+                </description>
+            </descriptions>
+            <geoLocations>
+                <geoLocation>
+                    <geoLocationPlace>National - all 9 provinces</geoLocationPlace>
+                </geoLocation>
+            </geoLocations>
+        </resource>
+    </st:stash_descriptive>
+</st:stash_wrapper>

data/spec/rspec_custom_matchers.rb

@@ -0,0 +1,69 @@
+require 'rspec/expectations'
+require 'equivalent-xml'
+
+RSpec::Matchers.define :be_xml do |expected|
+
+  def to_nokogiri(xml)
+    return nil unless xml
+    case xml
+    when Nokogiri::XML::Element
+      xml
+    when Nokogiri::XML::Document
+      xml.root
+    when String
+      to_nokogiri(Nokogiri::XML(xml))
+    when REXML::Element
+      to_nokogiri(xml.to_s)
+    else
+      fail "be_xml() expected XML, got #{xml.class}"
+    end
+  end
+
+  def to_pretty(nokogiri)
+    return nil unless nokogiri
+    out = StringIO.new
+    save_options = Nokogiri::XML::Node::SaveOptions::FORMAT | Nokogiri::XML::Node::SaveOptions::NO_DECLARATION
+    nokogiri.write_xml_to(out, encoding: 'UTF-8', indent: 2, save_with: save_options)
+    out.string
+  end
+
+  match do |actual|
+    expected_xml = to_nokogiri(expected) || fail("expected value #{expected} does not appear to be XML")
+    actual_xml = to_nokogiri(actual)
+
+    EquivalentXml.equivalent?(expected_xml, actual_xml, element_order: false, normalize_whitespace: true)
+  end
+
+  failure_message do |actual|
+    expected_string = to_pretty(to_nokogiri(expected))
+    actual_string = to_pretty(to_nokogiri(actual)) || actual
+    "expected XML:\n#{expected_string}\n\nbut was:\n#{actual_string}"
+  end
+
+  failure_message_when_negated do |actual|
+    actual_xml = to_element(actual) || actual
+    "expected not to get XML:\n\t#{actual_xml}"
+  end
+end
+
+RSpec::Matchers.define :be_time do |expected|
+
+  def to_string(time)
+    time.is_a?(Time) ? time.utc.round(2).iso8601(2) : time.to_s
+  end
+
+  match do |actual|
+    if expected
+      fail "Expected value #{expected} is not a Time" unless expected.is_a?(Time)
+      actual.is_a?(Time) && (to_string(expected) == to_string(actual))
+    else
+      return actual.nil?
+    end
+  end
+
+  failure_message do |actual|
+    expected_str = to_string(expected)
+    actual_str = to_string(actual)
+    "expected time:\n#{expected_str}\n\nbut was:\n#{actual_str}"
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,31 @@
+# ------------------------------------------------------------
+# SimpleCov setup
+
+if ENV['COVERAGE']
+  require 'simplecov'
+  require 'simplecov-console'
+
+  SimpleCov.minimum_coverage 100
+  SimpleCov.start do
+    add_filter '/spec/'
+    SimpleCov.formatter = SimpleCov::Formatter::MultiFormatter[
+      SimpleCov::Formatter::HTMLFormatter,
+      SimpleCov::Formatter::Console,
+    ]
+  end
+end
+
+# ------------------------------------------------------------
+# Rspec configuration
+
+RSpec.configure do |config|
+  config.raise_errors_for_deprecations!
+  config.mock_with :rspec
+end
+
+require 'rspec_custom_matchers'
+
+# ------------------------------------------------------------
+# Stash::Wrapper
+
+require 'stash/wrapper'

data/spec/unit/stash/wrapper/stash_wrapper_spec.rb

@@ -0,0 +1,239 @@
+require 'spec_helper'
+
+require 'nokogiri'
+require 'rexml/element'
+
+module Stash
+  module Wrapper
+    describe StashWrapper do
+      describe 'stash_wrapper.xsd' do
+        it 'is valid' do
+          schema = Nokogiri::XML::Schema(File.read('spec/data/wrapper/stash_wrapper.xsd'))
+          document = Nokogiri::XML(File.read('spec/data/wrapper/wrapper-1.xml'))
+          errors = schema.validate(document)
+          expect(errors.empty?).to be true
+        end
+
+        it 'validates a document' do
+          schema = Nokogiri::XML::Schema(File.read('spec/data/wrapper/stash_wrapper.xsd'))
+          document = Nokogiri::XML(File.read('spec/data/wrapper/wrapper-2.xml'))
+          errors = schema.validate(document)
+          errors.each do |e|
+            puts e
+          end
+          expect(errors.empty?).to be true
+        end
+      end
+
+      describe '#load_from_xml' do
+        it 'parses an XML file' do
+          data = File.read('spec/data/wrapper/wrapper-1.xml')
+          xml = REXML::Document.new(data).root
+          wrapper = StashWrapper.load_from_xml(xml)
+
+          id = wrapper.identifier
+          expect(id.type).to eq(IdentifierType::DOI)
+          expect(id.value).to eq('10.12345/1234567890')
+
+          admin = wrapper.stash_administrative
+
+          version = admin.version
+          expect(version.version_number).to eq(1)
+          expect(version.date).to eq(Date.new(2015, 9, 8))
+
+          license = admin.license
+          expect(license.name).to eq('Creative Commons Attribution 4.0 International (CC-BY)')
+          expect(license.uri).to eq(URI('https://creativecommons.org/licenses/by/4.0/legalcode'))
+
+          embargo = admin.embargo
+          expect(embargo.type).to eq(EmbargoType::DOWNLOAD)
+          expect(embargo.period).to eq('6 months')
+          expect(embargo.start_date).to eq(Date.new(2015, 9, 8))
+          expect(embargo.end_date).to eq(Date.new(2016, 3, 7))
+
+          inventory = admin.inventory
+          expect(inventory.num_files).to eq(1)
+          expect(inventory.files.size).to eq(1)
+
+          file = inventory.files[0]
+          expect(file.pathname).to eq('mydata.xlsx')
+          expect(file.size_bytes).to eq(12_345_678)
+          expect(file.mime_type).to eq(MIME::Type.new('application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'))
+
+          descriptive = wrapper.stash_descriptive
+          expect(descriptive).to be_an(Array)
+          expect(descriptive.size).to eq(1)
+          desc_elem = descriptive[0]
+          expect(desc_elem).to be_an(REXML::Element)
+
+          expected_xml =
+              '<dcs:resource xmlns:dcs="http://datacite.org/schema/kernel-3"
+                  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+                  xsi:schemaLocation="http://datacite.org/schema/kernel-3
+                                http://schema.datacite.org/meta/kernel-3/metadata.xsd">
+                <dcs:identifier identifierType="DOI">10.12345/1234567890</dcs:identifier>
+                <dcs:creators>
+                  <dcs:creator>
+                    <dcs:creatorName>Abrams, Stephen</dcs:creatorName>
+                  </dcs:creator>
+                </dcs:creators>
+                <dcs:titles>
+                  <dcs:title>My dataset</dcs:title>
+                </dcs:titles>
+                <dcs:publisher>UC Office of the President</dcs:publisher>
+                <dcs:publicationYear>2016</dcs:publicationYear>
+                <dcs:subjects>
+                  <dcs:subject>Data literacy</dcs:subject>
+                </dcs:subjects>
+                <dcs:resourceType resourceTypeGeneral="Dataset">Spreadsheet</dcs:resourceType>
+                <dcs:descriptions>
+                  <dcs:description descriptionType="Abstract">
+                    Lorum ipsum.
+                  </dcs:description>
+                </dcs:descriptions>
+              </dcs:resource>'
+
+          expect(desc_elem).to be_xml(expected_xml)
+        end
+      end
+
+      describe 'convenience accessors' do
+        it 'evades the law of Demeter' do
+          data = File.read('spec/data/wrapper/wrapper-1.xml')
+          xml = REXML::Document.new(data).root
+          wrapper = StashWrapper.load_from_xml(xml)
+
+          expect(wrapper.id_value).to eq('10.12345/1234567890')
+          expect(wrapper.version_number).to eq(1)
+          expect(wrapper.version_date).to eq(Date.new(2015, 9, 8))
+          expect(wrapper.license_name).to eq('Creative Commons Attribution 4.0 International (CC-BY)')
+          expect(wrapper.license_uri).to eq(URI('https://creativecommons.org/licenses/by/4.0/legalcode'))
+          expect(wrapper.embargo_type).to eq(EmbargoType::DOWNLOAD)
+          expect(wrapper.embargo_end_date).to eq(Date.new(2016, 3, 7))
+
+          inventory = wrapper.inventory
+          expect(inventory.num_files).to eq(1)
+          expect(inventory.files.size).to eq(1)
+          file = inventory.files[0]
+          expect(file.pathname).to eq('mydata.xlsx')
+          expect(file.size_bytes).to eq(12_345_678)
+          expect(file.mime_type).to eq(MIME::Type.new('application/vnd.openxmlformats-officedocument.spreadsheetml.sheet'))
+        end
+      end
+
+      describe '#parse_xml' do
+        it 'reads a Merritt OAI response' do
+          xml_str = File.read('spec/data/wrapper/mrtoai-wrapper.xml')
+          wrapper = StashWrapper.parse_xml(xml_str)
+
+          expect(wrapper.id_value).to eq('10.21271/wxy1000199')
+          expect(wrapper.version_number).to eq(1)
+          expect(wrapper.version_date).to eq(Date.new(2012, 8, 17))
+          expect(wrapper.license_name).to eq('Creative Commons Attribution 4.0 International (CC-BY)')
+          expect(wrapper.license_uri).to eq(URI('https://creativecommons.org/licenses/by/4.0/legalcode'))
+          expect(wrapper.embargo_type).to eq(EmbargoType::NONE)
+          expect(wrapper.embargo_end_date).to eq(Date.new(2012, 8, 17))
+        end
+      end
+
+      describe '#save_to_xml' do
+
+        describe 'namespace handling' do
+          before :each do
+            wrapper = StashWrapper.new(
+              identifier: Identifier.new(type: IdentifierType::DOI, value: '10.14749/1407399498'),
+              version: Version.new(number: 1, date: Date.new(2013, 8, 18), note: 'Sample wrapped Datacite document'),
+              license: License::CC_BY,
+              embargo: Embargo.new(type: EmbargoType::DOWNLOAD, period: '1 year', start_date: Date.new(2014, 8, 18), end_date: Date.new(2013, 8, 18)),
+              inventory: Inventory.new(
+                files: [
+                  StashFile.new(pathname: 'HSRC_MasterSampleII.dat', size_bytes: 12_345, mime_type: 'text/plain')
+                ]),
+              # Note: the recursive asserts only work because descriptive_elements is empty
+              descriptive_elements: []
+            )
+            @wrapper_xml = wrapper.save_to_xml
+          end
+
+          it 'sets the correct namespace' do
+            assert_st = lambda do |elem|
+              actual = elem.namespace
+              expected = StashWrapper::NAMESPACE
+              expect(actual).to eq(expected), "expected '#{expected}', got '#{actual}': #{elem}"
+              elem.each_element { |e| assert_st.call(e) }
+            end
+            assert_st.call(@wrapper_xml.root)
+          end
+
+          it 'sets the correct namespace prefix' do
+            assert_st = lambda do |elem|
+              actual = elem.prefix
+              expected = StashWrapper::NAMESPACE_PREFIX
+              expect(actual).to eq(expected), "expected '#{expected}', got '#{actual}': #{elem}"
+              elem.each_element { |e| assert_st.call(e) }
+            end
+            assert_st.call(@wrapper_xml.root)
+          end
+
+          it 'maps the namespace to the prefix' do
+            assert_st = lambda do |elem|
+              actual = elem.namespace(StashWrapper::NAMESPACE_PREFIX)
+              expected = StashWrapper::NAMESPACE
+              expect(actual).to eq(expected), "expected '#{expected}', got '#{actual}': #{elem}"
+              elem.each_element { |e| assert_st.call(e) }
+            end
+            assert_st.call(@wrapper_xml.root)
+          end
+
+          it 'includes the prefix in the name' do
+            assert_st = lambda do |elem|
+              expect(elem.to_s).to start_with("<#{StashWrapper::NAMESPACE_PREFIX}:")
+              elem.each_element { |e| assert_st.call(e) }
+            end
+            assert_st.call(@wrapper_xml.root)
+          end
+        end
+
+        it 'maps to XML' do
+
+          payload = File.read('spec/data/wrapper/wrapper-2-payload.xml')
+          payload_xml = REXML::Document.new(payload).root
+
+          wrapper = StashWrapper.new(
+            identifier: Identifier.new(type: IdentifierType::DOI, value: '10.14749/1407399498'),
+            version: Version.new(number: 1, date: Date.new(2013, 8, 18), note: 'Sample wrapped Datacite document'),
+            license: License::CC_BY,
+            embargo: Embargo.new(type: EmbargoType::DOWNLOAD, period: '1 year', start_date: Date.new(2014, 8, 18), end_date: Date.new(2013, 8, 18)),
+            inventory: Inventory.new(
+              files: [
+                StashFile.new(pathname: 'HSRC_MasterSampleII.dat', size_bytes: 12_345, mime_type: 'text/plain'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.csv', size_bytes: 67_890, mime_type: 'text/csv'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.sas7bdat', size_bytes: 123_456, mime_type: 'application/x-sas-data'),
+                StashFile.new(pathname: 'formats.sas7bcat', size_bytes: 78_910, mime_type: 'application/x-sas-catalog'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.sas', size_bytes: 11_121, mime_type: 'application/x-sas'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.sav', size_bytes: 31_415, mime_type: 'application/x-sav'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.sps', size_bytes: 16_171, mime_type: 'application/x-spss'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.dta', size_bytes: 81_920, mime_type: 'application/x-dta'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.dct', size_bytes: 212_223, mime_type: 'application/x-dct'),
+                StashFile.new(pathname: 'HSRC_MasterSampleII.do', size_bytes: 242_526, mime_type: 'application/x-do')
+              ]),
+            descriptive_elements: [payload_xml]
+          )
+
+          wrapper_xml = wrapper.save_to_xml
+
+          # File.open('spec/data/wrapper/wrapper-2-actual.xml', 'w') do |file|
+          #   formatter = REXML::Formatters::Pretty.new
+          #   formatter.width = 200
+          #   formatter.compact = true
+          #   file.write(formatter.write(wrapper_xml, ''))
+          # end
+
+          expected_xml = File.read('spec/data/wrapper/wrapper-2.xml')
+          expect(wrapper_xml).to be_xml(expected_xml)
+        end
+      end
+
+    end
+  end
+end