xml-mapping 0.8

data/test/all_tests.rb

@@ -0,0 +1,6 @@
+require File.dirname(__FILE__)+"/tests_init"
+
+require 'xpath_test'
+require 'xml_mapping_test'
+require 'xml_mapping_adv_test'
+

data/test/company.rb

@@ -0,0 +1,54 @@
+require 'xml/mapping'
+
+# forward declarations
+class Address; end
+class Office; end
+class Customer; end
+
+
+class Company
+  include XML::Mapping
+
+  text_node :name, "@name"
+
+  object_node :address, "address", :class=>Address
+
+  array_node :offices, "offices", "office", :class=>Office
+  hash_node :customers, "customers", "customer", "@uid", :class=>Customer
+
+  text_node :ent1, "arrtest/entry[1]"
+  text_node :ent2, "arrtest/entry[2]"
+  text_node :ent3, "arrtest/entry[3]"
+
+  array_node :stuff, "stuff", "*"
+end
+
+
+class Address
+  include XML::Mapping
+
+  text_node :city, "city"
+  numeric_node :zip, "zip", :default_value=>12576
+  text_node :street, "street", :optional=>true
+  numeric_node :number, "number"
+end
+
+
+class Office
+  include XML::Mapping
+
+  text_node :speciality, "@speciality"
+  boolean_node :classified, "classified", "yes", "no"
+  # object_node :address, "address", :class=>Address
+  object_node :address, "address",
+        :marshaller=>proc {|xml,value| value.fill_into_xml(xml)},
+        :unmarshaller=>proc {|xml| Address.load_from_xml(xml)}
+end
+
+
+class Customer
+  include XML::Mapping
+
+  text_node :uid, "@uid"
+  text_node :name, "name"
+end

data/test/documents_folders.rb

@@ -0,0 +1,33 @@
+require 'xml/mapping'
+
+class Entry
+  include XML::Mapping
+
+  text_node :name, "name"
+end
+
+
+class Document <Entry
+  include XML::Mapping
+
+  text_node :contents, "contents"
+
+  def ==(other)
+    Document===other and
+      other.name==self.name and
+      other.contents==self.contents
+  end
+end
+
+
+class Folder <Entry
+  include XML::Mapping
+
+  array_node :entries, "entries", "*"
+
+  def ==(other)
+    Folder===other and
+      other.name==self.name and
+      other.entries==self.entries
+  end
+end

data/test/fixtures/bookmarks1.xml

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+
+<folder1 name="root" last-changed="123">
+  <entries1>
+    <bookmark1 bmname="ruby" bmlast-changed="345">
+      <url>http://www.ruby-lang.org</url>
+    </bookmark1>
+
+    <bookmark1 bmname="RAA">
+      <url>http://raa.ruby-lang.org/</url>
+    </bookmark1>
+
+    <folder1 name="news">
+      <entries1>
+        <bookmark1 bmname="/." bmlast-changed="233">
+          <url>http://www.slashdot.org/</url>
+        </bookmark1>
+        <bookmark1 bmname="groklaw" bmlast-changed="238">
+          <url>http://www.groklaw.net/</url>
+        </bookmark1>
+      </entries1>
+    </folder1>
+  </entries1>
+</folder1>

data/test/fixtures/company1.xml

@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+
+<company name="ACME inc.">
+
+    <address>
+      <city>Berlin</city>
+      <zip>10176</zip>
+      <street>Unter den Linden</street>
+      <number>12</number>
+    </address>
+
+    <offices>
+      <office speciality="pencils">
+        <classified>no</classified>
+        <address>
+          <city>Hamburg</city>
+          <zip>18282</zip>
+          <street>Feldweg</street>
+          <number>28</number>
+        </address>
+      </office>
+      <office speciality="weapons of mass destruction">
+        <classified>yes</classified>
+        <address>
+          <city>Baghdad</city>
+          <street>Airport</street>
+          <number>18</number>
+        </address>
+      </office>
+    </offices>
+
+
+    <customers>
+
+      <customer uid="jim">
+        <name>James Kirk</name>
+        <payment_method>cash</payment_method>
+      </customer>
+
+      <customer uid="ernie">
+        <name>Ernie</name>
+        <payment_method>sweeties</payment_method>
+      </customer>
+
+      <customer uid="cm">
+        <name>Cookie Monster</name>
+        <payment_method>cookies</payment_method>
+      </customer>
+      
+      <customer uid="sad">
+        <name>Saddam Hussein</name>
+        <payment_method>independent arms broker</payment_method>
+      </customer>
+
+    </customers>
+
+
+    <arrtest>
+      <entry>foo</entry>
+      <entry>bar</entry>
+      <entry>baz</entry>
+    </arrtest>
+
+
+    <stuff>
+      <customer uid="sad">
+        <name>Saddam Hussein</name>
+        <payment_method>independent arms broker</payment_method>
+      </customer>
+      <address>
+        <city>Berlin</city>
+        <zip>10176</zip>
+        <street>Unter den Linden</street>
+        <number>12</number>
+      </address>
+      <office speciality="weapons of mass destruction">
+        <classified>yes</classified>
+        <address>
+          <city>Baghdad</city>
+          <street>Airport</street>
+          <number>18</number>
+        </address>
+      </office>
+    </stuff>
+</company>

data/test/fixtures/documents_folders.xml

@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+
+
+<folder>
+  <name>home</name>
+
+  <entries>
+    <document>
+      <name>plan</name>
+      <contents>
+        inhale, exhale
+        eat, drink, sleep
+      </contents>
+    </document>
+
+    <folder>
+      <name>work</name>
+
+      <entries>
+        <folder>
+          <name>xml-mapping</name>
+
+          <entries>
+            <document>
+              <name>README</name>
+              <contents>
+                XML-MAPPING: XML-to-object (and back) mapper
+                for Ruby, including XPath interpreter
+              </contents>
+            </document>
+            <document>
+              <name>Rakefile</name>
+              <contents>
+                rake away
+              </contents>
+            </document>
+          </entries>
+        </folder>
+
+        <document>
+          <name>schedule</name>
+          <contents>
+            12:00 AM lunch
+             4:00 PM appointment
+          </contents>
+        </document>
+      </entries>
+    </folder>
+
+
+    <folder>
+      <name>books</name>
+
+      <entries>
+        <document>
+          <name>The Hitchhiker's Guide to the Galaxy</name>
+          <contents>
+            The Answer to Life, the Universe, and Everything
+          </contents>
+        </document>
+        <document>
+          <name>Programming Ruby</name>
+          <contents>
+            The Pragmatic Programmer's Guide
+          </contents>
+        </document>
+      </entries>
+    </folder>
+
+  </entries>
+</folder>

data/test/fixtures/documents_folders2.xml

@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+
+<folder>
+  <name>home</name>
+
+  <entries>
+    <document>
+      <name>plan</name>
+      <contents> inhale, exhale</contents>
+    </document>
+
+    <folder>
+      <name>work</name>
+
+      <entries>
+        <folder>
+          <name>xml-mapping</name>
+
+          <entries>
+            <document>
+              <name>README</name>
+              <contents>foo bar baz</contents>
+            </document>
+          </entries>
+        </folder>
+      </entries>
+    </folder>
+
+  </entries>
+</folder>

data/test/multiple_mappings.rb

@@ -0,0 +1,80 @@
+class BMNode
+  attr_accessor :name
+
+  def name=(x)
+    @name_set="#{x}_set"
+    @name=x
+  end
+
+  def name
+    @name_get="#{@name}_get"
+    @name
+  end
+
+  attr_reader :name_set, :name_get
+
+  attr_accessor :last_changed
+
+  def ==(other)
+    other.name==self.name and
+      other.last_changed==self.last_changed
+  end
+
+  def initialize
+    yield(self) if block_given?
+  end
+end
+
+class BMFolder < BMNode
+  attr_accessor :entries
+
+  def ==(other)
+    super(other) and
+      self.entries == other.entries
+  end
+end
+
+class BM < BMNode
+  attr_accessor :url
+  attr_accessor :refinement
+
+  def ==(other)
+    super(other) and
+      self.url == other.url and
+      self.refinement == other.refinement
+  end
+end
+
+
+
+require 'xml/mapping'
+
+module Mapping1
+  class BMFolderMapping < BMFolder
+    include XML::Mapping
+
+    root_element_name 'folder1'
+
+    text_node :name, "@name"
+    numeric_node :last_changed, "@last-changed", :default_value=>nil
+
+    array_node :entries, "entries1", "*"
+  end
+
+  class BMMapping < BM
+    include XML::Mapping
+
+    root_element_name 'bookmark1'
+
+    text_node :name, "@bmname"
+    numeric_node :last_changed, "@bmlast-changed", :default_value=>nil
+
+    text_node :url, "url"
+    object_node :refinement, "refinement", :default_value=>nil
+  end
+end
+
+
+module Mapping2
+  # TODO
+end

data/test/tests_init.rb

@@ -0,0 +1,2 @@
+$:.unshift File.dirname(__FILE__)
+$:.unshift File.dirname(__FILE__)+"/../lib"

data/test/xml_mapping_adv_test.rb

@@ -0,0 +1,84 @@
+require File.dirname(__FILE__)+"/tests_init"
+
+require 'test/unit'
+require 'documents_folders'
+require 'multiple_mappings'
+require 'yaml'
+
+class XmlMappingAdvancedTest < Test::Unit::TestCase
+  def setup
+    @f_xml = REXML::Document.new(File.new(File.dirname(__FILE__) + "/fixtures/documents_folders2.xml"))
+    @f = XML::Mapping.load_object_from_xml(@f_xml.root)
+
+    @bm1_xml = REXML::Document.new(File.new(File.dirname(__FILE__) + "/fixtures/bookmarks1.xml"))
+    @bm1 = XML::Mapping.load_object_from_xml(@bm1_xml.root)
+  end
+
+  def test_read_polymorphic_object
+    assert_equal YAML::load(<<-EOS), @f
+      --- !ruby/object:Folder 
+      entries: 
+        - !ruby/object:Document 
+          contents: " inhale, exhale"
+          name: plan
+        - !ruby/object:Folder 
+          entries: 
+            - !ruby/object:Folder 
+              entries: 
+                - !ruby/object:Document 
+                  contents: foo bar baz
+                  name: README
+              name: xml-mapping
+          name: work
+      name: home
+    EOS
+  end
+
+
+  def test_read_bookmars1_2
+     expected = BMFolder.new{|x|
+      x.name = "root"
+      x.last_changed = 123
+      x.entries = [
+        BM.new{|x|  
+          x.name="ruby"
+          x.last_changed=345
+          x.url="http://www.ruby-lang.org"
+          x.refinement=nil
+        }, 
+        BM.new{|x|  
+          x.name="RAA"
+          x.last_changed=nil
+          x.url="http://raa.ruby-lang.org/"
+          x.refinement=nil
+        },
+        BMFolder.new{|x|  
+          x.name="news"
+          x.last_changed=nil
+          x.entries = [
+            BM.new{|x|
+              x.name="/."
+              x.last_changed=233
+              x.url="http://www.slashdot.org/"
+              x.refinement=nil
+            },
+            BM.new{|x|
+              x.name="groklaw"
+              x.last_changed=238
+              x.url="http://www.groklaw.net/"
+              x.refinement=nil
+            }
+          ]
+        }
+      ]
+    }
+    # need to compare expected==@bm1 because @bm1.== would be the
+    # XML::Mapping#== defined in xml_mapping_test.rb ...
+    assert_equal expected, @bm1
+    assert_equal "root_set", @bm1.name_set
+    assert_equal "ruby_set", @bm1.entries[0].name_set
+    @bm1.entries[0].name = "foobar"
+    assert_equal "foobar_set", @bm1.entries[0].name_set
+  end
+end
+