eadcodec 0.0.4 → 0.1.0

data/lib/elements/language.rb

@@ -0,0 +1,20 @@
+class Language < EADElement
+	elname "language"
+
+	xmlattr :altrender
+	xmlattr :audience
+	xmlattr :encodinganalog
+	xmlattr :id
+	xmlattr :langcode
+	xmlattr :scriptcode
+	
+	xmlsubelements
+	
+	def initialize(*values)
+	  if values
+		  values.each do |v|
+  		  self.subelements << v
+  		end
+    end
+	end
+end

data/lib/elements/list.rb

@@ -0,0 +1,13 @@
+class List < EADElement
+  elname "list"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :continuation
+  xmlattr :id
+  xmlattr :mark
+  xmlattr :numeration
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/materialspec.rb

@@ -0,0 +1,13 @@
+class MaterialSpec < EADElement
+  include WithText
+  elname "materialspec"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/name.rb

@@ -0,0 +1,15 @@
+class Name < EADElement
+  elname "name"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :authfilenumber
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :normal
+  xmlattr :role
+  xmlattr :rules
+  xmlattr :source
+  
+  xmlsubelements
+end

data/lib/elements/note.rb

@@ -0,0 +1,15 @@
+class Note < EADElement
+  include WithParagraphs
+  elname "note"
+
+  xmlattr :actuate
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :show
+  xmlattr :type
+
+  xmlsubelements
+end

data/lib/elements/odd.rb

@@ -0,0 +1,13 @@
+class Odd < EADElement
+  include WithParagraphs
+
+  elname 'odd'
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/originalsloc.rb

@@ -0,0 +1,12 @@
+class OriginalsLoc < EADElement
+  include WithParagraphs
+  elname "originalsloc"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/origination.rb

@@ -0,0 +1,12 @@
+class Origination < EADElement
+  include WithText
+  elname "origination"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  
+  xmlsubelements
+end

data/lib/elements/otherfindaid.rb

@@ -0,0 +1,11 @@
+class OtherFindAid < EADElement
+  include WithParagraphs
+  elname "otherfindaid"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  
+  xmlsubelements
+end

data/lib/elements/p.rb

@@ -0,0 +1,10 @@
+class P < EADElement
+  include WithText
+  elname "p"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :id
+    
+  xmlsubelements
+end

data/lib/elements/physdesc.rb

@@ -0,0 +1,14 @@
+class PhysDesc < EADElement
+  include WithText
+  elname "physdesc"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :rules
+  xmlattr :source
+  
+  xmlsubelements
+end

data/lib/elements/physfacet.rb

@@ -0,0 +1,16 @@
+class PhysFacet < EADElement
+  include WithText
+  elname "physfacet"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :rules
+  xmlattr :source
+  xmlattr :type
+  xmlattr :unit
+  
+  xmlsubelements
+end

data/lib/elements/physloc.rb

@@ -0,0 +1,14 @@
+class PhysLoc < EADElement
+  include WithText
+  elname "physloc"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :parent
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/phystech.rb

@@ -0,0 +1,11 @@
+class PhysTech < EADElement
+  include WithParagraphs
+
+  elname "phystech"
+
+  def initialize(value=nil)
+    self << P.new(value) if value
+  end
+
+  xmlsubelements
+end

data/lib/elements/processinfo.rb

@@ -0,0 +1,11 @@
+class ProcessInfo < EADElement
+  elname "processinfo"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/profiledesc.rb

@@ -0,0 +1,10 @@
+class ProfileDesc < EADElement
+	elname "profiledesc"
+	
+	xmlattr :altrender
+	xmlattr :audience
+	xmlattr :encodinganalog
+	xmlattr :id
+	
+	xmlsubel :creation
+end

data/lib/elements/relatedmaterial.rb

@@ -0,0 +1,12 @@
+class RelatedMaterial < EADElement
+  include WithParagraphs
+  elname "relatedmaterial"
+
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :type
+
+  xmlsubelements
+end

data/lib/elements/repository.rb

@@ -0,0 +1,12 @@
+class Repository < EADElement
+  include WithText
+  elname "repository"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  
+  xmlsubelements
+end

data/lib/elements/scopecontent.rb

@@ -0,0 +1,12 @@
+class ScopeContent < EADElement
+  include WithParagraphs
+
+  elname "scopecontent"
+
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+
+  xmlsubelements
+end

data/lib/elements/subtitle.rb

@@ -0,0 +1,4 @@
+class Subtitle < EADElement
+	elname "subtitle"
+	xmlsubelements
+end

data/lib/elements/titlestmt.rb

@@ -0,0 +1,12 @@
+class TitleStatement < EADElement
+	elname 'titlestmt'
+
+	xmlsubel :author
+	xmlsubel :sponsor
+	xmlsubel :subtitle
+	xmlsubel :titleproper
+
+	def initialize(title)
+		self.titleproper = title
+	end
+end

data/lib/elements/unitdate.rb

@@ -0,0 +1,7 @@
+class UnitDate < Date	
+	elname "unitdate"
+	elwithvalue
+	
+	xmlattr :datechar
+	xmlattr :label
+end

data/lib/elements/unitid.rb

@@ -0,0 +1,16 @@
+class UnitId < EADElement
+  include WithText
+  elname "unitid"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :countrycode
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :identifier
+  xmlattr :label
+  xmlattr :repositorycode
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/unittitle.rb

@@ -0,0 +1,13 @@
+class UnitTitle < EADElement
+  include WithText
+  elname "unittitle"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :label
+  xmlattr :type
+  
+  xmlsubelements
+end

data/lib/elements/userestrict.rb

@@ -0,0 +1,12 @@
+class UseRestrict < EADElement
+  include WithParagraphs
+  elname "userestrict"
+  
+  xmlattr :altrender
+  xmlattr :audience
+  xmlattr :encodinganalog
+  xmlattr :id
+  xmlattr :type
+  
+  xmlsubelements
+end

data/test/{TestEADDescription.rb → description_test.rb}

@@ -1,6 +1,6 @@
-require "TestEAD"
+require File.dirname(__FILE__) + '/test_helper'
 
-class TestEADDescription < TestEAD
+class TestEADDescription < Test::Unit::TestCase
 	def initialize(*args)
 		super(*args)
 
@@ -20,20 +20,21 @@ class TestEADDescription < TestEAD
 	end
 
 	def test_description
-		did = EAD::EADDescription.new
-		did.head = @head
-		did.origination = @origination
-		did.unittitle = @unittitle
-		did.unitid = @unitid
-		did.abstract = @abstract
-		did.physdesc = @physdesc
-		did.physloc = @physloc
+		did = EADCodec::Description.new
+		did << EADCodec::Head.new(@head)
+		did << EADCodec::Origination.new(@origination)
+		did << EADCodec::UnitTitle.new(@unittitle)
+		did << EADCodec::UnitId.new(@unitid)
+		did << EADCodec::Abstract.new(@abstract)
+		did << EADCodec::PhysDesc.new(@physdesc)
+		did << EADCodec::PhysLoc.new(@physloc)
 
-		did.unitdate = EAD::EADUnitDate.new(@unitdate)
-		did.unitdate.label = @unitdatelabel
-		did.unitdate.type = @unitdatetype
-
-		@ead.add_description(did)
+		ud = EADCodec::UnitDate.new(@unitdate)
+		ud.label = @unitdatelabel
+		ud.type = @unitdatetype
+    did << ud
+    
+		@ead.archdesc << did
 		export
 
 		# Since we've added content it is now valid EAD
@@ -56,18 +57,18 @@ class TestEADDescription < TestEAD
 
 	def test_import_description
 		import
-		did = @ead.ead_did
+		did = @ead.archdesc[:did]
 
-		assert_equal(@head, did.head.value)
-		assert_equal(@origination, did.origination.value) 
-		assert_equal(@unittitle, did.unittitle.value) 
-		assert_equal(@unitid, did.unitid.value)
-		assert_equal(@abstract, did.abstract.value)
-		assert_equal(@physdesc, did.physdesc.value)
-		assert_equal(@physloc, did.physloc.value)
+		assert_equal(@head, did[:head].value)
+		assert_equal(@origination, did[:origination].value) 
+		assert_equal(@unittitle, did[:unittitle].value) 
+		assert_equal(@unitid, did[:unitid].value)
+		assert_equal(@abstract, did[:abstract].value)
+		assert_equal(@physdesc, did[:physdesc].value)
+		assert_equal(@physloc, did[:physloc].value)
 
-		assert_equal(@unitdate, did.unitdate.value)
-		assert_equal(@unitdatelabel, did.unitdate.label) 
-		assert_equal(@unitdatetype, did.unitdate.type)
+		assert_equal(@unitdate, did[:unitdate].value)
+		assert_equal(@unitdatelabel, did[:unitdate].label) 
+		assert_equal(@unitdatetype, did[:unitdate].type)
 	end
 end

data/test/{TestEADDocument.rb → document_test.rb}

@@ -1,6 +1,6 @@
-require "TestEAD"
+require File.dirname(__FILE__) + '/test_helper'
 
-class TestEADDocument < TestEAD
+class TestEADDocument < Test::Unit::TestCase
 	def setup
 		super
 		@test_file = "test_ead_document.xml"

data/test/level_test.rb

@@ -0,0 +1,75 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class TestEADLevel < Test::Unit::TestCase
+	def initialize(*args)
+		super(*args)
+	end
+
+  def export_doc(opt)
+    dsc = EADCodec::Subordinates.new
+		@ead.archdesc << dsc
+		
+		c01 = EADCodec::Level.new
+		c01.set_unnumbered if opt == :unnumbered
+		c01 << EADCodec::Description.new
+		c01 << EADCodec::PhysTech.new
+		dsc << c01
+	
+		c02 = EADCodec::Level.new
+		c01 << c02
+
+		c03 = EADCodec::Level.new
+		c02 << c03
+		
+		@test_file = 'test_ead_level_'+opt.to_s+'.xml'
+		export @test_file
+  end
+
+	#def test_attrs
+	#	export_doc(:numbered)
+	#	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
+	#  export_doc(:numbered)
+	#	import
+	#	dsc = @ead.archdesc.find_first_named(:dsc)
+	#	
+	#	c01 = dsc.find_first_named(:c01)
+	#	assert(c01, "Check that the level was imported")
+	#	assert(c01.find_first_named(:did), "Check that the description was imported")
+	#	
+	#	c02 = c01.find_first_named(:c02)
+	#	assert(c02, "Check that the second level was imported")
+	#	assert(c02.find_first_named(:c03), "Check that the third level was imported")
+	#end
+	
+	def test_attrs_unnumbered
+	  @test_file = "test_ead_level_unnumbered.xml"
+		export_doc(:unnumbered)
+		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
+	  @test_file = "test_ead_level_unnumbered.xml"
+	  export_doc(:unnumbered)
+		import
+		dsc = @ead.archdesc[:dsc]
+		c01 = dsc[:c]
+		assert(c01, "Check that the level was imported")
+		assert(c01[:did], "Check that the description was imported")
+		
+		c02 = c01[:c]
+		assert(c02, "Check that the second level was imported")
+		assert(c02[:c], "Check that the third level was imported")
+	end
+end

data/test/note_test.rb

@@ -0,0 +1,36 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class TestEADNote < Test::Unit::TestCase
+	def initialize(*args)
+		super(*args)
+		
+		@test_file = "test_ead_note.xml"
+		@p = "Test p"
+	end
+
+	def test_attrs
+		dsc = EADCodec::Subordinates.new
+		@ead.archdesc << dsc
+		
+		c01 = EADCodec::Level.new
+		dsc << c01
+		
+		note = EADCodec::Note.new
+		note << EADCodec::P.new(@p)
+		note << EADCodec::P.new(@p)
+		c01 << note
+		
+		export
+		element_exists("/ead/archdesc/dsc/c/note", "Check that the note was added")
+		compare_xpath(@p, "/ead/archdesc/dsc/c/note/p")
+	end
+
+
+	def test_import
+		import
+		note = @ead.archdesc[:dsc][:c][:note]
+		ps = note.find_all_named(:p)
+		assert_equal(@p, ps[0].value)
+		assert_equal(@p, ps[1].value)
+	end
+end

data/test/partial_export_test.rb

@@ -0,0 +1,63 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class TestPartialExport < Test::Unit::TestCase
+  def setup
+    super
+    @test_file = "test_ead_partial_export.xml"
+    @head = "Test head"
+    @type = "combined"
+  end
+
+  def test_partial_export
+    file = File.open(filepath, "w")
+    
+    did = EADCodec::Description.new
+    did << EADCodec::Head.new("abc")
+    did << EADCodec::UnitId.new("teste")
+    @ead.archdesc << did
+    
+    dsc = EADCodec::Subordinates.new
+    dsc.type = @type
+    @ead.archdesc << dsc
+    
+    c01 = EADCodec::Level.new
+    did = EADCodec::Description.new
+    did << EADCodec::Head.new("abc")
+    did << EADCodec::UnitId.new("teste")
+    did << EADCodec::UnitTitle.new("teste")
+    c01 << did
+    
+    dsc << c01
+    c01.start_partial_export(file)
+    
+    dsc = EADCodec::Subordinates.new
+    dsc.type = @type
+    c01 << dsc
+    
+    c02 = EADCodec::Level.new
+    did = EADCodec::Description.new
+    did << EADCodec::Head.new("abc")
+    did << EADCodec::UnitId.new("teste")
+    did << EADCodec::UnitTitle.new("teste")
+    c02 << did
+    sc = EADCodec::ScopeContent.new
+    sc << EADCodec::P.new('value1')
+    sc << EADCodec::P.new('value2')
+    c02 << sc
+    
+    dsc << 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/c", "the first level was not added")
+    element_exists("/ead/archdesc/dsc/c/did", "the first level description was not added")
+    element_exists("/ead/archdesc/dsc/c/dsc/c", "the second level was not added")
+    element_exists("/ead/archdesc/dsc/c/dsc/c/did", "the second level description was not added")
+  end
+end

data/test/phystech_test.rb

@@ -0,0 +1,45 @@
+require File.dirname(__FILE__) + '/test_helper'
+
+class TestEADPhysTech < Test::Unit::TestCase
+	def initialize(*args)
+		super(*args)
+		@test_file = "test_ead_phystech.xml"
+		@head = "HEADTest"
+		@ptext = "Some Text "
+	end
+
+	def test_export
+		phystech = EADCodec::PhysTech.new
+		phystech << EADCodec::Head.new(@head)
+		(1..4).each {|i| phystech << EADCodec::P.new(@ptext+i.to_s)}
+		
+		did = EADCodec::Description.new
+		did << EADCodec::Head.new("head")
+		did << EADCodec::UnitId.new("id")
+
+		@ead.archdesc << did
+ 		@ead.archdesc << phystech
+		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)
+		ps = phystech.find_all_named(:p)
+		(1..4).each do |i| 
+			assert_equal(@ptext+i.to_s, ps[i-1].value)
+		end
+	end
+end