mead 0.0.5

data/test/test_ua023_006_buildings.rb

@@ -0,0 +1,111 @@
+require 'helper'
+
+class TestMeadUA023_006B < Test::Unit::TestCase
+
+  context "a mead from ua023_006 buildings" do
+    setup do
+      @mead = 'ua023_006-003-bx0001-008-001'
+    end
+
+    context "parsing a mead from ua023_006" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua023_006.xml')) #this is where processing
+      end
+
+      should "produce expected output of eadid" do
+        assert_equal @result.eadid, 'ua023_006'
+      end
+
+      should "produce the expected series" do
+        assert_equal @result.series, '3'
+      end
+
+      should "produce the expected container" do
+        expected = {:type=> 'box', :number => '1'}
+        assert_equal expected, @result.container
+      end
+
+      should "produce the expected folder" do
+        assert_equal @result.folder, {:type => 'folder', :number => '8'}
+      end
+
+      should "produce the expected sequence" do
+        assert_equal @result.sequence, '1'
+      end
+    end
+
+    context "extracting metadata from a mead" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua023_006.xml'))
+        @extractor = Mead::Extractor.new(@result)
+      end
+
+      should "be able to create an extractor" do
+        assert_equal @extractor.class, Mead::Extractor
+      end
+
+      should "convert a string to a mead object" do
+        assert_equal @extractor.mead.class, Mead::Identifier
+      end
+
+      context "should give back the metadata" do
+        setup do
+          @result = @extractor.extract
+        end
+
+        should "extract the item's unittitle" do
+          assert_equal 'Food Science Building and Phytotron', @extractor.stack[0][:unittitle]
+        end
+
+        should "extract the item's unitdate" do
+          assert_nil @extractor.stack[0][:unitdate]
+        end
+        
+        should "extract the item unitid" do
+          assert_nil @extractor.stack[0][:unitid]
+        end
+        
+        should "extract the item level" do
+          assert_equal 'file', @extractor.stack[0][:level]
+        end
+
+        should "extract the parent unittitle" do
+          assert_equal "Buildings", @extractor.stack[1][:unittitle]
+        end
+
+        should "extract the parent unitdate" do
+          assert_equal "1968, 1970, undated", @extractor.stack[1][:unitdate]
+        end
+        
+        should "extract the parent unitid" do
+          assert_nil @extractor.stack[1][:unitid]
+        end
+        
+        should "extract the parent level" do
+          assert_equal 'series', @extractor.stack[1][:level]
+        end
+
+        should "extract a series' series number" do
+          assert_equal 3, @extractor.stack[1][:series_number]
+        end
+
+#        should "only extract up to the series level" do
+#          assert_equal [
+#            {:unittitle=>"Food Science Building and Phytotron", :unitdate=>nil,
+#            :level => 'file', :unitid => nil, :item_location => 'Box 1, Folder 8'},
+#            {:unittitle=>"Buildings", :unitdate=>"1968, 1970, undated",
+#              :level => 'series', :unitid => nil,
+#              :series_number => 3
+#            }
+#          ], @extractor.stack
+#        end
+
+      end
+
+    end
+
+
+
+  end
+
+end

data/test/test_ua023_006_faculty.rb

@@ -0,0 +1,112 @@
+require 'helper'
+
+class TestMeadUA023_006 < Test::Unit::TestCase
+
+  context "a mead from ua023_006 faculty and staff" do
+    setup do
+      @mead = 'ua023_006-002-bx0001-007-001'
+    end
+
+    context "parsing a mead from ua023_006" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua023_006.xml')) #this is where processing
+      end
+
+      should "produce expected output of eadid" do
+        assert_equal @result.eadid, 'ua023_006'
+      end
+
+      should "produce the expected series" do
+        assert_equal @result.series, '2'
+      end
+
+      should "produce the expected container" do
+        expected = {:type=> 'box', :number => '1'}
+        assert_equal expected, @result.container
+      end
+
+      should "produce the expected folder" do
+        assert_equal @result.folder, {:type=> 'folder', :number => '7'}
+      end
+
+      should "produce the expected sequence" do
+        assert_equal @result.sequence, '1'
+      end
+    end
+
+    context "extracting metadata from a mead" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua023_006.xml'))
+        @extractor = Mead::Extractor.new(@result)
+        @file = File.open('test/ead/ua023_006.xml')
+      end
+
+      should "be able to create an extractor" do
+        assert_equal @extractor.class, Mead::Extractor
+      end
+
+      should "convert a string to a mead object" do
+        assert_equal @extractor.mead.class, Mead::Identifier
+      end
+
+      context "should give back the metadata" do
+        setup do
+          @result = @extractor.extract
+        end
+
+        should "extract the item's unittitle" do
+          assert_equal 'Faculty and Staff', @extractor.stack[0][:unittitle]
+        end
+
+        should "extract the item's unitdate" do
+          assert_nil @extractor.stack[0][:unitdate]
+        end
+        
+        should "extract the item unitid" do
+          assert_nil @extractor.stack[0][:unitid]
+        end 
+        
+        should "extract the item level" do
+          assert_equal 'file', @extractor.stack[0][:level]
+        end
+
+        should "extract the parent unittitle" do
+          assert_equal "Faculty and Staff", @extractor.stack[1][:unittitle]
+        end
+
+        should "extract the parent unitdate" do
+          assert_equal "circa 1900-1988", @extractor.stack[1][:unitdate]
+        end
+        
+        should "extract the parent unitid" do
+          assert_nil @extractor.stack[1][:unitid]
+        end
+        
+        should "extract the parent level" do
+          assert_equal 'series', @extractor.stack[1][:level]
+        end
+        
+        should "extract a series' series number" do
+          assert_equal 2, @extractor.stack[1][:series_number]
+        end
+
+#        should "only extract up to the series level" do
+#          assert_equal [
+#            {:unittitle=>"Faculty and Staff", :unitdate=>nil, :level => 'file',
+#            :unitid => nil, :item_location => 'Box 1, Folder 7'},
+#            {:unittitle=>"Faculty and Staff", :unitdate=>"circa 1900-1988",
+#              :level => 'series', :unitid => nil,
+#              :series_number => 2
+#            }
+#          ], @extractor.stack
+#        end
+
+      end
+
+    end
+
+
+
+  end
+
+end

data/test/test_ua110_041.rb

@@ -0,0 +1,112 @@
+require 'helper'
+
+class TestMeadUA110_041 < Test::Unit::TestCase
+
+  context "a mead from ua110_041" do
+    setup do
+      @mead = 'ua110_041-001-fr0001_1-000-001'
+    end
+
+    context "parsing a mead from ua110_041" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua110_041.xml')) #this is where processing
+      end
+
+      should "produce expected output of eadid" do
+        assert_equal @result.eadid, 'ua110_041'
+      end
+
+      should "produce the expected series" do
+        assert_equal @result.series, '1'
+      end
+
+      should "produce the expected container" do
+        expected = {:type=> 'folder', :number => '1.1'}
+        assert_equal expected, @result.container
+      end
+
+      should "produce the expected folder" do
+        assert_nil @result.folder
+      end
+
+      should "produce the expected sequence" do
+        assert_equal @result.sequence, '1'
+      end
+    end
+
+    context "extracting metadata from a mead" do
+      setup do
+        @result = Mead::Identifier.new(@mead, File.open('test/ead/ua110_041.xml'))
+        @extractor = Mead::Extractor.new(@result)
+      end
+
+      should "be able to create an extractor" do
+        assert_equal @extractor.class, Mead::Extractor
+      end
+
+      should "convert a string to a mead object" do
+        assert_equal @extractor.mead.class, Mead::Identifier
+      end
+
+      context "should give back the metadata" do
+        setup do
+          @result = @extractor.extract
+        end
+
+        should "extract the item's unittitle" do
+          assert_equal 'North Carolina, Wake County, Raleigh: Dix Hill [Dorothea Dix Hospital] Drawings', @extractor.stack[0][:unittitle]
+        end
+
+        should "extract the item's unitdate" do
+          assert_nil @extractor.stack[0][:unitdate]
+        end
+        
+        should "extract the item unitid" do
+          assert_nil @extractor.stack[0][:unitid]
+        end
+        
+        should "extract the item level" do
+          assert_equal 'file', @extractor.stack[0][:level]
+        end
+
+        should "extract the parent unittitle" do
+          assert_equal "UA 110.041 Series 1: Projects", @extractor.stack[1][:unittitle]
+        end
+
+        should "extract the parent unitdate" do
+          assert_equal "1951-1976", @extractor.stack[1][:unitdate]
+        end
+        
+        should "extract the parent unitid" do
+          assert_nil @extractor.stack[1][:unitid]
+        end
+        
+        should "extract the parent level" do
+          assert_equal 'series', @extractor.stack[1][:level]
+        end
+        
+        should "extract a series' series number" do
+          assert_equal 1, @extractor.stack[1][:series_number]
+        end
+
+#        should "only extract up to the series level" do
+#          assert_equal [
+#            {:unittitle=>"North Carolina, Wake County, Raleigh: Dix Hill [Dorothea Dix Hospital] Drawings",
+#              :unitdate=>nil, :level => 'file', :unitid => nil,
+#            :item_location => 'Folder 1.1'},
+#            {:unittitle=>"UA 110.041 Series 1: Projects", :unitdate=>"1951-1976",
+#              :level => 'series', :unitid => nil,
+#              :series_number => 1
+#            }
+#          ], @extractor.stack
+#        end
+
+      end
+
+    end
+
+
+
+  end
+
+end

data/test/test_validations.rb

@@ -0,0 +1,81 @@
+require 'helper'
+
+class TestMeadValidations < Test::Unit::TestCase
+  require 'pp'
+  def inspect_validation(mead)
+    pp mead
+    mead.valid?
+    pp mead.errors
+  end
+
+  context "validating meads" do
+    setup do
+      @loc_ua023_031 = File.open('test/ead/ua023_031.xml')
+      @loc_mc00240 = File.open('test/ead/mc00240.xml')
+    end
+
+    should "show ua023_031-001-cb0003-005-001 to be a valid mead" do
+      mead = Mead::Identifier.new('ua023_031-001-cb0003-005-001', @loc_ua023_031)
+      assert mead.valid?
+    end
+
+    should "show ua023_031-001-cb0013-019A-001 to be a valid mead" do
+      mead = Mead::Identifier.new('ua023_031-001-cb0013-019A-001', @loc_ua023_031)
+      assert mead.valid?
+    end
+
+    should "show ua023_031-001-cb0013-019A-001_0002 to be a valid mead" do
+      mead = Mead::Identifier.new('ua023_031-001-cb0013-019A-001', @loc_ua023_031)
+      assert mead.valid?
+    end
+
+    should "show ua023-031-01-cb003-05-01 to not be a well-formed mead" do
+      mead = Mead::Identifier.new('ua023-031-01-cb003-05-01', @loc_ua023_031)
+      assert_equal false, mead.valid?
+    end
+
+    should "show ua023_031-002-cb0006-031-001 to be well-formed but invalid because of series" do
+      mead = Mead::Identifier.new('ua023_031-002-cb0006-031-001', @loc_ua023_031)
+      assert_equal false, mead.valid?
+    end
+
+    should "show ua023_031-002-cb0006-031-001 to be well-formed" do
+      mead = Mead::Identifier.new('ua023_031-002-cb0006-031-001', @loc_ua023_031)
+      assert mead.valid_format?
+    end
+
+    should "show ua023_031-001-cb0156-031-001 to be well-formed but invalid" do
+      mead = Mead::Identifier.new('ua023_031-002-cb0126-031-001', @loc_ua023_031)
+      assert_equal false, mead.valid?
+    end
+
+    # should a blank "folder" here be 001 rather than 000?
+    should "show mc00240-001-ff0052-000-001 to be a valid mead" do
+      mead = Mead::Identifier.new('mc00240-001-ff0052-000-001', @loc_mc00240)
+      assert mead.valid?
+    end
+    should "show mc00240-001-ff0052-000-001_0002 to be a valid mead with a page" do
+      mead = Mead::Identifier.new('mc00240-001-ff0052-000-001_0002', @loc_mc00240)
+      #inspect_validation(mead)
+      assert mead.valid?
+    end
+
+    should "use the cached metadata in the Mead::Identifier instead of making a new extraction request" do
+      mead = Mead::Identifier.new('mc00240-001-ff0052-000-001_0002', @loc_mc00240).extract
+      assert mead.valid?
+    end
+
+    should "show mc00240-002-bx0061-fr77_23,1-001 to be a well-formed mead" do
+      mead = Mead::Identifier.new('mc00240-002-bx0061-fr77~23_1-001', @loc_mc00240).extract
+      assert mead.valid?
+    end
+
+    should 'show mc00240-003-bx0068-fr002-001 to be a valid mead' do
+      mead = Mead::Identifier.new('mc00240-003-bx0068-fr002-001', @loc_mc00240).extract
+      assert mead.valid?
+    end
+
+  end
+
+end
+

data/watchr.rb

@@ -0,0 +1,71 @@
+#watch( 'test/test_.*\.rb' )  {|md| system("rake test") }
+#watch( 'lib/(.*)\.rb' )      {|md| system("rake test") }
+
+
+def notify(message)
+  return if message.nil?
+  notify_send = `which notify-send`.chomp
+  title = "MEAD Watchr Test Results"
+  image = message.include?('0 failures, 0 errors') ? '~/.autotest_images/pass.png' : '~/.autotest_images/fail.png'
+  msg = message.slice(/(\d+)\stests,\s(\d+)\sassertions,\s(\d+)\sfailures,\s(\d+)\serrors/)
+  system %Q{#{notify_send} '#{title}' '#{msg}' -i #{image} -t 2000 &}
+end
+
+def run(cmd)
+  puts(cmd)
+  `#{cmd}`
+end
+
+
+def run_test_file(file)
+  system('clear')
+  puts file
+  result = run(%Q(ruby -I"lib:test" -rubygems #{file}))
+  notify get_final_result(result)
+  puts result
+end
+
+def related_test_files(path)
+  Dir['test/*.rb'].select { |file| file =~ /test_#{File.basename(path).split(".").first}.rb/ }
+end
+
+def get_final_result(result)
+  result.split("\n").select{|line| line.include?('failures, ')}.first  rescue nil
+end
+
+def run_all_tests
+  system('clear')
+  result = `rake test`
+  notify get_final_result(result)#result.split("\n").last rescue nil
+  puts result
+end
+
+def run_validation_tests
+  system('clear')
+  result = `rake test:units TEST=test/test_validations.rb`
+  notify result.split("\n").last rescue nil
+  puts result
+end
+
+
+watch('test/helper\.rb') { run_all_tests }
+watch('test/test_.*\.rb') { run_all_tests }
+watch('lib/.*/.*\.rb') { run_all_tests }
+watch('test/ead/*.xml'){run_all_tests}
+
+Signal.trap('QUIT') { run_all_tests  } # Ctrl-\
+
+# Ctrl-C
+Signal.trap 'INT' do
+  if @interrupted then
+    @wants_to_quit = true
+    abort("\n")
+  else
+    puts "Interrupt a second time to quit"
+    @interrupted = true
+    Kernel.sleep 1.5
+    # raise Interrupt, nil # let the run loop catch it
+    run_all_tests
+  end
+end
+