Empact-roxml 2.0

data/test/mocks/mocks.rb

@@ -0,0 +1,212 @@
+require "lib/roxml"
+
+class Book
+  include ROXML
+
+  xml_accessor :isbn, :attr => 'ISBN'
+  xml_reader :title
+  xml_reader :description, :as => :cdata
+  xml_reader :author
+  xml_accessor :pages, :text => 'pagecount' do |val|
+    Integer(val)
+  end
+end
+
+class BookWithAttrFrom
+  include ROXML
+
+  xml_accessor :isbn, :attr, :from => 'ISBN'
+end
+
+class Measurement
+  include ROXML
+
+  xml_reader :units, :attr
+  xml_reader :value, :content
+  xml_construct :value, :units
+
+  def initialize(value, units = 'pixels')
+    @value = Float(value)
+    @units = units.to_s
+    if @units.starts_with? 'hundredths-'
+      @value /= 100
+      @units = @units.split('hundredths-')[1]
+    end
+  end
+
+  def ==(other)
+    other.units == @units && other.value == @value
+  end
+end
+
+class BookWithDepth
+  include ROXML
+
+  xml_reader :isbn, :attr => 'ISBN'
+  xml_reader :title
+  xml_reader :description, :as => :cdata
+  xml_reader :author
+  xml_reader :depth, Measurement
+end
+
+class InheritedBookWithDepth < Book
+  xml_reader :depth, Measurement
+end
+
+class Author
+  include ROXML
+
+  xml_reader :role, :attr
+  xml_reader :text, :content
+end
+
+class BookWithAuthors
+  include ROXML
+
+  xml_name :book
+  xml_reader :isbn, :attr, :from => 'ISBN'
+  xml_reader :title
+  xml_reader :description, :as => :cdata
+  xml_reader :authors, :as => :array
+end
+
+class BookWithAuthorTextAttribute
+  include ROXML
+
+  xml_name :book
+  xml_reader :isbn, :attr, :from => 'ISBN'
+  xml_reader :title
+  xml_reader :description, :as => :cdata
+  xml_reader :author, Author
+end
+
+class Contributor
+  include ROXML
+
+  xml_reader :role, :attr
+  xml_reader :name
+end
+
+class BookWithContributions
+  include ROXML
+
+  xml_name :book
+  xml_reader :isbn, :attr
+  xml_reader :title
+  xml_reader :description
+  xml_reader :contributions, [Contributor], :from => 'contributor', :in => "contributions"
+end
+
+class BookWithContributors
+  include ROXML
+
+  xml_name :book
+  xml_reader :isbn, :attr
+  xml_reader :title
+  xml_reader :description
+  xml_reader :contributors, Contributor, :as => :array
+end
+
+class NamelessBook
+  include ROXML
+
+  xml_reader :isbn, :attr
+  xml_reader :title
+  xml_reader :description
+  xml_reader :contributors, Contributor, :as => :array
+end
+
+class Publisher
+  include ROXML
+
+  xml_reader :name
+end
+
+class BookWithPublisher
+  include ROXML
+
+  xml_reader :book
+  xml_reader :isbn, :attr
+  xml_reader :title
+  xml_reader :description
+  xml_reader :publisher, Publisher
+end
+
+class BookPair
+  include ROXML
+
+  xml_reader :isbn, :attr
+  xml_reader :title
+  xml_reader :description
+  xml_reader :author
+  xml_reader :book, Book
+end
+
+class Library
+  include ROXML
+
+  xml_reader :name
+  xml_reader :books, BookWithContributions, :as => :array
+end
+
+class UppercaseLibrary
+  include ROXML
+
+  xml_name :library
+  xml_reader :name, :from => 'NAME'
+  xml_reader :books, [BookWithContributions], :from => 'BOOK'
+end
+
+class LibraryWithBooksOfUnderivableName
+  include ROXML
+
+  xml :name, true
+  xml_reader :novels, NamelessBook, :as => :array
+end
+
+class NodeWithNameConflicts
+  include ROXML
+
+  xml_name :node
+  xml_reader :content
+  xml_reader :name
+end
+
+class NodeWithAttrNameConflicts
+  include ROXML
+
+  xml_name :node
+  xml_reader :content, :attr => :content
+  xml_reader :name, :attr => :name
+end
+
+class Person
+  include ROXML
+
+  xml_reader :age, :attr, :else => 21
+  xml_accessor :name, :content, :else => 'Unknown'
+end
+
+class PersonWithMother
+  include ROXML
+
+  xml_name :person
+  xml_reader :name
+  xml_reader :mother, PersonWithMother
+end
+
+class PersonWithGuardedMother
+  include ROXML
+
+  xml_name :person
+  xml_reader :name
+  xml_reader :mother, PersonWithGuardedMother, :from => :person, :in => :mother
+end
+
+class PersonWithMotherOrMissing
+  include ROXML
+
+  xml_reader :age, :attr, :else => 21
+  xml_reader :name, :else => 'Anonymous'
+  xml_reader :mother, PersonWithMotherOrMissing, :else => Person.new
+end

data/test/test_helper.rb

@@ -0,0 +1,16 @@
+require "lib/roxml"
+require "test/unit"
+require 'test/mocks/mocks'
+require 'test/mocks/dictionaries'
+
+def fixture(name)
+  File.read(fixture_path(name))
+end
+
+def xml_fixture(name)
+  ROXML::XML::Parser.parse_file(fixture_path(name)).root
+end
+
+def fixture_path(name)
+  "test/fixtures/#{name}.xml"
+end

data/test/unit/options_test.rb

@@ -0,0 +1,62 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class TestOptions < Test::Unit::TestCase
+  def test_text_in_array_means_as_array_for_text
+    opts = ROXML::Opts.new(:authors, [:text])
+    assert opts.array?
+    assert_equal :text, opts.type
+  end
+
+  def test_attr_in_array_means_as_array_for_attr
+    opts = ROXML::Opts.new(:authors, [:attr])
+    assert opts.array?
+    assert_equal :attr, opts.type
+  end
+
+  def test_object_in_array_means_as_array_for_object
+    opts = ROXML::Opts.new(:authors, [Hash])
+    assert opts.array?
+    assert_equal Hash, opts.type
+  end
+
+  def test_content_is_a_recognized_type
+    assert ROXML::Opts.new(:author, :content).content?
+  end
+
+  def test_hash_of_attrs
+    opts = ROXML::Opts.new(:attributes, {:attrs => [:name, :value]})
+    assert opts.hash?
+    assert !opts.array?
+    assert_equal [ROXML::XMLAttributeRef, ROXML::XMLAttributeRef], opts.hash.types
+    assert_equal ['name', 'value'], opts.hash.names
+  end
+
+  def test_hash_with_attr_key_and_text_val
+    opts = ROXML::Opts.new(:attributes, {:key => {:attr => :name},
+                                         :value => :value})
+    assert opts.hash?
+    assert !opts.array?
+    assert_equal [ROXML::XMLAttributeRef, ROXML::XMLTextRef], opts.hash.types
+    assert_equal ['name', 'value'], opts.hash.names
+  end
+
+  def test_hash_with_attr_key_and_content_val
+    opts = ROXML::Opts.new(:attributes, {:key => {:attr => :name},
+                                         :value => :content})
+    assert opts.hash?
+    assert !opts.array?
+    assert opts.hash.value.content
+    assert_equal [ROXML::XMLAttributeRef, ROXML::XMLTextRef], opts.hash.types
+    assert_equal ['name', ''], opts.hash.names
+  end
+
+  def test_hash_with_options
+    opts = ROXML::Opts.new(:definitions, {:attrs => [:dt, :dd]},
+                           :in => :definitions)
+
+    assert opts.hash?
+    assert !opts.array?
+    assert_equal [ROXML::XMLAttributeRef, ROXML::XMLAttributeRef], opts.hash.types
+    assert_equal ['dt', 'dd'], opts.hash.names
+  end
+end

data/test/unit/roxml_test.rb

@@ -0,0 +1,24 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class TestROXML < Test::Unit::TestCase
+  # Malformed XML parsing should throw REXML::ParseException
+  def test_malformed
+    ROXML::XML::Parser.register_error_handler {|err| }
+    assert_raise ROXML::XML::Parser::ParseError do
+      book = Book.parse(fixture(:book_malformed))
+    end
+  end
+
+  # Verify that an exception is thrown when two accessors have the same
+  # name in a ROXML class.
+  def test_duplicate_accessor
+    assert_raise RuntimeError do
+      Class.new do
+        include ROXML
+
+        xml_reader :id
+        xml_accessor :id
+      end
+    end
+  end
+end

data/test/unit/string_test.rb

@@ -0,0 +1,11 @@
+require 'lib/roxml/string'
+
+class TestROXML < Test::Unit::TestCase
+  def test_to_latin_is_accessible
+    assert String.instance_methods.include?('to_latin')
+  end
+
+  def test_to_utf_is_accessible
+    assert String.instance_methods.include?('to_utf')
+  end
+end

data/test/unit/to_xml_test.rb

@@ -0,0 +1,75 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+def to_xml_test(*names)
+  names = names.only if names.one? && names.only.is_a?(Hash)
+  names.each do |(name, xml_name)|
+    xml_name ||= name
+
+    define_method "test_#{name}" do
+      dict = name.to_s.camelize.constantize.parse(fixture(xml_name))
+      xml = xml_fixture(xml_name)
+      remove_children(xml)
+      assert_equal xml, dict.to_xml
+    end
+  end
+end
+
+def remove_children(xml)
+  return unless xml.respond_to? :children
+  xml.children.each do |child|
+    if child.blank?
+      child.remove!
+    else
+      remove_children(child)
+    end
+  end
+end
+
+class TestHashToXml < Test::Unit::TestCase
+  to_xml_test :dictionary_of_attrs,
+              :dictionary_of_mixeds,
+              :dictionary_of_texts,
+              :dictionary_of_names,
+              :dictionary_of_guarded_names,
+              :dictionary_of_name_clashes,
+              :dictionary_of_attr_name_clashes
+end
+
+class TestOtherToXml < Test::Unit::TestCase
+  to_xml_test :book => :book_valid,
+              :book_with_author_text_attribute => :book_text_with_attribute,
+              :uppercase_library => :library_uppercase
+
+  to_xml_test :book_with_authors,
+              :book_with_contributors,
+              :book_with_contributions,
+              :library,
+              :node_with_name_conflicts,
+              :node_with_attr_name_conflicts
+
+  to_xml_test :person_with_mother => :person_with_mothers,
+              :person_with_guarded_mother => :person_with_guarded_mothers
+end
+
+class TestToXmlWithDefaults < Test::Unit::TestCase
+  def test_content_and_attr_defaults_are_represented_in_output
+    dict = Person.parse(fixture(:nameless_ageless_youth))
+
+    xml = '<person age="21">Unknown</person>'
+    assert_equal ROXML::XML::Parser.parse(xml).root, dict.to_xml
+  end
+end
+
+class TestToXmlWithBlocks < Test::Unit::TestCase
+  def test_pagecount_serialized_properly_after_modification
+    b = Book.parse(fixture(:book_valid))
+    xml = xml_fixture(:book_valid)
+    assert_equal '357', xml.search('pagecount').first.content
+    assert_equal 357, b.pages
+
+    b.pages = 500
+    doc = ROXML::XML::Document.new()
+    doc.root = b.to_xml
+    assert_equal '500', doc.search('pagecount').first.content
+  end
+end

data/test/unit/xml_attribute_test.rb

@@ -0,0 +1,34 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class TestXMLAttribute < Test::Unit::TestCase
+  def test_attr_from
+    # :attr => *
+    book = Book.parse(fixture(:book_text_with_attribute))
+    assert_equal '0201710897', book.isbn
+
+    # :attr, :from => *
+    book = BookWithAttrFrom.parse(fixture(:book_text_with_attribute))
+    assert_equal '0201710897', book.isbn
+  end
+
+  def test_mutable_attr
+    book = Book.parse(fixture(:book_text_with_attribute))
+    assert book.respond_to?(:'isbn=')
+  end
+
+  def test_default_initialization
+    person = PersonWithMotherOrMissing.parse(fixture(:nameless_ageless_youth))
+    assert_equal 21, person.age
+  end
+
+  def test_recursive_with_default_initialization
+    p = PersonWithMotherOrMissing.parse(fixture(:person_with_mothers))
+    assert_equal 21, p.mother.mother.mother.age
+  end
+
+  def test_no_name_clashes
+    n = NodeWithAttrNameConflicts.parse(fixture(:node_with_attr_name_conflicts))
+    assert_equal "Just junk... really", n.content
+    assert_equal "Cartwheel", n.name
+  end
+end

data/test/unit/xml_construct_test.rb

@@ -0,0 +1,19 @@
+require File.join(File.dirname(__FILE__), '..', 'test_helper')
+
+class TestXMLAttribute < Test::Unit::TestCase
+  def test_initialize_is_run
+    m = Measurement.parse('<measurement units="hundredths-meters">1130</measurement>')
+    assert_equal 11.3, m.value
+    assert_equal 'meters', m.units
+  end
+
+  def test_initialize_is_run_for_nested_type
+    b = BookWithDepth.parse(fixture(:book_with_depth))
+    assert_equal Measurement.new(11.3, 'meters'), b.depth
+  end
+
+  def test_initialize_is_run_for_nested_type_with_inheritance
+    b = InheritedBookWithDepth.parse(fixture(:book_with_depth))
+    assert_equal Measurement.new(11.3, 'meters'), b.depth
+  end
+end