xmlcodec 0.0.1

data/test/TestXMLStreamObjectParser.rb

@@ -0,0 +1,160 @@
+require "test/unit"
+require "XMLStreamObjectParser"
+require 'simple_objects.rb'
+
+include XMLCodec
+
+class MyStreamListener
+  attr_reader :abc, :subels, :mult, :subel
+  def el_abc(el)
+    @abc = el.get_object
+  end
+  
+  def el_subels(el)
+    @subels = el.get_object
+  end
+  
+  def el_mult(el)
+    @mult = el.get_object
+  end
+  
+  def el_subel(el)
+    @subel = el.get_object
+  end
+end
+
+class MyConsumingStreamListener
+  attr_reader :abc
+
+  def el_abc(el)
+    el.consume
+    @abc = el.get_object
+  end
+end
+
+class TestXMLStreamObjectParser < Test::Unit::TestCase
+  def initialize(*args)
+    super(*args)
+    
+    @test_file = "test_ead_stream_object_parser.xml"
+  end
+
+  def test_simple
+    value = 'somevalue'
+    file = '<abc>'+value+'</abc>'
+    
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    el = listener.abc
+    assert_equal el.value, value
+  end
+  
+  def test_attr
+    value = 'somevalue'
+    attrvalue = 'the attr value'
+    file = '<subel someattr="'+attrvalue+'"><abc>'+value+'</abc></subel>'
+    
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.abc
+    assert_equal el.value, value
+    
+    subel = parser.top_element
+    assert_equal el, subel.abc
+    assert_equal attrvalue, subel.someattr
+  end
+  
+  def test_multiple_names
+    
+  end
+  
+  def test_mult
+    value = 'somevalue'
+    file = '<mult><abc>'+value+'</abc></mult>'
+    
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.abc
+    assert_equal el.value, value
+    assert_equal el, parser.top_element.abc[0]
+  end
+  
+  def test_subelements
+    value = 'somevalue'
+    file = '<subels><abc>'+value+'</abc></subels>'
+    
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.abc
+    assert_equal el.value, value
+    assert_equal el, parser.top_element.subelements[0]
+  end
+  
+  def test_consume_mult
+    value = 'somevalue'
+    file = '<subel><abc>'+value+'</abc></subel>'
+    
+    listener = MyConsumingStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.abc
+    assert_equal el.value, value
+    assert_nil parser.top_element.abc
+  end
+  
+  def test_multnames_subelements
+    value1 = 'somevalue1'
+    value2 = 'somevalue2'
+    file = '<subels><abc2>'+value1+'</abc2><abc3>'+value2+'</abc3></subels>'
+  
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.subels
+    assert_equal 2, el.subelements.size
+    [value1, value2].each_with_index do |value, index|
+      assert_kind_of SimpleElementMultName, el.subelements[index]
+      assert_equal value, el.subelements[index].value
+    end
+  end
+  
+  def test_multnames_subel_mult
+    value1 = 'somevalue1'
+    value2 = 'somevalue2'
+    file = '<mult><abc2>'+value1+'</abc2><abc3>'+value2+'</abc3></mult>'
+  
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.mult
+    assert_equal 2, el.abc2.size
+    [value1, value2].each_with_index do |value, index|
+      assert_kind_of SimpleElementMultName, el.abc2[index]
+      assert_equal value, el.abc2[index].value
+    end
+  end
+  
+  def test_multnames_subel
+    value = 'somevalue'
+    file = '<subel><abc3>'+value+'</abc3></subel>'
+  
+    listener = MyStreamListener.new
+    parser = XMLStreamObjectParser.new(listener)
+    parser.parse(file)
+    
+    el = listener.subel
+    assert_not_nil el.abc2
+    assert_kind_of SimpleElementMultName, el.abc2
+    assert_equal value, el.abc2.value
+  end
+end

data/test/TestXMLStreamParser.rb

@@ -0,0 +1,47 @@
+$:.unshift File.join(File.dirname(__FILE__), "..")
+$-w = true
+
+require 'test/unit'
+require 'XMLStreamParser'
+
+class MyStreamListener
+	attr_reader :def_id, :def_parent_id
+	attr_reader :abc_id, :abc_parent_id
+	def element(el)
+		case el.name
+		when "def"
+			@def_id, = el.element_id
+			@def_parent_id = el.parent_id
+			el.consume
+		when "abc"
+			@abc_id, = el.element_id
+			@abc_parent_id = el.parent_id
+			el.consume
+		end
+	end
+end
+
+class TestXMLStreamParser < Test::Unit::TestCase
+	def initialize(*args)
+		super(*args)
+		@doc = "<abc attr1='1' attr2='2'>abc<xpto attr1='a'></xpto><def><x></x></def></abc>"
+		@doc_no_def = "<abc attr1='1' attr2='2'>abc<xpto attr1='a'></xpto></abc>"
+	end
+
+	def test_total_parse
+		parser = XMLUtils::XMLStreamParser.new
+		parser.parse(@doc)
+		assert_equal(@doc, parser.content)
+	end
+	
+	def test_consumed_parse
+		listener = MyStreamListener.new
+		parser = XMLUtils::XMLStreamParser.new(listener)
+		parser.parse(@doc)
+		assert_equal(@doc_no_def, parser.content)
+		assert_equal(listener.abc_id, listener.def_parent_id)
+		assert_equal(0, listener.abc_parent_id)
+		assert_equal(1, listener.abc_id)
+		assert(listener.def_id > listener.def_parent_id)
+	end
+end

data/test/TestXMLUtils.rb

@@ -0,0 +1,17 @@
+$:.unshift File.join(File.dirname(__FILE__), "..")
+
+require 'test/unit'
+require 'XMLUtils'
+
+class TestXMLUtils < Test::Unit::TestCase
+	def test_create_open_tag
+		tag = XMLUtils::create_open_tag("name", {"arg1" => "val1", "arg2" => "val2"})
+		assert_equal("<name arg1='val1' arg2='val2'>", tag)	
+	end
+	
+	def test_escape_xml
+	  assert_equal '&lt; abc', XMLUtils::escape_xml('< abc')
+	  assert_equal '&gt; abc', XMLUtils::escape_xml('> abc')
+	  assert_equal '&amp; abc', XMLUtils::escape_xml('& abc')
+	end
+end

data/test/simple_objects.rb

@@ -0,0 +1,47 @@
+require 'XMLElement'
+include XMLCodec
+
+class SimpleElement < XMLElement
+  elwithvalue
+  elname 'abc'
+end
+
+class SimpleElement2 < XMLElement
+  elwithvalue
+  elname 'abc1'
+end
+
+class SimpleElementMultName < XMLElement
+  elwithvalue
+  elnames 'abc2', 'abc3'
+  
+  attr_writer :set_elname
+    
+  alias_method :oldelname, :elname
+  def elname
+    if instance_variables.index("@set_elname")
+      return @set_elname
+    else
+      return 'abc2'
+    end
+  end
+end
+
+class TestElement < XMLElement
+  elname 'subel'
+  xmlsubel :abc
+  xmlsubel :abc2
+  xmlsubel :subel
+  xmlattr :someattr
+end
+
+class SubelElement < XMLElement
+  elname 'subels'
+  xmlsubelements
+end
+
+class SubelMultElement < XMLElement
+  elname 'mult'
+  xmlsubel_mult :abc
+  xmlsubel_mult :abc2
+end

metadata

@@ -0,0 +1,59 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: xmlcodec
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2006-05-12 00:00:00 +01:00
+summary: Generic Importer/Exporter of XML formats
+require_paths: 
+- lib
+email: pedrocr@gmail.com
+homepage: 
+rubyforge_project: 
+description: A library that eases the creation of XML importers and exporters for ruby.
+autorequire: rake
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+- "Pedro C\xC3\xB4rte-Real"
+files: 
+- test/TestXMLStreamParser.rb
+- test/TestXMLElement.rb
+- test/TestPartialExport.rb
+- test/TestXMLUtils.rb
+- test/TestXMLStreamObjectParser.rb
+- test/simple_objects.rb
+- lib/XMLStreamParser.rb
+- lib/XMLElement.rb
+- lib/XMLStreamObjectParser.rb
+- lib/XMLSubElements.rb
+- lib/XMLUtils.rb
+- lib/xmlcodec.rb
+- README
+- LICENSE
+- Rakefile
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: 
+- none
+dependencies: []
+