oddb2xml 2.0.5 → 2.0.6

data/spec/calc_spec.rb

@@ -14,6 +14,7 @@ include Oddb2xml
 describe Oddb2xml::Calc do
   RunAllTests = true
 
+
   after(:each) do
     FileUtils.rm(Dir.glob(File.join(Oddb2xml::WorkDir, '*.*')))
     FileUtils.rm(Dir.glob(File.join(Oddb2xml::WorkDir, 'downloads', '*')))
@@ -292,6 +293,7 @@ if RunAllTests
       m = />.*  /.match(xml)
       m.should eq nil
       doc = REXML::Document.new xml
+#      puts xml; binding.pry
       gtin = '7680540151009'
       ean12 = '7680' + sprintf('%05d',tst_naropin.iksnr_A) + sprintf('%03d',tst_naropin.pack_K)
       ean13 = (ean12 + Oddb2xml.calc_checksum(ean12))
@@ -314,20 +316,28 @@ if RunAllTests
           puts "Testing key #{key.inspect} #{value.inspect} against #{result} seems to fail" unless result == value.to_s
           result.should eq value.to_s
       }
-      XPath.match( doc, "//ARTICLE[GTIN='7680545250363']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").last.text.should eq 'Alprostadilum'
+      matri_name = 'Matricariae Extractum Isopropanolicum Liquidum'
+      XPath.match( doc, "//ARTICLE[GTIN='7680545250363']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").
+        find{|x| x.text.eql?("Alprostadilum")}.text.should eq 'Alprostadilum'
       XPath.match( doc, "//ARTICLE[GTIN='7680458820202']/NAME").last.text.should eq 'Magnesiumchlorid 0,5 molar B. Braun, Zusatzampulle für Infusionslösungen'
       XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").first.text.should eq 'I'
       XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL_DESCRIPTION").first.text.should eq 'Glucoselösung'
       XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").each{ |x| puts x.text }
       XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").last.text.should eq 'III'
-      XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/LABEL").last.text.should eq 'III'
-      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").last.text.should eq 'Matricariae Extractum Isopropanolicum Liquidum'
+      XPath.match( doc, "//ARTICLE[GTIN='7680555940018']/COMPOSITIONS/COMPOSITION/CORRESP").last.text.should eq '4240 kJ pro 1 l'
+
+      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").
+        find{|x| x.text.eql?(matri_name)}.text.should eq matri_name
       XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_SUBSTANCE").last.text.should eq 'Levomenolum'
-      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/QTY").last.text.should eq '98.9'
-      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT").last.text.should eq 'g/100 g'
-      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_QTY").last.text.should eq '10-50'
-      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_UNIT").last.text.should eq 'mg/100 g'
-   end
+      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/QTY").first.text.should eq '98.9'
+      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/MORE_INFO").first.text.should eq 'ratio: 1:2-2.8'
+      XPath.match( doc, "//ARTICLE[GTIN='7680300150105']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/SUBSTANCE_NAME").first.text.should eq 'Lidocaini Hydrochloridum'
+      XPath.match( doc, "//ARTICLE[GTIN='7680300150105']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/UNIT").first.text.should eq 'mg/ml'
+
+      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_QTY").first.text.should eq '10-50'
+      XPath.match( doc, "//ARTICLE[GTIN='7680434541015']/COMPOSITIONS/COMPOSITION/SUBSTANCES/SUBSTANCE/CHEMICAL_UNIT").first.text.should eq 'mg/100 g'
+
+    end
   end
 
   context 'find correct result for Kamillin' do
@@ -354,6 +364,7 @@ if RunAllTests
     specify { expect(res.class).to eq Array }
     specify { expect(res.first.class).to eq String }
   end
+
   context 'find correct result for Nutriflex' do
     info = 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 }
@@ -386,7 +397,7 @@ if RunAllTests
     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 Min.' }
+      specify { expect(bifidobacterium.name).to eq  'Bifidobacterium Infantis' }
       skip { expect(bifidobacterium.qty.to_f).to eq  '10^9'}
       skip { expect(bifidobacterium.unit).to eq  'CFU'}
     end
@@ -397,8 +408,8 @@ if RunAllTests
       specify { expect(e_127.unit).to eq  nil}
     end
   end
-
-  context 'find correct result for Cardio-Pulmo-Rénal Sérocytol, suppositoire' do
+end
+  context 'find correct result for 274 Cardio-Pulmo-Rénal Sérocytol, suppositoire' do
     info = 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' }
@@ -409,7 +420,7 @@ if RunAllTests
     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).to eq  'Globulina Equina (immunisé Avec Coeur, Tissu Pulmonaire, Reins De Porcins)' }
+      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
@@ -423,80 +434,44 @@ if RunAllTests
     specify { expect(e_218).not_to eq nil}
   end
 
-  context 'find correct result compositions for nutriflex' do
-    text = "#{Line_1}\n#{Line_2}\n#{Line_3}\n#{Line_4}\n#{Line_5}"
-    result = Calc.new('Nutriflex Lipid peri, Infusionsemulsion, 1250ml', nil, nil,
-                      'glucosum anhydricum, zinci acetas dihydricus, isoleucinum, leucinum',
-                      text
-                      )
-#  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.'
-    specify { expect(result.compositions.first.substances.first.name).to eq 'Glucosum Anhydricum'}
-    specify { expect(result.compositions.first.substances.first.chemical_substance).to eq 'Glucosum Monohydricum'}
-    specify { expect(result.compositions.first.substances.first.qty.to_f).to eq 150.0}
-    specify { expect(result.compositions.first.substances.first.unit).to eq 'g/500 ml'}
-
-    specify { expect(result.compositions[0].source).to eq Line_1}
-    specify { expect(result.compositions[0].label).to eq 'I'}
-    specify { expect(result.compositions[0].label_description).to eq 'Glucoselösung'}
-    specify { expect(result.compositions[1].label).to eq 'II' }
-    specify { expect(result.compositions[2].label).to eq 'III' }
-    glucosum = result.compositions.first.substances.first
-    specify { expect(glucosum.name).to eq  'Glucosum Anhydricum' }
-    specify { expect(glucosum.qty.to_f).to eq  150.0}
-    specify { expect(glucosum.unit).to eq  'g/500 ml'}
-    specify { expect(result.compositions.size).to eq 3}
-    specify { expect(result.compositions[0].substances.size).to eq 3}
-    specify { expect(result.compositions[1].substances.size).to eq 5} # should have  glycerolum, natrii oleas, aqua
-    specify { expect(result.compositions[2].substances.size).to eq 4}
-    specify { expect(result.compositions[1].source).to eq Line_2}
-    specify { expect(result.compositions[2].source).to eq Line_3}
-
-    # from II)
-    lecithinum =  result.compositions[1].substances.find{ |x| x.name.match(/lecithinum/i) }
-    specify { expect(lecithinum).not_to eq nil}
-    if lecithinum
-      specify { expect(lecithinum.name).to eq  'Lecithinum Ex Ovo' }
-      specify { expect(lecithinum.qty.to_f).to eq   3.0}
-      specify { expect(lecithinum.unit).to eq  'g/250 ml'}
-    end
+if RunAllTests
 
-    # From III
-    leucinum =  result.compositions[2].substances.find{ |x| x.name.eql?('Leucinum') }
-    specify { expect(leucinum).not_to eq nil}
-    if leucinum
-      specify { expect(leucinum.name).to eq  'Leucinum' }
-      specify { expect(leucinum.qty.to_f).to eq  3.13}
-      specify { expect(leucinum.unit).to eq  'g/400 ml'}
+  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
-    leucinum_I =  result.compositions[0].substances.find{ |x| x.name.eql?('Leucinum') }
-    specify { expect(leucinum_I).to eq nil}
-    leucinum_II =  result.compositions[1].substances.find{ |x| x.name.eql?('Leucinum') }
-    specify { expect(leucinum_II).to eq nil}
-    aqua =  result.compositions[2].substances.find{ |x| /aqua ad/i.match(x.name) }
-    specify { expect(aqua).to eq nil}
   end
-end
-
-if RunAllTests
 
   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  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 eq  "100 µ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).to eq nil }
+    specify { expect(lactosum.name).to eq "Lactosum Monohydricum" }
+    specify { expect(lactosum.dose.to_s).to eq  "25 mg" }
   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  6 }
+    specify { expect(info.first.substances.size).to eq ExcipiensIs_a_Substance ? 6 : 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 }
@@ -507,27 +482,13 @@ if RunAllTests
     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  3 }
+    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 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  11 }
-    toxoidum =  info.first.substances.find{ |x| x.name.match(/Toxoidum Diphtheriae/i) }
-    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./ml' }
-  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."
@@ -537,7 +498,7 @@ if RunAllTests
                       text
                       )
     specify { expect(info.compositions.size).to eq  2 }
-    specify { expect(info.compositions.first.substances.size).to eq  5 }
+    specify { expect(info.compositions.first.substances.size).to eq ExcipiensIs_a_Substance ? 7 : 6 }
     poloxamerum =  info.compositions.first.substances.find{ |x| x.name.match(/poloxamerum/i) }
     skip { expect(poloxamerum.name).to eq  'Poloxamerum 238' }
     skip { expect(poloxamerum.qty.to_f).to eq  "" }
@@ -565,14 +526,14 @@ if RunAllTests
     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  Struct::ParseSubstance }
+    specify { expect(substance3.class).to eq  ParseSubstance }
     if substance3
-      specify { expect(substance3.name).to eq                'Amiloridi Hydrochloridum Anhydricum' }
-      specify { expect(substance3.chemical_substance).to eq  'Amiloridi Hydrochloridum Dihydricum' }
-      specify { expect(substance3.qty.to_f).to eq  5 }
+      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_qty.to_f).to eq  5.67 }
-      specify { expect(substance3.chemical_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
 
@@ -589,9 +550,9 @@ if RunAllTests
     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  Struct::ParseSubstance }
+    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  Struct::ParseSubstance }
+    specify { expect(substance3.class).to eq  ParseSubstance }
     if substance3
       specify { expect(substance3.name).to eq                'Lapis Albus D12' }
     end
@@ -604,73 +565,93 @@ Solvens: aqua ad iniectabilia q.s. ad suspensionem pro 1 ml."
                       'virus rabiei inactivatum (Stamm: Wistar Rabies PM/WI 38-1503-3M) ',
                       text
                       )
-    specify { expect(info.compositions.size).to eq  1 }
+    specify { expect(info.compositions.size).to eq  2 }
     specify { expect(info.compositions.first.label).to eq  nil }
     substance1 =  info.compositions.first.substances.find{ |x| x.name.match(/virus rabiei inactivatu/i) }
     specify { expect(substance1).should_not be  nil }
     if substance1
-      specify { expect(substance1.name).to eq  'Virus Rabiei Inactivatum (Stamm: Wistar Rabies Pm/wi 38-1503-3M)' }
+      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  Struct::ParseSubstance }
+    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  Struct::ParseSubstance }
+    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 with chemical_dose' do
+  context "find correct result compositions for #{tst_grains_de_valse.composition_P} with chemical_dose" do
     info = 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 eq  '78-104 mg' }
+      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).to eq  'Sennosidum B' }
-      specify { expect(sennosidum.chemical_qty.to_f).to eq  12.5 }
-      specify { expect(sennosidum.chemical_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
 
-end
-  context 'find correct result compositions for 56829 Iscador Ag 0,01 mg' do
+  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.
+)
+    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 = 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 ExcipiensIs_a_Substance ? 3 : 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' }
+      specify { expect(viscum.is_active_agent).to eq  true }
+      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 = 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 2 }
+    specify { expect(info.compositions.first.substances.size).to eq ExcipiensIs_a_Substance ? 4 : 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 eq  '0.01 mg/ml' }
+      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 }
-      specify { expect(viscum.chemical_qty).to eq  nil }
-      specify { expect(viscum.chemical_unit).to eq nil }
     end
-    # we don't handle argenti at the moment, because it skipped as it contain pro in its name
-    if false
-      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' }
-        skip  { expect(argenti.dose).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 }
-        specify { expect(argenti.chemical_qty).to eq  nil }
-        specify { expect(argenti.chemical_unit).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
+end
+  end