require "pp"
require "spec_helper"
require "rexml/document"
require_relative "../lib/oddb2xml/calc"

# after each name you find the column of swissmedic_package.xlsx file
TestExample = Struct.new("TestExample", :test_description, :iksnr_a, :seqnr_b, :pack_K, :name_c, :package_size_L, :einheit_m, :active_substance_0, :composition_P,
  :values_to_compare)
class TestExample
  def url
    "http://ch.oddb.org/de/gcc/drug/reg/#{sprintf("%05d" % iksnr_a)}/seq/#{sprintf("%02d" % seqnr_b)}/pack/#{sprintf("%03d" % pack_K)}"
  end
end
Tst_nutriflex = TestExample.new("Nutriflex Lipid plus ohne Elektrolyte, Infusionsemulsion 1250ml",
  56089, 1, 1, "Nutriflex Lipid plus, Infusionsemulsion, 1250ml",
  "5 x 1250", "ml",
  "glucosum anhydricum, isoleucinum, leucinum, lysinum anhydricum, methioninum, phenylalaninum, threoninum, tryptophanum, valinum, argininum, histidinum, alaninum, acidum asparticum, acidum glutamicum, glycinum, prolinum, serinum, aminoacida, carbohydrata, materia crassa, sojae oleum, triglycerida saturata media",
  "I) Glucoselösung: glucosum anhydricum 150 g ut glucosum monohydricum, acidum citricum anhydricum, aqua ad iniectabilia q.s. ad solutionem pro 500 ml.
II) Fettemulsion: sojae oleum 25 g, triglycerida saturata media 25 g, lecithinum ex ovo, glycerolum, natrii oleas, aqua q.s. ad emulsionem.
III) Aminosäurenlösung: isoleucinum 2.82 g, leucinum 3.76 g, lysinum anhydricum 2.73 g ut lysinum monohydricum, methioninum 2.35 g, phenylalaninum 4.21 g, threoninum 2.18 g, tryptophanum 0.68 g, valinum 3.12 g, argininum 3.24 g, histidinum 1.50 g, alaninum 5.82 g, acidum asparticum 1.80 g, acidum glutamicum 4.21 g, glycinum 1.98 g, prolinum 4.08 g, serinum 3.60 g, acidum citricum anhydricum, aqua ad iniectabilia q.s. ad solutionem pro 500 ml.
.
I) et II) et III) corresp.: aminoacida 48 g/l, carbohydrata 150 g/l, materia crassa 50 g/l, in emulsione recenter mixta 1250 ml.
Corresp. 5300 kJ.",
  { # :selling_units => 5,
    # :measure => 'Infusionsemulsion',
    #:count => 25, :multi => 1
  })

describe Oddb2xml::Calc do
  before(:all) do
    VCR.eject_cassette
    VCR.insert_cassette("oddb2xml")
  end
  after(:all) { VCR.eject_cassette }

  after(:each) do
    FileUtils.rm(Dir.glob(File.join(Oddb2xml::WORK_DIR, "*.*")))
    FileUtils.rm(Dir.glob(File.join(Oddb2xml::WORK_DIR, "downloads", "*")))
  end
  before(:each) do
    FileUtils.rm(Dir.glob(File.join(Oddb2xml::WORK_DIR, "*.xml")))
    FileUtils.rm(Dir.glob(File.join(Oddb2xml::WORK_DIR, "*.csv")))
    # setup_epha_atc_csv_mock
  end

  line_1 = "I) Glucoselösung: glucosum anhydricum 150 g ut glucosum monohydricum, natrii dihydrogenophosphas dihydricus 2.34 g, zinci acetas dihydricus 6.58 mg, aqua ad iniectabilia q.s. ad solutionem pro 500 ml."
  line_2 = "II) Fettemulsion: sojae oleum 25 g, triglycerida saturata media 25 g, lecithinum ex ovo 3 g, glycerolum, natrii oleas, aqua q.s. ad emulsionem pro 250 ml."
  # line_3 = "III) Aminosäurenlösung: isoleucinum 2.34 g, leucinum 3.13 g, lysinum anhydricum 2.26 g ut lysini hydrochloridum, methioninum 1.96 g, aqua ad iniectabilia q.s. ad solutionem pro 400 ml."
  # line_4 = "I) et II) et III) corresp.: aminoacida 32 g/l, acetas 32 mmol/l, acidum citricum monohydricum, in emulsione recenter mixta 1250 ml."
  # line_5 = "Corresp. 4000 kJ."

  tst_grains_de_valse = TestExample.new("Grains de Vals",
    55491, 1, 1, "Grains de Vals, comprimés ",
    "20", "Tablette(n)",
    "sennae folii extractum methanolicum siccum",
    "sennae folii extractum methanolicum siccum 78-104 mg corresp. sennosidum B 12.5 mg, DER: 18:1, excipiens pro compresso.",
    {selling_units: 20,
     measure: "Tablette(n)"})
  tst_cardio_pumal = TestExample.new("Cardio-Pulmo-Rénal Sérocytol",
    274, 1, 1, "Cardio-Pulmo-Rénal Sérocytol, suppositoire",
    "3", "Suppositorien",
    "globulina equina (immunisé avec coeur, tissu pulmonaire, reins de porcins)",
    "globulina equina (immunisé avec coeur, tissu pulmonaire, reins de porcins) 8 mg, propylenglycolum, conserv.: E 216, E 218, excipiens pro suppositorio.",
    {selling_units: 3,
     measure: "Suppositorien"})

  tst_fluorglukose = TestExample.new("Fluorglukose",
    51908, 2, 16, "2-Fluorglukose (18-F), Injektionslösung",
    "0,1 - 80", "GBq",
    "fludeoxyglucosum(18-F) zum Kalibrierungszeitpunkt",
    "fludeoxyglucosum(18-F) zum Kalibrierungszeitpunkt 0.1-8 GBq, dinatrii phosphas dihydricus, natrii dihydrogenophosphas dihydricus, natrii chloridum, antiox.: natrii thiosulfas 1.3-1.9 mg, aqua ad iniectabilia q.s. ad solutionem pro 1 ml.",
    {selling_units: 1,
     measure: "GBq"})
  tst_bica_nova = TestExample.new("bicaNova",
    58277, 1, 1, "bicaNova 1,5 % Glucose, Peritonealdialyselösung",
    "1500 ml", "",
    "natrii chloridum, natrii hydrogenocarbonas, calcii chloridum dihydricum, magnesii chloridum hexahydricum, glucosum anhydricum, natrium, calcium, magnesium, chloridum, hydrogenocarbonas, glucosum",
    "I) et II) corresp.: natrii chloridum 5.5 g, natrii hydrogenocarbonas 3.36 g, calcii chloridum dihydricum 184 mg, magnesii chloridum hexahydricum 102 mg, glucosum anhydricum 15 g ut glucosum monohydricum, aqua ad iniectabilia q.s. ad solutionem pro 1000 ml.",
    {selling_units: 1500,
     measure: "ml"})
  tst_kamillin = TestExample.new("Kamillin Medipharm, Bad",
    43454, 1, 101, "Kamillin Medipharm, Bad",
    "25 x 40", "ml",
    "matricariae extractum isopropanolicum liquidum",
    "haemagglutininum influenzae A (H1N1) (Virus-Stamm A/California/7/2009 (H1N1)-like: reassortant virus NYMC X-179A) 15 µg, haemagglutininum influenzae A (H3N2) (Virus-Stamm A/Texas/50/2012 (H3N2)-like: reassortant virus NYMC X-223A) 15 µg, haemagglutininum influenzae B (Virus-Stamm B/Massachusetts/2/2012-like: B/Massachusetts/2/2012) 15 µg, natrii chloridum, kalii chloridum, dinatrii phosphas dihydricus, kalii dihydrogenophosphas, residui: formaldehydum max. 100 µg, octoxinolum-9 max. 500 µg, ovalbuminum max. 0.05 µg, saccharum nihil, neomycinum nihil, aqua ad iniectabilia q.s. ad suspensionem pro 0.5 ml.",
    {selling_units: 25,
     measure: "ml"})
  tst_infloran = TestExample.new("Test Infloran, capsule",
    679, 2, 12, "Infloran, capsule",
    "2x10", "Kapsel(n)",
    "lactobacillus acidophilus cryodesiccatus, bifidobacterium infantis",
    "lactobacillus acidophilus cryodesiccatus min. 10^9 CFU, bifidobacterium infantis min. 10^9 CFU, color.: E 127, E 132, E 104, excipiens pro capsula.",
    {selling_units: 20,
     measure: "Kapsel(n)"})
  tst_mutagrip = TestExample.new("Test Mutagrip (Fertigspritzen)",
    373, 23, 10, "Mutagrip, Suspension zur Injektion",
    "10 x 0.5 ml", "Fertigspritze(n)",
    "ropivacainum",
    "ropivacaini hydrochloridum 2 mg, natrii chloridum, aqua ad iniectabilia q.s. ad solutionem pro 1 ml.",
    {selling_units: 10,
     measure: "Fertigspritze(n)"})
  tst_diamox = TestExample.new("Diamox. Tabletten",
    21191, 1, 19, "Diamox, comprimés",
    "1 x 25", "Tablette(n)",
    "acetazolamidum",
    "acetazolamidum 250 mg, excipiens pro compresso.",
    {selling_units: 25,
     measure: "Tablette(n)"})

  tst_naropin = TestExample.new("Das ist eine Injektionslösung von einer Packung mit 5 x 100 ml",
    54015, 0o1, 100, "Naropin 0,2 %, Infusionslösung / Injektionslösung",
    "1 x 5 x 100", "ml",
    "ropivacainum",
    "ropivacaini hydrochloridum 2 mg, natrii chloridum, aqua ad iniectabilia q.s. ad solutionem pro 1 ml.",
    { # :selling_units => 5, TODO:
      # :measure => 'ml',
      #:count => 5, :multi => 1
    })

  context "should parse Solvens:" do
    text = "Solvens: conserv.: alcohol benzylicus 18 mg, aqua ad iniectabilia q.s. ad solutionem pro 2 ml."
    info = Oddb2xml::Calc.new("Solu-Cortef 100 mg, Injektions-/Infusionspräparat", nil, nil,
      "hydrocortisonum",
      text)
    specify { expect(info.compositions.first.substances.first.name).to eq "Alcohol Benzylicus" }
    specify { expect(info.compositions.first.substances.size).to eq 1 }
  end

  context "adapt ATC for epha 16105 C05BA" do
    specify { expect(Oddb2xml.add_epha_changes_for_ATC(16105, "C05BA")).to eq "C05BA01" }
  end

  context "adapt ATC for epha 161 C05BA" do
    specify { expect(Oddb2xml.add_epha_changes_for_ATC(161, "C05BA")).to eq "C05BA" }
  end

  context "handle E substances correctly" do
    e_200_examples =
      {
        "Comprimé pelliculé: ondansetronum 4 mg ut ondansetroni hydrochloridum dihydricum, E 200, arom.: vanillinum, color.: E 104, excipiens pro compresso obducto." =>
          "conserv.",
        "ginkgonis extractum siccum raffinatum et quantificatum 120 mg corresp. flavonglycosida ginkgo 26.4-32.4 mg et terpenlactona ginkgo 6.48-7.92 mg, DER: 35-67:1, antiox.: E 200, excipiens pro compresso obducto." =>
      "antiox.",
        "lamotriginum 100 mg, aromatica, antiox.: E 310, E 320, E 321, conserv.: E 200, excipiens pro compresso." =>
      "conserv."
      }
    e_200_examples.each { |txt, e_200_expected_attribut|
      context txt.split(" ").first do
        info = ParseUtil.parse_compositions(txt)
        e_200 = info.first.substances.find { |x| x.name.match(/E 200/i) }
        specify { expect(info.first.excipiens.more_info).to eq nil }
        specify { expect(e_200.class).to eq ParseSubstance }
        specify { expect(e_200.more_info).to eq e_200_expected_attribut }
      end
    }
  end

  context "should return correct value for liquid" do
    pkg_size_l = "1 x 5 x 200"
    einheit_m = "ml"
    name_c = "Naropin 0,2 %, Infusionslösung / Injektionslösung"
    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 5 }
    specify { expect(result.measure).to eq "ml" }
  end

  context "should return correct value for W-Tropfen" do
    pkg_size_l = "10"
    einheit_m = "ml"
    name_c = "W-Tropfen"
    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 10 }
    specify { expect(result.measure).to eq "ml" }
  end

  context "should return correct value for Diamox, comprimés" do
    pkg_size_l = "1 x 25"
    einheit_m = "Tablette(n)"
    name_c = "Diamox, comprimés"

    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 25 }
    specify { expect(result.measure).to eq "Tablette(n)" }

    res = Oddb2xml::Calc.report_conversion
    specify { expect(res.class).to eq Array }
    specify { expect(res.first.class).to eq String }
  end

  context "should return correct value for Perindopril" do
    pkg_size_l = "90"
    einheit_m = "Tablette(n)"
    name_c = "comprimés pelliculés"

    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 90 }
    specify { expect(result.measure).to eq einheit_m }

    res = Oddb2xml::Calc.report_conversion
    specify { expect(res.class).to eq Array }
    specify { expect(res.first.class).to eq String }
  end

  context "should find galenic_group for Kaugummi" do
    result = Oddb2xml::Calc.get_galenic_group("Kaugummi")
    specify { expect(result.class).to eq Oddb2xml::GalenicGroup }
    specify { expect(result.description).to eq "Kaugummi" }
  end

  context "should find galenic_form for Infusionslösung / Injektionslösung" do
    value = "Infusionslösung / Injektionslösung"
    result = Oddb2xml::Calc.get_galenic_form(value)
    specify { expect(result.class).to eq Oddb2xml::GalenicForm }
    specify { expect(result.description).to eq "Infusionslösung/Injektionslösung" }
  end

  context "should return galenic_group unknown for galenic_group Dummy" do
    result = Oddb2xml::Calc.get_galenic_group("Dummy")
    specify { expect(result.class).to eq Oddb2xml::GalenicGroup }
    specify { expect(result.oid).to eq 1 }
    specify { expect(result.descriptions["de"]).to eq "unbekannt" }
    specify { expect(result.description).to eq "unbekannt" }
  end

  [tst_fluorglukose,
    tst_kamillin,
    tst_naropin,
    tst_diamox,
    tst_mutagrip].each { |tst|
    context "verify #{tst.iksnr_a} #{tst.name_c}: #{tst.url}" do
      # info must be here, as it is used via eval!!
      info = Oddb2xml::Calc.new(tst.name_c, tst.package_size_L, tst.einheit_m, tst.active_substance_0, tst.composition_P)
      tst.values_to_compare.each do |key, value|
        context key do
          cmd = "expect(info.#{key}.to_s).to eq '#{value}'"
          specify { eval(cmd) }
        end
      end
    end
  }

  context "find correct result for Injektionslösung" do
    info = Oddb2xml::Calc.new(tst_naropin.name_c, tst_naropin.package_size_L, tst_naropin.einheit_m, tst_naropin.active_substance_0, tst_naropin.composition_P)
    specify { expect(tst_naropin.url).to eq "http://ch.oddb.org/de/gcc/drug/reg/54015/seq/01/pack/100" }
    specify { expect(info.galenic_form.description).to eq "Infusionslösung/Injektionslösung" }
    specify { expect(info.galenic_group.description).to eq "Injektion/Infusion" }
    specify { expect(info.pkg_size).to eq "1 x 5 x 100" }
    skip { expect(info.measure).to eq "100 ml" }
  end

  context "find correct result for Inflora, capsule" do
    info = Oddb2xml::Calc.new(tst_infloran.name_c, tst_infloran.package_size_L, tst_infloran.einheit_m, tst_infloran.active_substance_0, tst_infloran.composition_P)
    specify { expect(tst_infloran.url).to eq "http://ch.oddb.org/de/gcc/drug/reg/00679/seq/02/pack/012" }
    specify { expect(info.galenic_form.description).to eq "Kapseln" }
    specify { expect(info.galenic_group.description).to eq "Tabletten" }
    specify { expect(info.pkg_size).to eq "2x10" }
    specify { expect(info.selling_units).to eq 20 }
    specify { expect(info.measure).to eq "Kapsel(n)" }
  end

  context "find correct result for Kamillin" do
    info = Oddb2xml::Calc.new(tst_kamillin.name_c, tst_kamillin.package_size_L, tst_kamillin.einheit_m, tst_kamillin.active_substance_0, tst_kamillin.composition_P)
    specify { expect(info.selling_units).to eq 25 }
  end

  context "find correct result for bicaNova" do
    info = Oddb2xml::Calc.new(tst_bica_nova.name_c, tst_bica_nova.package_size_L, tst_bica_nova.einheit_m, tst_bica_nova.active_substance_0, tst_bica_nova.composition_P)
    specify { expect(info.selling_units).to eq 1500 }
    specify { expect(info.measure).to eq "ml" }
  end

  context "should return correct value for mutagrip" do
    pkg_size_l = "10 x 0.5 ml"
    einheit_m = "Fertigspritze(n)"
    name_c = "Suspension zur Injektion"

    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 10 }
    specify { expect(result.measure).to eq einheit_m }

    res = Oddb2xml::Calc.report_conversion
    specify { expect(res.class).to eq Array }
    specify { expect(res.first.class).to eq String }
  end

  context "should return correct value for 5 Ampullen a 10 mk" do
    pkg_size_l = "5 Ampullen a 10 ml"
    einheit_m = "Ampulle"
    name_c = "Suspension zur Injektion"

    result = Oddb2xml::Calc.new(name_c, pkg_size_l, einheit_m, nil)
    specify { expect(result.selling_units).to eq 5 }
    specify { expect(result.measure).to eq einheit_m }

    res = Oddb2xml::Calc.report_conversion
    specify { expect(res.class).to eq Array }
    specify { expect(res.first.class).to eq String }
  end

  context "find correct result for Nutriflex" do
    info = Oddb2xml::Calc.new(Tst_nutriflex.name_c, Tst_nutriflex.package_size_L, Tst_nutriflex.einheit_m, Tst_nutriflex.active_substance_0, Tst_nutriflex.composition_P)
    specify { expect(info.selling_units).to eq 5 }
    specify { expect(info.galenic_form.description).to eq "Infusionsemulsion" }
  end

  context "should handle CFU" do
    result = Oddb2xml::Calc.new(nil, nil, nil, "lactobacillus acidophilus cryodesiccatus, bifidobacterium infantis",
      "lactobacillus acidophilus cryodesiccatus min. 10^9 CFU, bifidobacterium infantis min. 10^9 CFU, color.: E 127, E 132, E 104, excipiens pro capsula.")
    specify { expect(result.compositions.first.substances.first.name).to eq "Lactobacillus Acidophilus Cryodesiccatus" }
    specify { expect(result.compositions.first.substances.first.dose.to_s).to eq "10^9 CFU" }
  end

  context "find correct result compositions" do
    result = Oddb2xml::Calc.new(nil, nil, nil, "rutosidum trihydricum, aescinum", "rutosidum trihydricum 20 mg, aescinum 25 mg, aromatica, excipiens pro compresso.")
    specify { expect(result.compositions.first.substances.first.name).to eq "Rutosidum Trihydricum" }
    specify { expect(result.compositions.first.substances.first.qty.to_f).to eq 20 }
    specify { expect(result.compositions.first.substances.first.unit).to eq "mg" }
    specify { expect(result.compositions.first.substances[1].name).to eq "Aescinum" }
    specify { expect(result.compositions.first.substances[1].qty.to_f).to eq 25 }
    specify { expect(result.compositions.first.substances[1].unit).to eq "mg" }
  end

  context "find correct result for Inflora, capsule" do
    info = Oddb2xml::Calc.new(tst_infloran.name_c, tst_infloran.package_size_L, tst_infloran.einheit_m, tst_infloran.active_substance_0, tst_infloran.composition_P)
    # specify { expect(tst_infloran.url).to eq 'http://ch.oddb.org/de/gcc/drug/reg/00679/seq/02/pack/012' }
    specify { expect(info.galenic_form.oid).to eq 24 }
    specify { expect(info.galenic_form.description).to eq "Kapseln" }
    specify { expect(info.galenic_group.description).to eq "Tabletten" }
    specify { expect(info.pkg_size).to eq "2x10" }
    specify { expect(info.selling_units).to eq 20 }
    specify { expect(info.measure).to eq "Kapsel(n)" }
    bifidobacterium = info.compositions.first.substances.find { |x| x.name.match(/Bifidobacterium/i) }
    specify { expect(bifidobacterium).not_to eq nil }
    if bifidobacterium
      specify { expect(bifidobacterium.name).to eq "Bifidobacterium Infantis" }
      specify { expect(bifidobacterium.dose.to_s).to eq "10^9 CFU" }
      specify { expect(bifidobacterium.unit).to eq "CFU" }
    end
    e_127 = info.compositions.first.substances.find { |x| x.name.match(/E 127/i) }
    specify { expect(e_127).not_to eq nil }
    if e_127
      specify { expect(e_127.name).to eq "E 127" }
      specify { expect(e_127.unit).to eq nil }
    end
  end

  context "find correct result for 274 Cardio-Pulmo-Rénal Sérocytol, suppositoire" do
    info = Oddb2xml::Calc.new(tst_cardio_pumal.name_c, tst_cardio_pumal.package_size_L, tst_cardio_pumal.einheit_m, tst_cardio_pumal.active_substance_0, tst_cardio_pumal.composition_P)
    specify { expect(info.galenic_form.description).to eq "suppositoire" }
    specify { expect(info.galenic_group.description).to eq "unbekannt" }
    specify { expect(info.pkg_size).to eq "3" }
    specify { expect(info.selling_units).to eq 3 }
    specify { expect(info.column_c).to eq tst_cardio_pumal.name_c }
    specify { expect(info.name).to eq "Cardio-Pulmo-Rénal Sérocytol" }
    specify { expect(info.measure).to eq "Suppositorien" }
    globulina = info.compositions.first.substances.find { |x| x.name.match(/porcins|globulina/i) }
    specify { expect(globulina).not_to eq nil }
    if globulina
      specify { expect(globulina.name.downcase).to eq "Globulina Equina (immunisé Avec Coeur, Tissu Pulmonaire, Reins De Porcins)".downcase }
      specify { expect(globulina.qty.to_f).to eq 8.0 }
      specify { expect(globulina.unit).to eq "mg" }
    end
    e_216 = info.compositions.first.substances.find { |x| x.name.match(/E 216/i) }
    specify { expect(e_216).not_to eq nil }
    if e_216
      specify { expect(e_216.name).to eq "E 216" }
      specify { expect(e_216.unit).to eq nil }
      specify { expect(e_216.more_info).to eq "conserv." }
    end
    e_218 = info.compositions.first.substances.find { |x| x.name.match(/E 218/i) }
    specify { expect(e_218).not_to eq nil }
    specify { expect(e_218).not_to eq nil }
    specify { expect(e_218.more_info).to eq "conserv." }
  end

  context "find correct result compositions for 00613 Pentavac" do
    line_1 = "I) DTPa-IPV-Komponente (Suspension): toxoidum diphtheriae 30 U.I., toxoidum tetani 40 U.I., toxoidum pertussis 25 µg et haemagglutininum filamentosum 25 µg, virus poliomyelitis typus 1 inactivatum (D-Antigen) 40 U., virus poliomyelitis typus 2 inactivatum (D-Antigen) 8 U., virus poliomyelitis typus 3 inactivatum (D-Antigen) 32 U., aluminium ut aluminii hydroxidum hydricum ad adsorptionem, formaldehydum 10 µg, conserv.: phenoxyethanolum 2.5 µl, residui: neomycinum, streptomycinum, polymyxini B sulfas, medium199, aqua q.s. ad suspensionem pro 0.5 ml."
    line_2 = "II) Hib-Komponente (Lyophilisat): haemophilus influenzae Typ B polysaccharida T-conjugatum 10 µg, trometamolum, saccharum, pro praeparatione."
    txt = "#{line_1}\n#{line_2}"
    info = ParseUtil.parse_compositions(txt)
    specify { expect(info.first.label).to eq "I" }
    specify { expect(info.size).to eq 2 }
    specify { expect(info.first.substances.size).to eq 14 }
    toxoidum = info.first.substances.find { |x| x.name.match(/Toxoidum Diphtheriae/i) }
    specify { expect(toxoidum.class).to eq ParseSubstance }
    if toxoidum
      specify { expect(toxoidum.name).to eq "Toxoidum Diphtheriae" }
      specify { expect(toxoidum.qty.to_f).to eq 30.0 }
      specify { expect(toxoidum.unit).to eq "U.I./0.5 ml" }
    end
  end

  context "find correct result compositions for fluticasoni with chemical_dose" do
    info = ParseUtil.parse_compositions("fluticasoni-17 propionas 100 µg, lactosum monohydricum q.s. ad pulverem pro 25 mg.")
    specify { expect(info.size).to eq 1 }
    specify { expect(info.first.substances.size).to eq 2 }
    fluticasoni = info.first.substances.find { |x| x.name.match(/Fluticasoni/i) }
    specify { expect(fluticasoni.name).to eq "Fluticasoni-17 Propionas" }
    specify { expect(fluticasoni.qty.to_f).to eq 100.0 }
    specify { expect(fluticasoni.unit).to eq "µg/25 mg" }
    specify { expect(fluticasoni.dose.to_s).to eq "100 µg/25 mg" }
    lactosum = info.first.substances.find { |x| x.name.match(/Lactosum/i) }
    specify { expect(lactosum.name).to eq "Lactosum Monohydricum" }
    specify { expect(lactosum.dose).to eq nil }
  end

  context "find correct result compositions for stuff with percents" do
    txt = "calcium carbonicum hahnemanni C7 5 %, chamomilla recutita D5 22.5 %, magnesii hydrogenophosphas trihydricus C5 50 %, passiflora incarnata D5 22.5 %, xylitolum, excipiens ad globulos."
    info = ParseUtil.parse_compositions(txt)
    specify { expect(info.size).to eq 1 }
    specify { expect(info.first.substances.size).to eq 5 }
    recutita = info.first.substances.find { |x| x.name.match(/recutita/i) }
    specify { expect(recutita.name).to eq "Chamomilla Recutita D5" }
    specify { expect(recutita.qty.to_f).to eq 22.5 }
    specify { expect(recutita.unit).to eq "%" }
  end

  context "find correct result compositions for procainum with chemical_dose" do
    txt = "procainum 10 mg ut procaini hydrochloridum, phenazonum 50 mg, Antiox.: E 320, glycerolum q.s. ad solutionem pro 1 g."
    info = ParseUtil.parse_compositions(txt)
    specify { expect(info.size).to eq 1 }
    specify { expect(info.first.substances.size).to eq 4 }
    procainum = info.first.substances.find { |x| x.name.match(/procain/i) }
    specify { expect(procainum.name).to eq "Procainum" }
    specify { expect(procainum.qty.to_f).to eq 10.0 }
    specify { expect(procainum.unit).to eq "mg/g" }
  end

  context "find correct result compositions for poloxamerum" do
    line_1 = "I): albuminum humanum colloidale 0.5 mg, stanni(II) chloridum dihydricum 0.2 mg, glucosum anhydricum, dinatrii phosphas monohydricus, natrii fytas (9:1), poloxamerum 238, q.s. ad pulverem pro vitro."
    line_2 = "II): pro usu: I) recenter radioactivatum 99m-technetio ut natrii pertechnetas."
    text = "#{line_1}\n#{line_2}"
    info = Oddb2xml::Calc.new("Nanocoll, Markierungsbesteck", nil, nil,
      "albuminum humanum colloidale, stanni(II) chloridum dihydricum",
      text)
    specify { expect(info.compositions.size).to eq 2 }
    specify { expect(info.compositions.first.substances.size).to eq 6 }
    poloxamerum = info.compositions.first.substances.find { |x| x.name.match(/poloxamerum/i) }
    specify { expect(poloxamerum.name).to eq "Poloxamerum 238" }
    specify { expect(poloxamerum.qty).to eq nil }
    specify { expect(poloxamerum.unit).to eq nil }
  end

  context "find correct result for 61676 Phostal 3-Bäume A): " do
    text = "A): pollinis allergeni extractum 0.01 U.: betula pendula Roth 25 % et alnus glutinosa 25 % et corylus avellana 25 % et fraxinus excelsior 25 %, natrii chloridum, glycerolum, tricalcii phosphas, conserv.: phenolum 4.0 mg, aqua q.s. ad suspensionem pro 1 ml"
    info = Oddb2xml::Calc.new("Phostal 3-Bäume", nil, nil,
      "pollinis allergeni extractum",
      text)
    specify { expect(info.compositions.size).to eq 1 }
    specify { expect(info.compositions.first.label).to eq "A" }
  end

  context "find correct result for 47837 Ecodurex" do
    text = "amiloridi hydrochloridum dihydricum 5.67 mg corresp. amiloridi hydrochloridum anhydricum 5 mg, hydrochlorothiazidum 50 mg, excipiens pro compresso."
    info = Oddb2xml::Calc.new("Ecodurex", nil, nil,
      "amiloridi hydrochloridum anhydricum, hydrochlorothiazidum",
      text)
    specify { expect(info.compositions.size).to eq 1 }
    specify { expect(info.compositions.first.label).to eq nil }
    substance1 = info.compositions.first.substances.find { |x| x.name.match(/hydrochlorothiazidum/i) }
    specify { expect(substance1.name).to eq "Hydrochlorothiazidum" }
    substance3 = info.compositions.first.substances.find { |x| x.name.match(/amiloridi hydrochloridum/i) }
    specify { expect(substance3.class).to eq ParseSubstance }
    if substance3
      specify { expect(substance3.name).to eq "Amiloridi Hydrochloridum Dihydricum" }
      specify { expect(substance3.chemical_substance.name).to eq "Amiloridi Hydrochloridum Anhydricum" }
      specify { expect(substance3.qty.to_f).to eq 5.67 }
      specify { expect(substance3.unit).to eq "mg" }
      specify { expect(substance3.chemical_substance.qty.to_f).to eq 5 }
      specify { expect(substance3.chemical_substance.unit).to eq "mg" }
      specify { expect(substance3.is_active_agent).to eq true }
    end
  end

  context "find correct result for 45079 Dr. Reckeweg R 51 Thyreosan, gouttes homéopathiques" do
    text = "atropa belladonna D30, iodum D30, lapis albus D12, lycopus virginicus D12, natrii chloridum D30 ana partes 0.1 ml, excipiens ad solutionem pro 1 ml, corresp. ethanolum 35 % V/V."
    info = Oddb2xml::Calc.new("Dr. Reckeweg R 51 Thyreosan, gouttes homéopathiques", nil, nil,
      "atropa belladonna D30, iodum D30, lapis albus D12, lycopus virginicus D12, natrii chloridum D30",
      text)
    specify { expect(info.compositions.size).to eq 1 }
    specify { expect(info.compositions.first.label).to eq nil }
    substance1 = info.compositions.first.substances.find { |x| x.name.match(/atropa belladonna/i) }
    specify { expect(substance1.name).to eq "Atropa Belladonna D30" }
    substance2 = info.compositions.first.substances.find { |x| x.name.match(/lycopus virginicus/i) }
    specify { expect(substance2.class).to eq ParseSubstance }
    substance3 = info.compositions.first.substances.find { |x| x.name.match(/lapis albus/i) }
    specify { expect(substance3.class).to eq ParseSubstance }
    if substance3
      specify { expect(substance3.name).to eq "Lapis Albus D12" }
    end
  end

  context "find correct result for 00417 Tollwut Impfstoff Mérieu" do
    text = "Praeparatio cryodesiccata: virus rabiei inactivatum (Stamm: Wistar Rabies PM/WI 38-1503-3M) min. 2.5 U.I., albuminum humanum, neomycini sulfas, residui: phenolsulfonphthaleinum.
Solvens: aqua ad iniectabilia q.s. ad suspensionem pro 1 ml."
    info = Oddb2xml::Calc.new("Tollwut Impfstoff Mérieu", nil, nil,
      "virus rabiei inactivatum (Stamm: Wistar Rabies PM/WI 38-1503-3M) ",
      text)
    specify { expect(info.compositions.size).to eq 2 }
    specify { expect(info.compositions.first.label).to eq "Praeparatio cryodesiccata:" }
    substance1 = info.compositions.first.substances.find { |x| x.name.match(/virus rabiei inactivatu/i) }
    specify { expect(expect(substance1)).not_to be nil }
    if substance1
      specify { expect(substance1.name).to eq "Virus Rabiei Inactivatum (stamm: Wistar Rabies Pm/wi 38-1503-3m)" }
    end
    substance2 = info.compositions.first.substances.find { |x| x.name.match(/albuminum humanu/i) }
    if substance2
      specify { expect(substance2.name).to eq "Albuminum Humanum" }
    end
    specify { expect(substance2.class).to eq ParseSubstance }
    substance3 = info.compositions.first.substances.find { |x| x.name.match(/neomycini sulfas/i) }
    specify { expect(substance3.class).to eq ParseSubstance }
    if substance3
      specify { expect(substance3.name).to eq "Neomycini Sulfas" }
    end
  end

  context "find correct result compositions for #{tst_grains_de_valse.composition_P} with chemical_dose" do
    info = Oddb2xml::Calc.new(tst_grains_de_valse.name_c, tst_grains_de_valse.package_size_L, tst_grains_de_valse.einheit_m, tst_grains_de_valse.active_substance_0, tst_grains_de_valse.composition_P)
    sennosidum = info.compositions.first.substances.find { |x| x.name.match(/Senn/i) }
    specify { expect(sennosidum).not_to eq nil }
    if sennosidum
      specify { expect(sennosidum.name).to eq "Sennae Folii Extractum Methanolicum Siccum" }
      specify { expect(sennosidum.dose.to_s).to eq "78-104 mg" }
      specify { expect(sennosidum.qty.to_f).to eq 78.0 }
      specify { expect(sennosidum.unit).to eq "mg" }
      specify { expect(sennosidum.chemical_substance.name).to eq "Sennosidum B" }
      specify { expect(sennosidum.chemical_substance.qty.to_f).to eq 12.5 }
      specify { expect(sennosidum.chemical_substance.unit).to eq "mg" }
    end
  end

  context "find correct result compositions for 56829 sequence 3 Iscador M 0,01 mg" do
    comment_from_email_good_7_juni_2011 = %(
    Ausgedeutscht heisst das:
Der Extrakt ist ein Auszug aus der Frischpflanze im Verhältnis 1:5, also ‚extractum 0.05 mg’ entspricht 0.01 mg frischem Mistelkraut.
Es handelt sich um EINEN Wirkstoff, also „in Kombination“ ist falsch formuliert.
Die HILFSSTOFFE sind Aqua ad iniectabilia und Natrii chloridum.
)
    puts comment_from_email_good_7_juni_2011 if $VERBOSE
    text = "extractum aquosum liquidum fermentatum 0.05 mg ex viscum album (mali) recens 0.01 mg, natrii chloridum, aqua q.s. ad solutionem pro 1 ml."
    info = Oddb2xml::Calc.new("Iscador M 0,01 mg, Injektionslösung", "2 x 7", "Ampulle(n)",
      "viscum album (mali) recens",
      text)
    specify { expect(info.pkg_size).to eq "2 x 7" }
    specify { expect(info.selling_units).to eq 14 }
    specify { expect(info.compositions.first.substances.size).to eq 2 }
    viscum = info.compositions.first.substances.find { |x| x.name.match(/viscum/i) }
    specify { expect(viscum).not_to eq nil }
    natrii = info.compositions.first.substances.find { |x| x.name.match(/natrii chloridum/i) }
    specify { expect(natrii).not_to eq nil }
    if viscum
      specify { expect(viscum.name).to eq "Extractum Aquosum Liquidum Fermentatum 0.05 Mg Ex Viscum Album (mali) Recens" }
      skip { expect(viscum.is_active_agent).to eq true } # TODO: Grenzfall. Active-Agent viscum album (mali) recens ist sub-string
      specify { expect(viscum.dose.to_s).to eq "0.01 mg/ml" }
      specify { expect(viscum.qty.to_f).to eq 0.01 }
      specify { expect(viscum.unit).to eq "mg/ml" }
      specify { expect(viscum.chemical_substance).to eq nil }
    end
  end
  context "find correct result compositions for 56829 sequence 23 Iscador Ag 0,01 mg" do
    text = "extractum aquosum liquidum fermentatum 0.05 mg ex viscum album (mali) recens 0.01 mg, natrii chloridum, argenti carbonas (0,01 ug pro 100 mg herba recente), aqua q.s. ad solutionem pro 1 ml."
    info = Oddb2xml::Calc.new("Iscador M c. Arg. 0,01 mg, Injektionslösung, anthroposophisches Arzneimittel", "2 x 7", "Ampulle(n)",
      "viscum album (mali) recens, argenti carbonas (0,01 ug pro 100 mg herba recente)",
      text)
    specify { expect(info.pkg_size).to eq "2 x 7" }
    specify { expect(info.selling_units).to eq 14 }
    specify { expect(info.compositions.first.substances.size).to eq 3 }
    viscum = info.compositions.first.substances.find { |x| x.name.match(/viscum/i) }
    specify { expect(viscum).not_to eq nil }
    if viscum
      specify { expect(viscum.name).to eq "Extractum Aquosum Liquidum Fermentatum 0.05 Mg Ex Viscum Album (mali) Recens" }
      specify { expect(viscum.dose.to_s).to eq "0.01 mg/ml" }
      specify { expect(viscum.qty.to_f).to eq 0.01 }
      specify { expect(viscum.unit).to eq "mg/ml" }
      specify { expect(viscum.chemical_substance).to eq nil }
    end
    argenti = info.compositions.first.substances.find { |x| x.name.match(/Argenti/i) }
    specify { expect(argenti).not_to eq nil }
    if argenti
      specify { expect(argenti.name).to eq "Argenti Carbonas (0,01 Ug pro 100 Mg Herba Recente)" }
      skip { expect(argenti.dose.to_s).to eq "0.01 mg/ml" } # 100 mg/ml
      skip { expect(argenti.qty.to_f).to eq 0.01 }
      skip { expect(argenti.unit).to eq "mg/ml" }
      specify { expect(argenti.chemical_substance).to eq nil }
    end
  end
end

ODDB_CALC_XML = File.join(Oddb2xml::WORK_DIR, "oddb_calc.xml")
describe Oddb2xml::Calc do
  before(:all) do
    @saved_dir = Dir.pwd
    cleanup_directories_before_run
    FileUtils.makedirs(Oddb2xml::WORK_DIR)
    Dir.chdir(Oddb2xml::WORK_DIR)
    VCR.eject_cassette
    VCR.insert_cassette("oddb2xml")
    @run_time_options = "--calc --skip-download"
    @options = Oddb2xml::Options.parse(@run_time_options)
    @res = buildr_capture(:stdout) { Oddb2xml::Cli.new(@options).run }
    expect(File.exist?(ODDB_CALC_XML)).to eq true
    @doc = REXML::Document.new File.read(ODDB_CALC_XML)
    @nokogiri = Nokogiri::XML(File.read(ODDB_CALC_XML))
  end

  after(:all) do
    Dir.chdir @saved_dir if @saved_dir && File.directory?(@saved_dir)
  end

  context "Verify elements from XSD" do
    attribute_tests = [
      ["ARTICLES", "CREATION_DATETIME", Oddb2xml::DATE_REGEXP],
      ["ARTICLES", "PROD_DATE", Oddb2xml::DATE_REGEXP],
      ["ARTICLES", "VALID_DATE", Oddb2xml::DATE_REGEXP],
      ["ARTICLES/ARTICLE", "SHA256", /[a-f0-9]{32}/]
    ]

    check_attributes(ODDB_CALC_XML, attribute_tests)

    element_tests = [
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/EXCIPIENS", /.*pro Vitro.*/],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/EXCIPIENS", /.Excipiens ad solutionem.*/],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/LABEL", "I"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/LABEL", "Solvens"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/LABEL_DESCRIPTION", "Aminosäurenlösung"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/LABEL_DESCRIPTION", "Fettemulsion"],
      #      ['ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/DOSE_TEXT', 'mg'],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SALTS/SALT/SUBSTANCE_NAME", "Ceftriaxonum Natricum"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/CORRESP", /4240 kJ pro 1 l/],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/CORRESP", /I\) et II\) et III\) corresp.*/],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/DOSE_TEXT", "10-50 mg"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/MORE_INFO", "ratio: 1:2-2.8"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/SUBSTANCE_NAME", "Levomenolum"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/IS_ACTIVE_AGENT", "false"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/IS_ACTIVE_AGENT", "true"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/MORE_INFO", "conserv."],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/MORE_INFO", "antiox."],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/MORE_INFO", "Praeparatio sicca"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/QTY", "100"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/QTY", /4\.08/],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME", "E 124"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME", "Lamivudinum"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT", "mg"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT", "mg"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT", "µg"],
      ["ARTICLES/ARTICLE/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT", /U\.I\.\/ml/],
      ["ARTICLES/ARTICLE/GALENIC_FORM", "Infusionsemulsion"],
      ["ARTICLES/ARTICLE/GALENIC_FORM", "Tropfen"],
      ["ARTICLES/ARTICLE/GALENIC_GROUP", "Lösungsmittel"],
      ["ARTICLES/ARTICLE/GALENIC_GROUP", "Tabletten"],
      ["ARTICLES/ARTICLE/GTIN", Oddb2xml::FRIDGE_GTIN],
      ["ARTICLES/ARTICLE/GTIN", Oddb2xml::ORPHAN_GTIN],
      ["ARTICLES/ARTICLE/MEASURE", "Suppositorien"],
      ["ARTICLES/ARTICLE/MEASURE", /Ampulle\(n\)/],
      ["ARTICLES/ARTICLE/NAME", "Apligraf"],
      ["ARTICLES/ARTICLE/NAME", "Lansoyl, gelée"],
      ["ARTICLES/ARTICLE/PKG_SIZE", "1"],
      ["ARTICLES/ARTICLE/PKG_SIZE", "5 x 2500 ml"],
      ["ARTICLES/ARTICLE/PKG_SIZE", "75 mm"],
      ["ARTICLES/ARTICLE/SELLING_UNITS", "1"],
      ["ARTICLES/ARTICLE/SELLING_UNITS", "60"],
      ["ARTICLES/ARTICLE/SELLING_UNITS", "unbekannt"]
    ]
    check_elements(ODDB_CALC_XML, element_tests)
  end
  context "when passing #{@run_time_options}" do
    it "should contain the new fields as per July 2015" do
      #         xml.GEN_PRODUCTION    gen_production
      #          xml.INSULIN_CATEGORY  insulin_category
      #          xml.DRUG_INDEX        drug_index
      expect(File.exist?(ODDB_CALC_XML)).to eq true
    end

    it "should create a correct xml and a csv file" do
      [
        "oddb_calc.xml",
        "oddb_calc.csv"
      ].each { |file|
        full = File.join(Oddb2xml::WORK_DIR, file)
        expect(File.exist?(full)).to eq true
      }
      oddb_calc_xsd = File.expand_path(File.join(File.dirname(__FILE__), "..", "oddb_calc.xsd"))
      expect(File.exist?(oddb_calc_xsd)).to eq true
      xsd = Nokogiri::XML::Schema(File.read(oddb_calc_xsd))
      xsd.validate(@nokogiri).each { |error| expect(error).to be_nil }
    end

    it "should create correct entries for narotin" do
      gtin = "7680560890018"
      ean12 = "7680" + sprintf("%05d", Tst_nutriflex.iksnr_a) + sprintf("%03d", Tst_nutriflex.pack_K)
      ean13 = (ean12 + Oddb2xml.calc_checksum(ean12))
      expect(ean13).to eq gtin
      Tst_nutriflex.values_to_compare.each { |key, value|
        result = REXML::XPath.match(@doc, "//ARTICLE[GTIN='#{gtin}']/#{key.to_s.upcase}").first.text
        puts "Testing key #{key.inspect} #{value.inspect} against #{result} seems to fail" unless result == value.to_s
        expect(result).to eq value.to_s
      }
    end

    it "should create correct entries for 7680555940018" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").first.text).to eq "I"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL_DESCRIPTION").first.text).to eq "Glucoselösung"
      REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").each { |x| puts x.text }
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").last.text).to eq "III"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/CORRESP").last.text).to eq "4240 kJ pro 1 l"
    end

    it "should create correct entries for Lidocaini" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680300150105']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").first.text).to eq "Lidocaini Hydrochloridum"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680300150105']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT").first.text).to eq "mg/ml"
    end

    it "should create correct entries for Levomenolum" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/SUBSTANCE_NAME").first.text).to eq "Levomenolum"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/MORE_INFO").first.text).to eq "ratio: 1:2-2.8"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/DOSE_TEXT").first.text).to eq "10-50 mg"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/QTY").first).to eq nil
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE/UNIT").first).to eq nil
      matri_name = "Matricariae Extractum Isopropanolicum Liquidum"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME")
        .find { |x| x.text.eql?(matri_name) }.text).to eq matri_name
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/NAME").last.text).to eq "Kamillin Medipharm, Bad"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/GALENIC_FORM").last.text).to eq "Bad"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/QTY").first.text).to eq "98.9"
    end

    it "should create correct entries for Magnesiumchlorid" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680458820202']/NAME").last.text).to eq "Magnesiumchlorid 0,5 molar B. Braun, Zusatzampulle für Infusionslösungen"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680458820202']/GALENIC_FORM").last.text).to match(/Ampulle/i)
    end

    it "should create correct entries for W-Tropfen" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680165980114']/COMPOSITIONS/COMPOSITION/EXCIPIENS/SUBSTANCE_NAME").first.text).to eq "Excipiens ad solutionem"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680165980114']/COMPOSITIONS/COMPOSITION/EXCIPIENS/QTY").first.text).to eq "1"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680165980114']/COMPOSITIONS/COMPOSITION/EXCIPIENS/UNIT").first.text).to eq "ml"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680165980114']/NAME").first.text).to eq "W-Tropfen"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680165980114']/GALENIC_FORM").last.text).to eq "Tropfen"
    end

    it "should create correct entries for Coeur-Vaisseaux Sérocytol" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680002770014']/NAME").first.text).to eq "Coeur-Vaisseaux Sérocytol, suppositoire"
    end

    it "should not have Alprostadilum" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680545250363']").first).to eq nil
    end

    it "should create correct entries for Ceftriaxonum" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680446250592']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SALTS/SALT/SUBSTANCE_NAME").first.text).to eq "Ceftriaxonum Natricum"
    end

    it "should create correct entries for Nutriflex" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680611860045']/NAME").first.text).to eq "Nutriflex Omega special, Infusionsemulsion 2500 ml"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680611860045']/GALENIC_FORM").first.text).to eq "Infusionsemulsion"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680611860045']/SELLING_UNITS").first.text).to eq "5"
    end

    it "should create correct entries for Apligraf" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680589430011']/NAME").first.text).to eq "Apligraf"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680589430011']/GALENIC_FORM").last.text).to eq "Unbekannt" # TODO?? 'Scheibe(n)/disque(s)'
    end

    it "should create correct entries for Caverject" do
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680556740075']/NAME").first.text).to eq "Caverject DC 20, Injektionspräparat"
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680556740075']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE").size).to eq 5
      expect(REXML::XPath.match(@doc, "//ARTICLE[GTIN='7680556740075']/COMPOSITIONS/COMPOSITION/EXCIPIENS/SUBSTANCE_NAME").first.text).to eq "pro Vitro"
    end
  end
end