eadcodec 0.0.4 → 0.1.0

data/lib/EADRelatedMaterial.rb

@@ -1,21 +0,0 @@
-module EAD
-  class EADRelatedMaterial < EADElement
-    elname "relatedmaterial"
-  
-    xmlattr :altrender
-    xmlattr :audience
-    xmlattr :encodinganalog
-    xmlattr :id
-  
-    xmlsubel :head
-    xmlsubel_mult :p
-    
-    def value
-      str = ""
-      p.each do |par|
-        str += "<p>"+par.value+"</p>\n"
-      end
-      str
-    end
-  end
-end

data/lib/EADRepository.rb

@@ -1,13 +0,0 @@
-module EAD
-  class EADRepository < EADElement
-    elname "repository"
-    
-    xmlattr :altrender
-    xmlattr :audience
-    xmlattr :encodinganalog
-    xmlattr :id
-    xmlattr :label
-    
-    xmlsubelements
-  end
-end

data/lib/EADScopeContent.rb

@@ -1,21 +0,0 @@
-module EAD
-  class EADScopeContent < EADElement
-    elname "scopecontent"
-  
-    xmlattr :altrender
-    xmlattr :audience
-    xmlattr :encodinganalog
-    xmlattr :id
-  
-    xmlsubel :head
-    xmlsubel_mult :p
-    
-    def value
-      str = ""
-      p.each do |par|
-        str += "<p>"+par.value+"</p>\n"
-      end
-      str
-    end
-  end
-end

data/lib/EADSubordinates.rb

@@ -1,29 +0,0 @@
-require "EAD.rb"
-
-module EAD
-  class EADSubordinates < EADElement
-    elname "dsc"
-  
-    include EADLevels
-    
-    xmlattr :altrender
-    xmlattr :audience
-    xmlattr :encondinganalog
-    xmlattr :id
-    xmlattr :othertype
-    xmlattr :tpattern
-    xmlattr :type
-    
-    xmlsubel :head
-    xmlsubel_mult :p
-    xmlsubel_mult :c
-
-    def description_level
-      0
-    end
-
-    def unnumbered?
-      false
-    end
-  end
-end

data/lib/EADSubtitle.rb

@@ -1,8 +0,0 @@
-require "EAD"
-
-module EAD 
-	class EADSubtitle < EADElement
-		elname "subtitle"
-		xmlsubelements
-	end
-end

data/test/TestEAD.rb

@@ -1,50 +0,0 @@
-$:.unshift File.join(File.dirname(__FILE__), "..")
-$-w = true
-
-require 'EAD'
-require 'test/unit'
-require 'XMLUtils'
-
-class TestEAD < Test::Unit::TestCase
-	def initialize(*args)
-		super(*args)
-		@test_file = nil
-	end
-
-	def setup
-		@ead = EAD::EADDocument.new("1", "Teste")
-	end
-
-	def export 
-		@ead.export(@test_file) 
-	end
-	
-	def import
-		@ead = EAD::EADDocument.from_file(@test_file)
-	end
-
-	def validate_well_formed
-		assert(system("rxp", "-xs", @test_file))
-	end
-
-	def validate_dtd
-		assert(system("rxp", "-VVs", @test_file))
-		#assert(system("xmlstarlet", "val", "-d", "ead.dtd", @test_file))
-	end
-
-	def test_fake
-		#Just a fake test to fool Unit::TestCase
-	end
-
-	def compare_xpath(value, path)
-		assert_equal(value, select(path))
-	end
-
-	def element_exists(xpath, *args)
-		assert(XMLUtils::element_exists(xpath, @test_file), *args)
-	end
-
-	def select(xpath)
-		XMLUtils::select_path(xpath, @test_file)
-	end
-end

data/test/TestEADLevel.rb

@@ -1,76 +0,0 @@
-require "TestEAD"
-require "EADSubordinates"
-require "EADLevel"
-
-class TestEADLevel < TestEAD
-	def initialize(*args)
-		super(*args)
-		
-		@test_file = "test_ead_level.xml"
-	end
-
-	def test_attrs
-		dsc = EAD::EADSubordinates.new
-		@ead.add_descelem(dsc)
-		
-		c01 = EAD::EADLevel.new
-		c01.did = EAD::EADDescription.new
-		c01.phystech = EAD::EADPhysTech.new
-		dsc.add_level(c01)
-	
-		c02 = EAD::EADLevel.new
-		c01.add_level(c02)
-
-		c03 = EAD::EADLevel.new
-		c02.add_level(c03)
-
-		export
-		element_exists("/ead/archdesc/dsc/c01", "Check that the level was added")
-		element_exists("/ead/archdesc/dsc/c01/did", "Check that the description was added")
-		element_exists("/ead/archdesc/dsc/c01/phystech", "Check that the phystech was added")
-		element_exists("/ead/archdesc/dsc/c01/c02", "Check that the second level was added")
-		element_exists("/ead/archdesc/dsc/c01/c02/c03", "Check that the third level was added")
-	end
-
-	def test_import
-		import
-		dsc = @ead.descelems[0]
-		assert(dsc.levels[0], "Check that the level was imported")
-		assert(dsc.levels[0].did, "Check that the description was imported")
-		assert(dsc.levels[0].levels[0], "Check that the second level was imported")
-		assert(dsc.levels[0].levels[0].levels[0], "Check that the third level was imported")
-	end
-	
-	def test_attrs_unnumbered
-		dsc = EAD::EADSubordinates.new
-		@ead.add_descelem(dsc)
-		
-		c01 = EAD::EADLevel.new
-		c01.set_unnumbered
-		c01.did = EAD::EADDescription.new
-		c01.phystech = EAD::EADPhysTech.new
-		dsc.add_level(c01)
-	
-		c02 = EAD::EADLevel.new
-		c01.add_level(c02)
-
-		c03 = EAD::EADLevel.new
-		c02.add_level(c03)
-
-		export
-		element_exists("/ead/archdesc/dsc/c", "Check that the level was added")
-		element_exists("/ead/archdesc/dsc/c/did", "Check that the description was added")
-		element_exists("/ead/archdesc/dsc/c/phystech", "Check that the phystech was added")
-		element_exists("/ead/archdesc/dsc/c/c", "Check that the second level was added")
-		element_exists("/ead/archdesc/dsc/c/c/c", "Check that the third level was added")
-	end
-	
-	def test_import_unnumbered
-		import
-		dsc = @ead.descelems[0]
-		assert(dsc.levels[0], "Check that the level was imported")
-		assert(dsc.levels[0].did, "Check that the description was imported")
-		assert(dsc.levels[0].levels[0], "Check that the second level was imported")
-		assert(dsc.levels[0].levels[0].levels[0], "Check that the third level was imported")
-	end
-end

data/test/TestEADNote.rb

@@ -1,36 +0,0 @@
-require "TestEAD"
-require "EADNote"
-
-class TestEADNote < TestEAD
-	def initialize(*args)
-		super(*args)
-		
-		@test_file = "test_ead_note.xml"
-		@p = "Test p"
-	end
-
-	def test_attrs
-		dsc = EAD::EADSubordinates.new
-		@ead.add_descelem(dsc)
-		
-		c01 = EAD::EADLevel.new
-		dsc.add_level(c01)
-		
-		sc = EAD::EADNote.new
-		sc.p << EAD::EADP.new(@p)
-		sc.p << EAD::EADP.new(@p)
-		c01.note = sc
-		
-		export
-		element_exists("/ead/archdesc/dsc/c01/note", "Check that the scopecontent was added")
-		compare_xpath(@p, "/ead/archdesc/dsc/c01/note/p")
-	end
-
-
-	def test_import
-		import
-		note = @ead.descelems[0].levels[0].note
-		assert_equal(@p, note.p[0].value)
-		assert_equal(@p, note.p[1].value)
-	end
-end

data/test/TestEADPhysTech.rb

@@ -1,44 +0,0 @@
-require "TestEAD"
-
-class TestEADPhysTech < TestEAD
-	def initialize(*args)
-		super(*args)
-		@test_file = "test_ead_phystech.xml"
-		@head = "HEADTest"
-		@ptext = "Some Text "
-	end
-
-	def test_export
-		phystech = EAD::EADPhysTech.new
-		phystech.head = @head
-		(1..4).each {|i| phystech.p << EAD::EADP.new(@ptext+i.to_s)}
-		
-		did = EAD::EADDescription.new
-		did.head = "head"
-		did.unitid = "id"
-
-		@ead.archdesc.phystech = phystech
-		@ead.archdesc.did = did
-		export
-
-		# Since we've added content it is now valid EAD
-		validate_dtd
-
-		element_exists("/ead/archdesc/phystech", "Test did exists")
-		compare_xpath(@head, "/ead/archdesc/phystech/head")
-		(1..4).each do |i| 
-			compare_xpath(@ptext+i.to_s, "/ead/archdesc/phystech/p["+i.to_s+"]")
-		end
-	end
-
-
-	def test_import
-		import
-		phystech = @ead.archdesc.phystech
-
-		assert_equal(@head, phystech.head.value)
-		(1..4).each do |i| 
-			assert_equal(@ptext+i.to_s, phystech.p[i-1].value)
-		end
-	end
-end

data/test/TestEADScopeContent.rb

@@ -1,43 +0,0 @@
-require "TestEAD"
-require "EADSubordinates"
-require "EADLevel"
-require "EADScopeContent"
-
-class TestEADScopeContent < TestEAD
-	def initialize(*args)
-		super(*args)
-		
-		@test_file = "test_ead_scopecontent.xml"
-		@head = "Test Head"
-		@p = "Test p"
-	end
-
-	def test_attrs
-		dsc = EAD::EADSubordinates.new
-		@ead.add_descelem(dsc)
-		
-		c01 = EAD::EADLevel.new
-		dsc.add_level(c01)
-		
-		sc = EAD::EADScopeContent.new
-		sc.head = @head
-		sc.p << EAD::EADP.new(@p)
-		sc.p << EAD::EADP.new(@p)
-		c01.scopecontent = sc
-		
-		export
-		element_exists("/ead/archdesc/dsc/c01/scopecontent", "Check that the scopecontent was added")
-		compare_xpath(@head, "/ead/archdesc/dsc/c01/scopecontent/head")
-		compare_xpath(@p, "/ead/archdesc/dsc/c01/scopecontent/p")
-	end
-
-
-	def test_import
-		import
-		assert_equal(1, @ead.archdesc.dsc[0].c.size)
-		sc = @ead.archdesc.dsc[0].c[0].scopecontent
-		assert_equal(@head, sc.head.value)
-		assert_equal(@p, sc.p[0].value)
-		assert_equal(@p, sc.p[1].value)
-	end
-end

data/test/TestPartialExport.rb

@@ -1,61 +0,0 @@
-require "TestEAD"
-
-class TestPartialExport < TestEAD
-  def setup
-    super
-    @test_file = "test_ead_partial_export.xml"
-    @head = "Test head"
-    @type = "combined"
-  end
-
-  def test_partial_export
-    file = File.open(@test_file, "w")
-    
-    did = EAD::EADDescription.new
-    did.head = "abc"
-    did.unitid = "teste"
-    @ead.archdesc.did = did
-    
-    dsc = EAD::EADSubordinates.new
-    dsc.type = @type
-    @ead.archdesc.dsc << dsc
-    
-    c01 = EAD::EADLevel.new
-    c01.did = EAD::EADDescription.new
-    c01.did.head = "abc"
-    c01.did.unitid = "teste"
-    c01.did.unittitle = "teste"
-    
-    dsc.c << c01
-    c01.start_partial_export(file)
-    
-    dsc = EAD::EADSubordinates.new
-    dsc.type = @type
-    c01.dsc << dsc
-    
-    c02 = EAD::EADLevel.new
-    c02.did = EAD::EADDescription.new
-    c02.did.head = "abc"
-    c02.did.unitid = "teste"
-    c02.did.unittitle = "teste"
-    sc = EAD::EADScopeContent.new
-    sc.p << EAD::EADP.new('value1')
-    sc.p << EAD::EADP.new('value2')
-    c02.scopecontent = sc
-    
-    dsc.c << c02
-    c02.start_partial_export(file)
-    
-    @ead.end_partial_export(file)
-    
-    file.close
-    
-    validate_dtd
-    compare_xpath("fonds", "/ead/archdesc/@level")
-    compare_xpath(@type, "/ead/archdesc/dsc/@type")
-    element_exists("/ead/archdesc/dsc/c01", "the first level was not added")
-    element_exists("/ead/archdesc/dsc/c01/did", "the first level description was not added")
-    element_exists("/ead/archdesc/dsc/c01/dsc/c01", "the second level was not added")
-    element_exists("/ead/archdesc/dsc/c01/dsc/c01/did", "the second level description was not added")
-  end
-end

data/test/TestXMLStreamObjectParser.rb

@@ -1,126 +0,0 @@
-$-w = true
-
-require "test/unit"
-require "xmlcodec"
-require "EAD"
-require "TestEAD"
-
-class MyStreamListener
-  attr_reader :ead
-  def el_ead(el)
-    @ead = el.get_object
-  end
-end
-
-class MyConsumingStreamListener
-  attr_reader :ead
-  def el_ead(el)
-    @ead = el.get_object
-  end
-    
-  def el_c02(el)
-    el.consume
-  end
-end
-
-class TestXMLStreamObjectParser < TestEAD
-  def initialize(*args)
-    super(*args)
-    
-    @test_file = "test_ead_stream_object_parser.xml"
-  end
-
-  def test_import
-    @ead.eadheader.id = "1"
-  
-    dsc = EAD::EADSubordinates.new
-    @ead.add_descelem(dsc)
-    
-    c01 = EAD::EADLevel.new
-    c01.did = EAD::EADDescription.new
-    c01.phystech = EAD::EADPhysTech.new
-    dsc.add_level(c01)
-  
-    c02 = EAD::EADLevel.new
-    c01.add_level(c02)
-
-    c03 = EAD::EADLevel.new
-    c02.add_level(c03)
-
-    export
-    listener = MyStreamListener.new
-    parser = XMLCodec::XMLStreamObjectParser.new(listener)
-    parser.parse(File.new(@test_file))
-    @ead = listener.ead
-    
-    assert_equal(@ead, parser.top_element)
-    
-    assert_equal("1", @ead.eadheader.eadid.value)
-    assert_equal("1", @ead.eadheader.id)
-    assert_equal("Teste", @ead.eadheader.eadtitle.value)
-    
-    dsc = @ead.descelems[0]
-    assert(dsc.levels[0], "Check that the level was imported")
-    assert(dsc.levels[0].did, "Check that the description was imported")
-    assert(dsc.levels[0].levels[0], "Check that the second level was imported")
-    assert(dsc.levels[0].levels[0].levels[0], "Check that the third level was imported")
-  end
-  
-  def test_consume
-    @ead.eadheader.id = "1"
-  
-    dsc = EAD::EADSubordinates.new
-    @ead.add_descelem(dsc)
-    
-    c01 = EAD::EADLevel.new
-    c01.did = EAD::EADDescription.new
-    c01.phystech = EAD::EADPhysTech.new
-    dsc.add_level(c01)
-  
-    c02 = EAD::EADLevel.new
-    c01.add_level(c02)
-
-    c03 = EAD::EADLevel.new
-    c02.add_level(c03)
-
-    export
-    
-    listener = MyConsumingStreamListener.new
-    parser = XMLCodec::XMLStreamObjectParser.new(listener)
-    parser.parse(File.new(@test_file))
-    @ead = listener.ead    
-    
-    dsc = @ead.descelems[0]
-    assert(dsc.levels[0], "Check that the level was imported")
-    assert(dsc.levels[0].did, "Check that the description was imported")
-    assert_equal(0, dsc.levels[0].levels.size, "Check that c03 was consumed")
-  end
-  
-  def test_numbering
-    @ead.eadheader.id = "1"
-  
-    dsc = EAD::EADSubordinates.new
-    @ead.add_descelem(dsc)
-    
-    c01 = EAD::EADLevel.new
-    c01.did = EAD::EADDescription.new
-    c01.phystech = EAD::EADPhysTech.new
-    dsc.add_level(c01)
-    
-    export
-    
-    listener = MyStreamListener.new
-    parser = XMLCodec::XMLStreamObjectParser.new(listener)
-    parser.parse(File.new(@test_file))
-    @ead = listener.ead
-    
-    dsc = @ead.descelems[0]
-    c01 = dsc.levels[0]
-    
-    assert(dsc.element_id)
-    assert(dsc.parent_id)
-    assert(c01.element_id)
-    assert(c01.parent_id)
-    assert_equal(c01.parent_id, dsc.element_id)
-  end
-end