mappum 0.2.0

data/sample/server/mapserver.sh

@@ -0,0 +1 @@
+ruby ../../bin/mapserver.rb $*

data/sample/server/schema/crm_client.xsd

@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema version="1.0" 
+            xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+            targetNamespace="http://mappum.ivmx.pl/client">
+  <xsd:element name="client">
+    <xsd:complexType>
+      <xsd:sequence>
+        <xsd:element name="title" type="xsd:string" maxOccurs="1"/>
+        <xsd:element name="id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="first_name" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="surname" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="sex_id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="phones" type="xsd:string" minOccurs="0" maxOccurs="20"/>
+        <xsd:element name="emails" type="xsd:string" minOccurs="0" maxOccurs="3"/>
+        <xsd:element name="main_phone" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="main_phone_type" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="address" minOccurs="0" maxOccurs="1">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element name="street" type="xsd:string"/>
+            <xsd:element name="city" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+        </xsd:element> 
+      </xsd:sequence> 
+    </xsd:complexType>
+  </xsd:element> 
+</xsd:schema>
+

data/sample/server/schema/erp/erp_person.xsd

@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsd:schema version="1.0" 
+            xmlns:xsd="http://www.w3.org/2001/XMLSchema"
+            targetNamespace="http://mappum.ivmx.pl/person"
+            xmlns:tns="http://mappum.ivmx.pl/person">
+  <xsd:element name="person">
+    <xsd:complexType>
+      <xsd:sequence>
+        <xsd:element name="title" type="xsd:string" maxOccurs="1"/>
+        <xsd:element name="person_id" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="name" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="surname" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="sex" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email1" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email2" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="email3" type="xsd:string" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="main_phone" type="tns:phone" minOccurs="0" maxOccurs="1"/>
+        <xsd:element name="address" minOccurs="0" maxOccurs="1">
+        <xsd:complexType>
+          <xsd:sequence>
+            <xsd:element name="street" type="xsd:string"/>
+            <xsd:element name="city" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+        </xsd:element> 
+        <xsd:element name="phones" type="tns:phone" minOccurs="0" maxOccurs="5"/>
+      </xsd:sequence> 
+    </xsd:complexType>
+  </xsd:element>
+        <xsd:complexType name="phone">
+          <xsd:sequence>
+            <xsd:element name="number" type="xsd:string"/>
+            <xsd:element name="extension" type="xsd:string" minOccurs="0"/>
+            <xsd:element name="type" type="xsd:string" minOccurs="0"/>
+          </xsd:sequence>
+        </xsd:complexType>
+</xsd:schema>
+

data/test/test_conversions.rb

@@ -0,0 +1,24 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+
+require 'mappum/ruby_transform'
+require 'test/unit'
+require 'sample/example_conversions'
+
+class TestConversions < Test::Unit::TestCase
+  def test_conv
+    catalogue = Mappum.catalogue
+    rt = Mappum::RubyTransform.new(catalogue)
+    typed = OpenStruct.new
+    typed.date = Date.today
+    typed.time = Time.parse "Tue, 06 Oct 2009 10:12:32 +0200"
+    typed.fixnum = 982147
+    typed.float = 219830.398274
+    stringed = rt.transform(typed,catalogue[:typed])
+    assert_equal(Date.today.to_s,stringed.date)
+    assert_equal("Tue, 06 Oct 2009 10:12:32 +0200",stringed.time)
+    assert_equal("982147",stringed.fixnum)
+    assert_equal("219830.398274",stringed.float)
+    typed2 = rt.transform(stringed,catalogue[:stringed])
+    assert_equal(typed,typed2)
+  end
+end

data/test/test_example.rb

@@ -0,0 +1,175 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+#TODO fix imports
+require 'mappum/ruby_transform'
+require 'test/unit'
+require 'sample/example_map'
+
+Group = Struct.new(:main, :list)
+ClientList = Struct.new(:leader, :clients)
+
+class TestExample < Test::Unit::TestCase
+  def stest_map
+    catalogue = Mappum.catalogue("CRM-ERP")
+
+    main_map = catalogue[ERP::Person]
+
+    assert_equal(ERP::Person, main_map.from.clazz)
+    assert_equal(CRM::Client, main_map.to.clazz)
+    #assert_equal(5, main_map.maps.size)
+
+    # check >>
+    map_title = main_map.maps[0]
+    assert_equal(:title, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:title, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+
+    # check >>
+    map_title = main_map.maps[1]
+    assert_equal(:person_id, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:id, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+    
+    main_map = catalogue[CRM::Client]
+
+    # check <<
+    map_title = main_map.maps[0]
+    assert_equal(:title, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:title, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+
+    # check <<
+    map_title = main_map.maps[1]
+    assert_equal(:id, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:person_id, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+  end
+  def test_transform
+    catalogue = Mappum.catalogue("CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+    
+    per = ERP::Person.new
+    per.title = "sir"
+    per.type = "NaN"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = ERP::Address.new
+    per.address.street = "Victoria"
+    per.email1 = "j@j.com"
+    per.email2 = "k@k.com"
+    per.email3 = "l@l.com"
+    per.phones = [ERP::Phone.new("21311231"), ERP::Phone.new("21311232")]
+    per.main_phone = ERP::Phone.new
+    per.main_phone.number ="09876567"
+    per.main_phone.type = :mobile
+    per.corporation = "Corporation l.t.d."
+    per.date_updated = Date.today
+    per.spouse = ERP::Person.new
+    per.spouse.name = "Linda"
+    
+    cli = rt.transform(per)
+    
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal(CRM::Address, cli.address.class)
+    assert_equal("Victoria", cli.address.street)
+    assert_equal(["j@j.com", "k@k.com", "l@l.com"], cli.emails)
+    assert_equal(["21311231", "21311232"], cli.phones)
+    assert_equal("09876567", cli.main_phone)
+    assert_equal("Last", cli.order_by)
+    assert_equal("Linda", cli.partners[0].name)
+    assert_equal("Wife", cli.partners[0].type)
+    assert_equal("Linda", cli.partners[1].name)
+    assert_equal("Friend", cli.partners[1].type)
+    assert(cli.updated.kind_of?(Time))
+    
+    per2 = rt.transform(cli)
+    assert_equal(per, per2)
+  end
+  def test_transform_nil_array
+    catalogue = Mappum.catalogue("CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = ERP::Person.new
+    per.title = "sir"
+    per.type = "NaN"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = ERP::Address.new
+    per.address.street = "Victoria"
+    per.date_updated = Date.today
+
+
+    cli = rt.transform(per)
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal(CRM::Address, cli.address.class)
+    assert_equal("Victoria", cli.address.street)
+    assert_nil(cli.phones)
+    assert_nil(cli.main_phone)
+
+    per2 = rt.transform(cli)
+    assert_equal(per, per2)
+  end
+  def test_transform_funny_array
+    catalogue = Mappum.catalogue("CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = ERP::Person.new
+    per.type = "NaN"
+    per.email1 = "j@j.com"
+    per.email2 = "l@l.com"
+    per.main_phone = ERP::Phone.new("7869876")
+    per.date_updated = Date.today
+    
+    cli = rt.transform(per)
+    
+    assert_equal(["j@j.com", "l@l.com", nil], cli.emails)
+
+    per2 = rt.transform(cli)
+    assert_equal(per, per2)
+  end
+  def test_submaps
+    catalogue = Mappum.catalogue("CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = ERP::Person.new
+    per.title = "sir"
+    per.type = "NaN"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = ERP::Address.new
+    per.address.street = "Victoria"
+    per.date_updated = Date.today
+
+    group = Group.new
+    group.main = per
+    group.list = [per]
+    #clilist =  ClientList.new
+    clilist = rt.transform(group,catalogue[:Group])
+    cli = clilist.clients[0]
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal(CRM::Address, cli.address.class)
+    assert_equal("Victoria", cli.address.street)
+    assert_nil(cli.phones)
+    assert_nil(cli.main_phone)
+    
+    cli1 = clilist.leader
+    assert_equal("sir", cli1.title)
+    assert_equal("ASDDSA", cli1.id)
+    assert_equal("2", cli1.sex_id)
+  end
+end

data/test/test_openstruct.rb

@@ -0,0 +1,129 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+#TODO fix imports
+require 'mappum/ruby_transform'
+require 'test/unit'
+require 'sample/example_notypes'
+
+class TestOpenStruct < Test::Unit::TestCase
+  def test_map
+    catalogue = Mappum.catalogue("NOTYPE-CRM-ERP")
+
+    main_map = catalogue[:person]
+
+    assert_equal(:person, main_map.from.clazz)
+    assert_equal(:client, main_map.to.clazz)
+    #assert_equal(5, main_map.maps.size)
+
+    # check >>
+    map_title = main_map.maps[0]
+    assert_equal(:title, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:title, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+
+    # check >>
+    map_title = main_map.maps[1]
+    assert_equal(:person_id, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:id, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+    
+    main_map = catalogue[:client]
+    # check <<
+    map_title = main_map.maps[0]
+    assert_equal(:title, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:title, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+
+    # check <<
+    map_title = main_map.maps[1]
+    assert_equal(:id, map_title.from.name)
+    assert_equal(main_map.from, map_title.from.parent)
+    assert_equal(:person_id, map_title.to.name)
+    assert_equal(main_map.to, map_title.to.parent)
+  end
+  def test_transform
+    catalogue = Mappum.catalogue("NOTYPE-CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+    
+    per = Mappum::OpenStruct.new
+    per.title = "sir"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = Mappum::OpenStruct.new
+    per.address.street = "Victoria"
+    per.email1 = "j@j.com"
+    per.email2 = "k@k.com"
+    per.email3 = "l@l.com"
+    
+    phone1 = Mappum::OpenStruct.new
+    phone1.number="21311231"
+
+    phone2 = Mappum::OpenStruct.new
+    phone2.number="21311232"
+    
+    per.phones = [phone1, phone2]
+    per.main_phone = Mappum::OpenStruct.new
+    per.main_phone.number ="09876567"
+    per.main_phone.type = :mobile
+
+    cli = rt.transform(per,catalogue[:person])
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal("Victoria", cli.address.street)
+    assert_equal(["j@j.com", "k@k.com", "l@l.com"], cli.emails)
+    assert_equal(["21311231", "21311232"], cli.phones)
+    assert_equal("09876567", cli.main_phone)
+
+    per2 = rt.transform(cli,catalogue[:client])
+    assert_equal(per, per2)
+
+
+  end
+  def test_transform_nil_array
+    catalogue = Mappum.catalogue("NOTYPE-CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = Mappum::OpenStruct.new
+    per.title = "sir"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = Mappum::OpenStruct.new
+    per.address.street = "Victoria"
+
+
+
+    cli = rt.transform(per,catalogue[:person])
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal("Victoria", cli.address.street)
+    assert_nil(cli.phones)
+    assert_nil(cli.main_phone)
+
+    per2 = rt.transform(cli,catalogue[:client])
+    assert_equal(per, per2)
+  end
+  def test_transform_funny_array
+    catalogue = Mappum.catalogue("NOTYPE-CRM-ERP")
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = Mappum::OpenStruct.new
+    per.email1 = "j@j.com"
+    per.email2 = "l@l.com"
+    per.main_phone = Mappum::OpenStruct.new
+    per.main_phone.number ="09876567"
+
+    cli = rt.transform(per,catalogue[:person])
+    assert_equal(["j@j.com", "l@l.com", nil], cli.emails)
+
+    per2 = rt.transform(cli,catalogue[:client])
+    assert_equal(per, per2)
+  end
+end

data/test/test_soap4r.rb

@@ -0,0 +1,108 @@
+$:.unshift File.join(File.dirname(__FILE__),'..','lib')
+#TODO fix imports
+require 'mappum/xml_transform'
+require 'test/unit'
+require 'rubygems'
+gem 'soap4r'
+gem 'facets'
+require 'facets/equatable'
+require 'soap/marshal'
+
+wl = Mappum::WorkdirLoader.new("sample/server/schema", "sample/server/map")
+wl.generate_and_require   
+
+class Erp::Person
+  include Equatable(:title, :person_id, :name, :surname, :sex, :email1, 
+    :email2, :email3, :main_phone, :address, :phones)
+end
+class Erp::Phone
+  include Equatable(:number, :extension, :type)
+end
+class Erp::Person::Address
+  include Equatable(:city, :street)
+end
+
+class TestExample < Test::Unit::TestCase
+   def initialize(*args)
+     super(*args)
+     @rt = Mappum::XmlTransform.new
+     @personMapper = Erp::ErpErp_personMapper.new
+     @clientMapper = Crm_clientMapper.new
+   end
+  def test_xml_transform
+    
+    xml = IO.read("sample/person_fixture.xml")
+
+    xml_cli = @rt.transform(xml)
+
+    xml2 = @rt.transform(xml_cli)
+
+    assert_equal(xml.strip, xml2.strip)
+
+  end
+  def test_transform
+    
+    xml = IO.read("sample/person_fixture.xml")
+    clixml = @rt.transform(xml)
+    cli = @clientMapper.xml2obj(clixml)
+    
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal(Client::Address, cli.address.class)
+    assert_equal("Victoria", cli.address.street)
+    assert_equal(["j@j.com", "k@k.com", "l@l.com"], cli.emails)
+    assert_equal(["21311231", "21311232"], cli.phones)
+    assert_equal("09876567", cli.main_phone)
+
+    xml2 = @rt.transform(clixml)
+
+    assert_equal(xml.strip, xml2.strip)
+
+
+  end
+  def test_transform_nil_array
+ 
+    per = Erp::Person.new
+    per.title = "sir"
+    per.person_id = "asddsa"
+    per.sex = "M"
+    per.name = "Skory"
+    per.address = Erp::Person::Address.new
+    per.address.street = "Victoria"
+    per.phones = nil
+    
+    perxml = @personMapper.obj2xml(per)
+    clixml = @rt.transform(perxml)
+    cli = @clientMapper.xml2obj(clixml)
+    
+    assert_equal("sir", cli.title)
+    assert_equal("ASDDSA", cli.id)
+    assert_equal("2", cli.sex_id)
+    assert_equal("Skoryski", cli.surname)
+    assert_equal(Client::Address, cli.address.class)
+    assert_equal("Victoria", cli.address.street)
+    assert_nil(cli.phones)
+    assert_nil(cli.main_phone)
+    per2xml = @rt.transform(clixml)
+    
+    per2 = @personMapper.xml2obj(per2xml)
+    
+    assert_equal(per, per2)
+  end
+  def test_transform_funny_array
+    catalogue = Mappum.catalogue
+    rt = Mappum::RubyTransform.new(catalogue)
+
+    per = Erp::Person.new
+    per.email1 = "j@j.com"
+    per.email2 = "l@l.com"
+    per.main_phone = Erp::Phone.new("7869876")
+    cli = rt.transform(per)
+    assert_equal(["j@j.com", "l@l.com", nil], cli.emails)
+
+    per2 = rt.transform(cli)
+    assert_equal(per, per2)
+  end
+end