sandozxmlconv 1.0.0

data/test/test_integration/propharma_csv.rb

@@ -0,0 +1,129 @@
+#!/usr/bin/env ruby
+# Integration::TestProPharmaI2 -- xmlconv2 -- 17.09.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'xmlconv/util/transaction'
+require 'xmlconv/util/destination'
+require 'conversion/propharma_bdd'
+require 'conversion/bdd_csv'
+
+module XmlConv
+  module Integration
+class TestProPharmaI2 < Test::Unit::TestCase
+  def setup
+    @target_dir = File.expand_path('data/propharma_csv',
+      File.dirname(__FILE__))
+    clear_dir
+  end
+  def teardown
+    clear_dir
+  end
+  def clear_dir
+    if(File.exist?(@target_dir))
+      FileUtils.rm_r(@target_dir)
+    end
+  end
+  def test_propharma_csv
+    XmlConv::CONFIG.default_filename = '%s%s_%s.txt'
+    src = <<-EOS
+[KUNDE]
+idt=4100606423
+nam=Heimstaette Baerau
+ort=3552 B„rau
+[BSTELL]
+ref=103492
+dat=A80213
+tim=1353
+[ARTIK]
+typ=P
+phc=02839238
+art=CARSOL CR TABL 200 MG 200 STK
+mge=2
+[ARTIK]
+typ=P
+phc=02839296
+art=CARSOL CR TABL 400 MG 200 STK
+mge=5
+[ARTIK]
+typ=P
+phc=02550609
+art=CITALOPRAM ECOSOL FILMTABL 40 MG 100 STK
+mge=1
+[ARTIK]
+typ=P
+phc=02940977
+art=ECODOLOR RET TABL 100 MG 50 STK
+mge=10
+[ARTIK]
+typ=P
+phc=01301850
+art=ECODUREX TABL 5/50 100 STK
+mge=3
+[ARTIK]
+typ=P
+phc=02128827
+art=ECOFENAC LIPOGEL 1 % 100 G
+mge=50
+[ARTIK]
+typ=P
+phc=02128773
+art=NORSOL TABL 400 MG 42 STK
+mge=2
+[ARTIK]
+typ=P
+phc=02919753
+art=OMED TAB FILMTABL 20 MG 100 STK
+mge=20
+[ARTIK]
+typ=P
+phc=03463433
+art=OMEPRAZOL SANDOZ ECO KAPS 40 MG 56 STK
+mge=20
+[ARTIK]
+typ=P
+phc=02965635
+art=PRAVASTA ECO TABL 20 MG 100 STK
+mge=3
+[ARTIK]
+typ=P
+phc=02965730
+art=TORASIS TABL 5 MG 100 STK
+mge=10
+[ARTIK]
+typ=P
+phc=03663623
+art=METO ZEROK RET TABL 25 MG 100 STK
+mge=1
+    EOS
+    ast = Conversion::ProPharmaBdd.parse(src)
+    bdd = Conversion::ProPharmaBdd.convert(ast)
+    csv_docs = Conversion::BddCsv.convert(bdd)
+    assert_instance_of(Array, csv_docs)
+    csv_doc = csv_docs.first
+    assert_match(/^4100606423_.*\.txt/, csv_doc.filename)
+    result = csv_doc.to_s.split("\n")
+    dstr = Date.today.strftime("%d%m%Y")
+    expected = <<-EOS
+4100606423,,#{dstr},,02839238,,,2,,103492,
+4100606423,,#{dstr},,02839296,,,5,,103492,
+4100606423,,#{dstr},,02550609,,,1,,103492,
+4100606423,,#{dstr},,02940977,,,10,,103492,
+4100606423,,#{dstr},,01301850,,,3,,103492,
+4100606423,,#{dstr},,02128827,,,50,,103492,
+4100606423,,#{dstr},,02128773,,,2,,103492,
+4100606423,,#{dstr},,02919753,,,20,,103492,
+4100606423,,#{dstr},,03463433,,,20,,103492,
+4100606423,,#{dstr},,02965635,,,3,,103492,
+4100606423,,#{dstr},,02965730,,,10,,103492,
+4100606423,,#{dstr},,03663623,,,1,,103492,
+    EOS
+    expected.split("\n").each_with_index { |line, index|
+      assert_equal(line, result[index])
+    }
+  end
+end
+  end
+end

data/test/test_integration/sunstore_csv.rb

@@ -0,0 +1,79 @@
+#!/usr/bin/env ruby
+# TestPharmaciePlusI2 -- xmlconv2 -- 21.08.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'xmlconv/util/transaction'
+require 'xmlconv/util/destination'
+require 'conversion/sunstore_bdd'
+require 'conversion/bdd_csv'
+
+module XmlConv
+  module Integration
+class TestXmlI2 < Test::Unit::TestCase
+  def setup
+    @src = <<-XML
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<customerOrder xmlns="http://www.e-galexis.com/schemas/"
+  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
+  xsi:schemaLocation="http://www.e-galexis.com/schemas/ http://www.e-galexis.com/schemas/POS/customerOrder/customerOrder.xsd"
+  backLogDesired="true" compressionDesired="false" language="de"
+  productDescriptionDesired="false" roundUpForCondition="true"
+  version="1.0">
+  <client number="test" password="test" />
+  <orderHeader deliveryDate="2002-08-25"
+    referenceNumber="123ABCDE9012345" mannerOfTransport="tour"
+    urgent="false">
+    <deliveryAddress line1="Superkunde" line4="Linkestrasse 99"
+      line5PostalCode="3322" line5City="Sch&#246;nb&#252;hl">
+      <addressLine2And3Text line2="Dorfladen" line3="Frau Muster" />
+    </deliveryAddress>
+  </orderHeader>
+  <orderLines>
+    <productOrderLine orderQuantity="10" roundUpForCondition="true"
+      backLogDesired="false">
+      <pharmaCode id="1336630" />
+    </productOrderLine>
+    <productLabelOrderLine defaultOrderQuantity="5">
+      <EAN id="7680123456789" />
+      <supplierProductNumber EANsupplierId="54321678091432"
+        id="123.234-2" />
+    </productLabelOrderLine>
+  </orderLines>
+</customerOrder>
+    XML
+    @xml_doc = REXML::Document.new(@src)
+    @target_dir = File.expand_path('data/pharmacieplus_csv',
+      File.dirname(__FILE__))
+    clear_dir
+  end
+  def teardown
+    clear_dir
+  end
+  def clear_dir
+    if(File.exist?(@target_dir))
+      FileUtils.rm_r(@target_dir)
+    end
+  end
+  def test_pharmacieplus_csv
+    XmlConv::CONFIG.default_filename = "%s%s_%s.txt"
+    bdd = Conversion::SunStoreBdd.convert(@xml_doc)
+    csv_docs = Conversion::BddCsv.convert(bdd)
+    assert_instance_of(Array, csv_docs)
+    csv_doc = csv_docs.first
+    assert_match(/^test_.*\.txt/, csv_doc.filename)
+    result = csv_doc.to_s.split("\n")
+    dstr = Date.today.strftime("%d%m%Y")
+    expected = <<-EOS
+,test,#{dstr},,1336630,,,10,,123ABCDE9012345,
+,test,#{dstr},,,7680123456789,,5,,123ABCDE9012345,
+    EOS
+    expected.split("\n").each_with_index { |line, index|
+      assert_equal(line, result[index])
+    }
+  end
+end
+  end
+end

data/test/test_integration/xundart_csv.rb

@@ -0,0 +1,71 @@
+#!/usr/bin/env ruby
+# TestPharmaciePlusI2 -- xmlconv2 -- 21.08.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'xmlconv/util/transaction'
+require 'xmlconv/util/destination'
+require 'conversion/xundart_bdd'
+require 'conversion/bdd_csv'
+
+module XmlConv
+  module Integration
+class TestXmlI2 < Test::Unit::TestCase
+  def setup
+    @src = <<-XML
+<?xml version="1.0" encoding="iso-8859-1"?>
+<commande xmlns="http://www.xundart.ch" date="7/2/2009 5:29:52 PM" id="1234">
+<com-pharma ean="7601010273543">
+<livraison><last-name>Dr. med. Xxxxx Xxxxxx</last-name><address><street>Xxxxxxxxxxxxxxxxx 19</street><zip>9524</zip><city>Zuzwil</city></address></livraison>
+<article ean="7680568730217" pharmacode="3938385" qte_facture="19"><desc>Torasemid Sandoz eco Tabl 2.5 mg 20 Stk</desc></article>
+<article ean="7680569080175" pharmacode="3729807" qte_facture="2"><desc>Omeprazol Sandoz eco Filmtabl/Stechamp Filmtabl 20 mg 56 Stk</desc></article>
+<article ean="7680162790136" pharmacode="0384673" qte_facture="3"><desc>Calcium Sandoz Ampullen 90 mg 10% 5x10 ml Ampullen</desc></article></com-pharma>
+
+<com-pharma ean="7601010273963">
+<livraison><last-name>Dr. med. Xxxxxxxxx Xxxxxxx</last-name><address><street>Xxxxxxxxxxxxx 3</street><zip>9602</zip><city>Bazenheid</city></address></livraison>
+<article ean="7680560350208" pharmacode="3275944" qte_facture="3"><desc>Simcora Filmtabl 60 mg 100 Stk</desc></article></com-pharma>
+
+<com-pharma ean="7601000000000">
+<livraison><last-name> Max Muster</last-name><address><street>St. Jakob-Strasse 56a</street><zip>9000</zip><city>St. Gallen</city></address></livraison>
+<article ean="7680562030047" pharmacode="3296509" qte_facture="5"><desc>Amoxicillin Sandoz Disp Tabl 1000 mg 20 Tabl</desc></article>
+<article ean="7680162790136" pharmacode="0384673" qte_facture="1"><desc>Calcium Sandoz Ampullen 90 mg 10% 5x10 ml Ampullen</desc></article>
+<article ean="7680562030184" pharmacode="3401484" qte_facture="10"><desc>Amoxicillin Sandoz Disp Tabl 750 mg 20 Tabl</desc></article></com-pharma>
+</commande>
+    XML
+    @xml_doc = REXML::Document.new(@src)
+    @target_dir = File.expand_path('data/pharmacieplus_csv',
+      File.dirname(__FILE__))
+    clear_dir
+  end
+  def teardown
+    clear_dir
+  end
+  def clear_dir
+    if(File.exist?(@target_dir))
+      FileUtils.rm_r(@target_dir)
+    end
+  end
+  def test_pharmacieplus_csv
+    XmlConv::CONFIG.default_filename = "%s%s_%s.txt"
+    bdd = Conversion::PharmaciePlusBdd.convert(@xml_doc)
+    csv_docs = Conversion::BddCsv.convert(bdd)
+    assert_instance_of(Array, csv_docs)
+    csv_doc = csv_docs.first
+    assert_match(/^7601010273543_.*\.txt/, csv_doc.filename)
+    result = csv_doc.to_s.split("\n")
+    dstr = Date.today.strftime("%d%m%Y")
+    expected = <<-EOS
+,7601010273543,#{dstr},,3938385,7680568730217,,"",,1234,
+,7601010273543,#{dstr},,3729807,7680569080175,,"",,1234,
+,7601010273543,#{dstr},,0384673,7680162790136,,"",,1234,
+    EOS
+
+    expected.split("\n").each_with_index { |line, index|
+      assert_equal(line, result[index])
+    }
+  end
+end
+  end
+end

data/test/test_postprocess/bbmb.rb

@@ -0,0 +1,229 @@
+#!/usr/bin/env ruby
+# PostProcess::TestBbmb -- xmlconv2 -- 25.08.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'postprocess/bbmb'
+require 'flexmock'
+require 'conversion/pharmacieplus_bdd'
+
+module XmlConv
+  module PostProcess
+    class TestBbmb < Test::Unit::TestCase
+      def test_inject
+        src = <<-XML
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<commande id="1861" date="2006-08-16T09:32:35.303+02:00" xmlns="http://www.ofac.ch/XEDO">
+  <groupe>
+    <last-name>pharmacieplus Directe</last-name>
+    <first-name> </first-name>
+    <other-name>Messieurs Eric Bussat + Christian Rouvinez</other-name>
+    <address>
+      <street>les courbes 5</street>
+      <zip>1121</zip>
+      <city>Bremblens</city>
+    </address>
+    <telecom>
+      <phone number="021 811 48 88"/>
+      <fax number="021 811 48 89"/>
+    </telecom>
+    <online>
+      <email>secretariat@pharmacieplus.ch</email>
+    </online>
+  </groupe>
+  <fournisseur ean="7601001000681">
+    <last-name>GLOBOPHARM AG</last-name>
+    <first-name> </first-name>
+    <address>
+      <street>Seestrasse 200</street>
+      <zip>8700</zip>
+      <city>KUESNACHT</city>
+      <country>CH</country>
+    </address>
+  </fournisseur>
+  <com-global>
+    <article ean="7680543802083" pharmacode="2054106" qte-livraison="12" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 100 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="12"/>
+      </cond-com>
+    </article>
+    <article ean="7680543800386" pharmacode="2054081" qte-livraison="12" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 28 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="12"/>
+      </cond-com>
+    </article>
+    <article ean="7680543801949" pharmacode="2054098" qte-livraison="30" qte-facture="20">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 56 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="15"/>
+      </cond-com>
+    </article>
+    <article ean="7680543802403" pharmacode="2054158" qte-livraison="15" qte-facture="10">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 100 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="15"/>
+      </cond-com>
+    </article>
+    <article ean="7680543800898" pharmacode="2054129" qte-livraison="13" qte-facture="13">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 14 Stk</desc>
+      <cond-com rabais="10.0"/>
+    </article>
+    <article ean="7680543800973" pharmacode="2054135" qte-livraison="28" qte-facture="20">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 28 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="14"/>
+      </cond-com>
+    </article>
+    <article ean="7680543802328" pharmacode="2054141" qte-livraison="17" qte-facture="17">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 56 Stk</desc>
+      <cond-com rabais="15.0"/>
+    </article>
+    <article ean="7680543800706" pharmacode="2054112" qte-livraison="28" qte-facture="20">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 7 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="14"/>
+      </cond-com>
+    </article>
+    <article ean="7680548750532" pharmacode="2204899" qte-livraison="11" qte-facture="11">
+      <desc>ATACAND PLUS Tabl 16/12.5 mg 28 Stk</desc>
+      <cond-com rabais="5.0"/>
+    </article>
+    <article ean="7680548750617" pharmacode="2204907" qte-livraison="30" qte-facture="20">
+      <desc>ATACAND PLUS Tabl 16/12.5 mg 98 Stk</desc>
+      <cond-com>
+        <bonus facture="10" livre="15"/>
+      </cond-com>
+    </article>
+  </com-global>
+  <com-pharma ean="7601001368095">
+    <livraison>
+    <last-name>Pharmacie du Mandement</last-name>
+      <first-name> </first-name>
+      <other-name> Monsieur Fr�d�ric Recipient </other-name>
+      <address>
+        <street>3e adresse e-mail</street>
+        <zip>1242</zip>
+        <city>Satigny</city>
+      </address>
+    </livraison>
+    <article ean="7680543801949" pharmacode="2054098" qte-livraison="15" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 56 Stk</desc>
+    </article>
+    <article ean="7680543802403" pharmacode="2054158" qte-livraison="15" qte-facture="10">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 100 Stk</desc>
+    </article>
+    <article ean="7680543800898" pharmacode="2054129" qte-livraison="6" qte-facture="6">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 14 Stk</desc>
+    </article>
+    <article ean="7680543802328" pharmacode="2054141" qte-livraison="9" qte-facture="9">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 56 Stk</desc>
+    </article>
+    <article ean="7680543800706" pharmacode="2054112" qte-livraison="28" qte-facture="20">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 7 Stk</desc>
+    </article>
+    <article ean="7680548750532" pharmacode="2204899" qte-livraison="11" qte-facture="11">
+      <desc>ATACAND PLUS Tabl 16/12.5 mg 28 Stk</desc>
+    </article>
+    <article ean="7680548750617" pharmacode="2204907" qte-livraison="30" qte-facture="20">
+      <desc>ATACAND PLUS Tabl 16/12.5 mg 98 Stk</desc>
+    </article>
+  </com-pharma>
+  <com-pharma ean="7601001368491">
+    <livraison>
+      <last-name>Pharm. Ecole-de-M�decine</last-name>
+      <first-name> </first-name>
+      <other-name> Madame Fran�oise Recipient </other-name>
+      <address>
+        <street>3e adresse e-mail</street>
+        <zip>1205</zip>
+        <city>Gen�ve</city>
+      </address>
+    </livraison>
+    <article ean="7680543802083" pharmacode="2054106" qte-livraison="12" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 100 Stk</desc>
+    </article>
+    <article ean="7680543800386" pharmacode="2054081" qte-livraison="12" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 28 Stk</desc>
+    </article>
+    <article ean="7680543801949" pharmacode="2054098" qte-livraison="15" qte-facture="10">
+      <desc>ANTRA MUPS 10 Tabl 10 mg 56 Stk</desc>
+    </article>
+    <article ean="7680543800898" pharmacode="2054129" qte-livraison="7" qte-facture="7">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 14 Stk</desc>
+    </article>
+    <article ean="7680543800973" pharmacode="2054135" qte-livraison="28" qte-facture="20">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 28 Stk</desc>
+    </article>
+    <article ean="7680543802328" pharmacode="2054141" qte-livraison="8" qte-facture="8">
+      <desc>ANTRA MUPS 20 Tabl 20 mg 56 Stk</desc>
+    </article>
+  </com-pharma>
+</commande>
+        XML
+				xml_doc = REXML::Document.new(src)
+				bdd = Conversion::PharmaciePlusBdd.convert(xml_doc)
+        transaction = FlexMock.new
+        transaction.should_receive(:model).and_return { bdd }
+        bbmb = FlexMock.new
+        expected_orders = [
+          [
+            [{:article_ean13=>"7680543801949", :article_pcode=>"2054098"}, 15],
+            [{:article_ean13=>"7680543802403", :article_pcode=>"2054158"}, 15],
+            [{:article_ean13=>"7680543800898", :article_pcode=>"2054129"}, 6],
+            [{:article_ean13=>"7680543802328", :article_pcode=>"2054141"}, 9],
+            [{:article_ean13=>"7680543800706", :article_pcode=>"2054112"}, 28],
+            [{:article_ean13=>"7680548750532", :article_pcode=>"2204899"}, 11],
+            [{:article_ean13=>"7680548750617", :article_pcode=>"2204907"}, 30],
+          ],
+          [
+            [{:article_ean13=>"7680543802083", :article_pcode=>"2054106"}, 12],
+            [{:article_ean13=>"7680543800386", :article_pcode=>"2054081"}, 12],
+            [{:article_ean13=>"7680543801949", :article_pcode=>"2054098"}, 15],
+            [{:article_ean13=>"7680543800898", :article_pcode=>"2054129"}, 7],
+            [{:article_ean13=>"7680543800973", :article_pcode=>"2054135"}, 28],
+            [{:article_ean13=>"7680543802328", :article_pcode=>"2054141"}, 8],
+          ],
+        ]
+        expected_infos = [
+          {
+            :order_reference  => "1861", 
+            :order_comment    => <<-EOS.strip
+7601001368095
+Monsieur Fr�d�ric Recipient
+Pharmacie du Mandement
+3e adresse e-mail
+1242 Satigny
+            EOS
+          },
+          {
+            :order_reference  => "1861", 
+            :order_comment    => <<-EOS.strip
+7601001368491
+Madame Fran�oise Recipient
+Pharm. Ecole-de-M�decine
+3e adresse e-mail
+1205 Gen�ve
+            EOS
+          },
+        ]
+        bbmb.should_receive(:inject_order).times(2)\
+          .and_return { |short, id, order, info|
+          assert_equal('gag', short)
+          assert_equal('221200', id)
+          assert_equal(expected_orders.shift, order)
+          assert_equal(expected_infos.shift, info)
+          raise "some error"
+        }
+        svc = DRb.start_service('druby://localhost:0', bbmb)
+        assert_raises(RuntimeError) {
+          Bbmb.inject(svc.uri, 'gag', '221200', transaction)
+        }
+      ensure
+        svc.stop_service
+      end 
+    end
+  end
+end