gtin2atc 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: f3d1cd6f1453e7360e43480e469813b2869ebc7e
-  data.tar.gz: 4f965256f218c76683b7d968d189191eb4b50c26
+  metadata.gz: 5fde24bd193bb317155d193187921c62d47b9694
+  data.tar.gz: eec181694b853f52ee99d275e276291655f72d24
 SHA512:
-  metadata.gz: 902b0381e432bb1a95ce16071322925ca11d593400707a7307b34592a5d81c7075d34457a2a997cfb4a8a3a0b1ffccbb7ddc66fa0151ce78ceb3cb75acbff581
-  data.tar.gz: f8392f123d3e388e7acb039e43e974bef28e80903c117e81b3f9a3a4001763724500faab8f7999d8610fede65c2a8c0b2f1dbf323958d8c5578d0c6499aa75ec
+  metadata.gz: adaabdf14c6ec0ea883e4969c9e94b0beb22e491843474323845911c81d2a7d796f418e8f99734f23d1a29618a4859be1e048dca01191941eceaaa56b1acf984
+  data.tar.gz: 106691a04f037e14f49725626a6a069830313922645c3ae09147995293f09512f857e2ad09eb917d2e64b63c9c4a37628d4424f7884b3013763086a3d57c701e

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    gtin2atc (0.1.0)
+    gtin2atc (0.1.1)
       mechanize (~> 2.5.1)
       nokogiri (~> 1.5.10)
       rubyXL

data/History.txt

@@ -1,3 +1,7 @@
+=== 0.1.1 27.01.2015
+
+* Create many reporfiles with --compare --full
+
 === 0.1.0 26.01.2015
 
 * Initial release

data/lib/gtin2atc/builder.rb

@@ -11,6 +11,7 @@ module Gtin2atc
     def initialize(opts)
       Util.set_logging(opts[:log])
       @do_compare = opts[:compare]
+      @gen_reports = opts[:compare] and opts[:full]
       Util.debug_msg "Builder: opts are #{opts} @do_compare is #{@do_compare}"
       @data_swissmedic = {}
       @data_bag = {}
@@ -55,7 +56,7 @@ module Gtin2atc
       data
     end
     def swissindex_xml_extractor
-      @swissindex = SwissIndexDownloader.new
+      @swissindex = SwissindexDownloader.new
       xml = @swissindex.download
       Util.debug_msg "swissindex_xml_extractor xml is #{xml.size} bytes long"
       data = {}
@@ -76,7 +77,7 @@ module Gtin2atc
     end
     def bag_xml_extractor
       data = {}
-      @bag = BagXmlDownloader.new
+      @bag = BagDownloader.new
       xml = @bag.download
       Util.debug_msg "bag_xml_extractor xml is #{xml.size} bytes long"
 
@@ -117,7 +118,7 @@ module Gtin2atc
           end
         end
       end
-      msg = "SwissIndex: Extracted #{gtins_to_parse.size} of #{@data_swissindex.size} items into #{output_name} for #{gtins_to_parse}"
+      msg = "swissindex: Extracted #{gtins_to_parse.size} of #{@data_swissindex.size} items into #{output_name} for #{gtins_to_parse}"
       Util.debug_msg(msg)
       return unless @do_compare
       @data_bag = bag_xml_extractor
@@ -128,7 +129,7 @@ module Gtin2atc
           csvfile << [gtin, item[:atc_code], item[:description]]
         end
       end
-      Util.debug_msg "BAG: Extracted #{gtins_to_parse.size} of #{@data_bag.size} items into #{output_name} for #{gtins_to_parse}"
+      Util.debug_msg "bag: Extracted #{gtins_to_parse.size} of #{@data_bag.size} items into #{output_name} for #{gtins_to_parse}"
       @data_swissmedic = swissmedic_xls_extractor
       output_name =  File.join(Util.get_archive, 'gtin2atc_swissmedic.csv')
       CSV.open(output_name,'w+') do |csvfile|
@@ -137,26 +138,26 @@ module Gtin2atc
           csvfile << [gtin, item[:atc_code], item[:pharmacode], item[:description]]
         end
       end
-      Util.debug_msg "SwissMedic: Extracted #{@data_swissmedic.size} items into #{output_name}"
+      Util.debug_msg "swissmedic: Extracted #{@data_swissmedic.size} items into #{output_name}"
       check_bag
       check_swissmedic
       compare
     end
     # require 'pry';
     def check_bag
-      matching_atc_codes = 0
+      matching_atc_codes = []
 
-      not_in_swissmedic = 0
-      match_in_swissmedic = 0
-      shorter_in_swissmedic = 0
-      longer_in_swissmedic = 0
-      different_atc_in_swissmedic = 0
+      not_in_swissmedic = []
+      match_in_swissmedic = []
+      shorter_in_swissmedic = []
+      longer_in_swissmedic = []
+      different_atc_in_swissmedic = []
 
-      not_in_swissindex = 0
-      match_in_swissindex = 0
-      shorter_in_swissindex = 0
-      longer_in_swissindex = 0
-      different_atc_in_swissindex = 0
+      not_in_swissindex = []
+      match_in_swissindex = []
+      shorter_in_swissindex = []
+      longer_in_swissindex = []
+      different_atc_in_swissindex = []
       j = 0
       @data_bag.each{
         |gtin, item|
@@ -166,43 +167,32 @@ module Gtin2atc
         if @data_swissmedic[gtin] and @data_swissindex[gtin] and
           atc_code == @data_swissmedic[gtin][:atc_code] and
           atc_code == @data_swissindex[gtin][:atc_code]
-          Util.debug_msg "#{gtin}: matching_atc_codes SwissIndex #{item} #{@data_swissmedic[gtin][:atc_code]} and #{@data_swissindex[gtin][:atc_code]}"
-          matching_atc_codes += 1
+          matching_atc_codes << "#{gtin}: matching_atc_codes swissindex #{item} #{@data_swissmedic[gtin][:atc_code]} and #{@data_swissindex[gtin][:atc_code]}"
           next
         end
 
         if not @data_swissindex[gtin]
-          Util.debug_msg "#{gtin}: Not in SwissIndex #{item}"
-          not_in_swissindex += 1
+          not_in_swissindex << "#{gtin}: Not in swissindex #{item}"
         elsif atc_code == @data_swissindex[gtin][:atc_code]
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{atc_code} matches swissindex  #{@data_swissindex[gtin][:atc_code]}"
-          match_in_swissindex += 1
+          match_in_swissindex << "swissindex #{gtin}: ATC code #{atc_code} matches swissindex  #{@data_swissindex[gtin][:atc_code]}"
         elsif atc_code.length < @data_swissindex[gtin][:atc_code].length
-          longer_in_swissindex += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{atc_code} longer  in swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          longer_in_swissindex << "swissindex #{gtin}: ATC code #{atc_code} longer in swissindex  #{@data_swissindex[gtin][:atc_code]}"
         elsif atc_code.length > @data_swissindex[gtin][:atc_code].length
-          shorter_in_swissindex += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{atc_code} shorter in swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          shorter_in_swissindex << "swissindex #{gtin}: ATC code #{atc_code} shorter in swissindex  #{@data_swissindex[gtin][:atc_code]}"
         else
-          different_atc_in_swissindex += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{atc_code} differs from swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          matching_atc_codes << "swissindex #{gtin}: ATC code #{atc_code} differs from swissindex  #{@data_swissindex[gtin][:atc_code]}"
         end
 
-        if not   @data_swissmedic[gtin]
-          Util.debug_msg "#{gtin}: Not in SwissMedic #{item}"
-          not_in_swissmedic += 1
+        if not @data_swissmedic[gtin]
+          not_in_swissmedic <<  "#{gtin}: Not in swissmedic #{item}"
         elsif atc_code == @data_swissmedic[gtin][:atc_code]
-          Util.debug_msg "SwissMedic #{gtin}: ATC code #{atc_code} matches swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
-          match_in_swissmedic += 1
+          match_in_swissmedic << "swissmedic #{gtin}: ATC code #{atc_code} matches swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
         elsif atc_code.length < @data_swissmedic[gtin][:atc_code].length
-          longer_in_swissmedic += 1
-          Util.debug_msg "SwissMedic #{gtin}: ATC code #{atc_code} longer  in swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
+          longer_in_swissmedic << "swissmedic #{gtin}: ATC code #{atc_code} longer in swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
         elsif atc_code.length > @data_swissmedic[gtin][:atc_code].length
-          shorter_in_swissmedic += 1
-          Util.debug_msg "SwissMedic #{gtin}: ATC code #{atc_code} shorter in swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
+          shorter_in_swissmedic << "swissmedic #{gtin}: ATC code #{atc_code} shorter in swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
         else
-          different_atc_in_swissmedic += 1
-          Util.debug_msg "SwissMedic #{gtin}: ATC code #{atc_code} differs from swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
+          different_atc_in_swissmedic << "swissmedic #{gtin}: ATC code #{atc_code} differs from swissmedic  #{@data_swissmedic[gtin][:atc_code]}"
         end
         total1 = not_in_swissindex + match_in_swissindex + longer_in_swissindex +  shorter_in_swissindex + different_atc_in_swissindex
         total2 = not_in_swissmedic + match_in_swissmedic + longer_in_swissmedic +  shorter_in_swissmedic + different_atc_in_swissmedic
@@ -210,132 +200,138 @@ module Gtin2atc
         # binding.pry if j != (total2 + matching_atc_codes)
         # Util.debug_msg "#{gtin}: j #{j} finished #{total1} #{total2} #{atc_code} matching_atc_codes #{matching_atc_codes}"
       }
-      Util.info  "Result of verifing data from BAG (SL):
-  BAG-data fetched from #{@bag.origin}.
-  BAG had #{@data_bag.size} entries
+      Util.info  "Result of verifing data from bag (SL):
+  bag-data fetched from #{@bag.origin}.
+  bag had #{@data_bag.size} entries
   #{@bag_entries_without_gtin.size} entries had no GTIN field
-  Not in SwissMedic #{not_in_swissmedic}
-  Not in SwissIndex #{not_in_swissindex}
-  Comparing ATC-Codes between BAG and Swissmedic
-    #{sprintf("%6d", matching_atc_codes)} items had the same ATC code in BAG, SwissIndex and SwissMedic
-    #{sprintf("%6d", match_in_swissindex)} are the same in SwissMedic and BAG
-    #{sprintf("%6d", different_atc_in_swissmedic)} are different in SwissMedic and BAG
-    #{sprintf("%6d", shorter_in_swissmedic)} are shorter in SwissMedic than in BAG
-    #{sprintf("%6d", longer_in_swissindex)} are longer in SwissMedic than in BAG
-  Comparing ATC-Codes between BAG and Swissindex
-    #{sprintf("%6d", matching_atc_codes)} items had the same ATC code in BAG, SwissIndex and SwissMedic
-    #{sprintf("%6d", match_in_swissindex)} are the same in SwissIndex and BAG
-    #{sprintf("%6d", different_atc_in_swissindex)} are different in SwissMedic and BAG
-    #{sprintf("%6d", shorter_in_swissindex)} are shorter in SwissIndex than in BAG
-    #{sprintf("%6d", longer_in_swissindex)} are longer in SwissIndex than in BAG
+  Not in swissmedic #{not_in_swissmedic.size}
+  Not in swissindex #{not_in_swissindex.size}
 "
+      Util.info "Comparing ATC-Codes between bag and swissmedic"
+      report('compare_bag_to_swissmedic', 'items had the same ATC code in bag, swissindex and swissmedic', matching_atc_codes)
+      report('compare_bag_to_swissmedic', 'are the same in swissmedic and bag', match_in_swissmedic)
+      report('compare_bag_to_swissmedic', 'are different in swissmedic and bag', different_atc_in_swissmedic)
+      report('compare_bag_to_swissmedic', 'are shorter in swissmedic than in bag', shorter_in_swissmedic)
+      report('compare_bag_to_swissmedic', 'are longer in swissmedic than in bag', longer_in_swissmedic)
+
+      Util.info "Comparing ATC-Codes between bag and swissindex"
+      report('compare_bag_to_swissindex', 'items had the same ATC code in bag, swissindex and swissmedic', matching_atc_codes)
+      report('compare_bag_to_swissindex', 'are the same in swissindex and bag', match_in_swissindex)
+      report('compare_bag_to_swissindex', 'are different in swissmedic and bag', different_atc_in_swissindex)
+      report('compare_bag_to_swissindex', 'are shorter in swissindex than in bag', shorter_in_swissindex)
+      report('compare_bag_to_swissindex', 'are longer in swissindex than in bag', longer_in_swissindex)
     end
 
+    def report(topic, msg, details)
+      full_msg = "#{topic}: #{details.size} #{msg}"
+      Util.info "   #{full_msg}"
+      return unless @gen_reports
+      File.open((full_msg+'.txt').gsub(/[: ,]+/, '_'), 'w+') {
+        |file|
+        file.puts full_msg
+        details.each{|detail| file.puts detail }
+      }
+    end
     def check_swissmedic
-      matching = 0
-      not_in_bag = 0
-      not_in_swissindex = 0
-      matching_atc_codes = 0
-      shorter_in_swissmedic = 0
-      longer_in_swissindex = 0
-      different_atc = 0
+      matching = []
+      not_in_bag = []
+      not_in_swissindex = []
+      matching_atc_codes = []
+      shorter_in_swissmedic = []
+      longer_in_swissindex = []
+      different_atc = []
       @data_swissmedic.each{
         |gtin, item|
-        if @data_bag[gtin] and @data_swissindex[gtin] and @data_bag[gtin][1] == @data_swissindex[gtin][1]
-          matching += 1
+        atc_code = item[:atc_code]
+        if @data_bag[gtin] and
+          @data_swissmedic[gtin] and
+          @data_bag[gtin] and
+          atc_code.eql?(@data_bag[gtin][1]) and
+          atc_code.eql?(@data_swissindex[gtin][1])
+          matching << "#{gtin} #{atc_code} #{@data_swissmedic[gtin][1]} match in bag, swissmedic and swissindex"
           next
         end
         unless @data_swissindex[gtin]
-          Util.debug_msg "#{gtin}: Not in SwissIndex #{item}"
-          not_in_swissindex += 1
+          not_in_swissindex << "Swissmedic #{gtin}: Not in swissindex #{item}"
           next
         end
         if item[:atc_code] == @data_swissindex[gtin][:atc_code]
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{item[:atc_code]} matches swissindex  #{@data_swissindex[gtin][:atc_code]}"
-          matching_atc_codes += 1
+          matching_atc_codes << "swissindex #{gtin}: ATC code #{item[:atc_code]} matches swissindex  #{@data_swissindex[gtin][:atc_code]}"
         elsif item[:atc_code].length < @data_swissindex[gtin][:atc_code].length
-          longer_in_swissindex += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{item[:atc_code]} longer  in swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          longer_in_swissindex << "swissindex #{gtin}: ATC code #{item[:atc_code]} longer  in swissindex  #{@data_swissindex[gtin][:atc_code]}"
         elsif item[:atc_code].length > @data_swissindex[gtin][:atc_code].length
-          shorter_in_swissmedic += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{item[:atc_code]} shorter in swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          shorter_in_swissmedic << "swissindex #{gtin}: ATC code #{item[:atc_code]} shorter in swissindex  #{@data_swissindex[gtin][:atc_code]}"
         else
-          different_atc += 1
-          Util.debug_msg "SwissIndex #{gtin}: ATC code #{item[:atc_code]} differs from swissindex  #{@data_swissindex[gtin][:atc_code]}"
+          different_atc << "swissindex #{gtin}: ATC code #{item[:atc_code]} differs from swissindex  #{@data_swissindex[gtin][:atc_code]}"
         end
         unless @data_bag[gtin]
-          Util.debug_msg "#{gtin}: Not in BAG #{item}"
-          not_in_bag += 1
+          not_in_bag << "#{gtin}: Not in bag #{item}"
           next
         end
       }
       Util.info  "Result of verifing data from swissmedic:
-  SwissMedic had #{@data_swissmedic.size} entries. Fetched from #{@swissmedic.origin}
-  SwissIndex #{@data_swissindex.size} entries. Fetched from #{@swissindex.origin}
-  BAG #{@data_bag.size} entries. #{@bag_entries_without_gtin.size} entries had no GTIN field. Fetched from #{@bag.origin}
-  Matching #{matching} items.
-  Not in BAG #{not_in_bag}
-  Not in SwissIndex #{not_in_swissindex}
-  Comparing ATC-Codes between Swissmedic and Swissindex
-    #{sprintf("%6d", matching_atc_codes)} match
-    #{sprintf("%6d", different_atc)} are different
-    #{sprintf("%6d", matching_atc_codes)} are the same in SwissIndex and SwissMedic
-    #{sprintf("%6d", shorter_in_swissmedic)} are shorter in SwissIndex
-    #{sprintf("%6d", longer_in_swissindex)} are longer in SwissIndex
+  swissmedic had #{@data_swissmedic.size} entries. Fetched from #{@swissmedic.origin}
+  swissindex #{@data_swissindex.size} entries. Fetched from #{@swissindex.origin}
+  bag #{@data_bag.size} entries. #{@bag_entries_without_gtin.size} entries had no GTIN field. Fetched from #{@bag.origin}
+  Matching #{matching.size} items.
+  Not in bag #{not_in_bag.size}
+  Not in swissindex #{not_in_swissindex.size}
+  Comparing ATC-Codes between swissmedic and swissindex
 "
+   report('swissmedic', 'match in swissindex and swissmedic', matching_atc_codes)
+   report('swissmedic', 'are different in swissindex and swissmedic', different_atc)
+   report('swissmedic', 'are the same in swissindex and swissmedic', matching_atc_codes)
+   report('swissmedic', 'are shorter in swissindex', shorter_in_swissmedic)
+   report('swissmedic', 'are longer in swissindex', longer_in_swissindex)
     end
 
     def compare
       all_gtin = @data_bag.merge(@data_swissindex).merge(@data_swissmedic).sort
-      matching_atc_codes = 0
-      not_in_bag = 0
-      not_in_swissmedic = 0
-      not_in_swissindex = 0
-      different_atc = 0
+      matching_atc_codes = []
+      not_in_bag = []
+      not_in_swissmedic = []
+      not_in_swissindex = []
+      different_atc = []
       all_gtin.each{
         |gtin, item|
         if @data_bag[gtin] and @data_swissindex[gtin] and @data_swissmedic[gtin] and
           @data_bag[gtin][:atc_code] == @data_swissindex[gtin][:atc_code] and
           @data_bag[gtin][:atc_code] == @data_swissindex[gtin][:atc_code]
-          matching_atc_codes += 1
+          matching_atc_codes << "#{gtin}: ATC-Code #{@data_bag[gtin][:atc_code]} matches in bag, swissmedic and swissindex"
           next
         end
         unless @data_swissmedic[gtin]
-          Util.debug_msg "#{gtin}: Not in SwissMedic #{item}"
-          not_in_swissmedic += 1
+          not_in_swissmedic << "#{gtin}: Not in swissmedic #{item}"
           next
         end
         unless @data_swissindex[gtin]
-          Util.debug_msg "#{gtin}: Not in SwissIndex #{item}"
-          not_in_swissindex += 1
+          not_in_swissindex << "#{gtin}: Not in swissindex #{item}"
           next
         end
         unless @data_bag[gtin]
-          Util.debug_msg "#{gtin}: Not in BAG #{item}"
-          not_in_bag += 1
+          not_in_bag << "#{gtin}: Not in bag #{item}"
           next
         end
-        different_atc += 1
-        Util.debug_msg "#{gtin}: ATC code differs BAG #{@data_bag[gtin][:atc_code]} swissindex  #{@data_swissindex[gtin][:atc_code]}"
+        different_atc << "#{gtin}: ATC code differs bag #{@data_bag[gtin][:atc_code]} swissindex  #{@data_swissindex[gtin][:atc_code]}"
       }
       Util.info  "Comparing all GTIN-codes:
   Found infos about #{all_gtin.size} entries
-  BAG #{@data_bag.size} entries. #{@bag_entries_without_gtin.size} entries had no GTIN field. Fetched from #{@bag.origin}
-  SwissIndex #{@data_swissindex.size} entries. Fetched from #{@swissindex.origin}
-  SwissMedic #{@data_swissmedic.size} entries. Fetched from #{@swissmedic.origin}
-  #{sprintf("%6d", matching_atc_codes)} items had the same ATC code in BAG, SwissIndex and SwissMedic
-  #{sprintf("%6d", not_in_bag)} not in BAG
-  #{sprintf("%6d", not_in_swissindex)} not in SwissIndex
-  #{sprintf("%6d", not_in_swissmedic)} not in SwissMedic
-  #{sprintf("%6d", different_atc)} ATC-Codes differed
+  bag #{@data_bag.size} entries. #{@bag_entries_without_gtin.size} entries had no GTIN field. Fetched from #{@bag.origin}
+  swissindex #{@data_swissindex.size} entries. Fetched from #{@swissindex.origin}
+  swissmedic #{@data_swissmedic.size} entries. Fetched from #{@swissmedic.origin}
 "
+      report('compare_all_gtins', 'items had the same ATC code in bag, swissindex and swissmedic', matching_atc_codes)
+      report('compare_all_gtins', 'not in bag', not_in_bag)
+      report('compare_all_gtins', 'not in swissindex', not_in_swissindex)
+      report('compare_all_gtins', 'not in swissmedic', not_in_swissmedic)
+      report('compare_all_gtins', 'ATC-Codes differed', different_atc)
     end
   end
   class Swissmedic
     def Swissmedic.get_latest
       Util.debug_msg 'test'
       @index_url = 'https://www.swissmedic.ch/arzneimittel/00156/00221/00222/00230/index.html?lang=de'
-      Util.debug_msg("SwissmedicPlugin @index_url #{@index_url}")
+      Util.debug_msg("swissmedicPlugin @index_url #{@index_url}")
       latest_name, target =  Util.get_latest_and_dated_name('Packungen', '.xlsx')
       if File.exist?(target)
         Util.debug_msg "#{__FILE__}: #{__LINE__} skip writing #{target} as it already exists and is #{File.size(target)} bytes."

data/lib/gtin2atc/downloader.rb

@@ -115,7 +115,7 @@ module Gtin2atc
       xml
     end
   end
-  class BagXmlDownloader < Downloader
+  class BagDownloader < Downloader
     def init
       super
       @url ||= 'http://bag.e-mediat.net/SL2007.Web.External/File.axd?file=XMLPublications.zip'
@@ -125,7 +125,7 @@ module Gtin2atc
     end
     def download
       file = File.join(WorkDir, 'XMLPublications.zip')
-      Gtin2atc.log "BagXmlDownloader #{__LINE__}: #{file} from #{@url}"
+      Gtin2atc.log "BagDownloader #{__LINE__}: #{file} from #{@url}"
       if File.exists?(file) and diff_hours = ((Time.now-File.ctime(file)).to_i/3600) and diff_hours < 24
         Util.debug_msg "Skip download of #{file} as only #{diff_hours} hours old"
       else
@@ -190,7 +190,7 @@ module Gtin2atc
     end
   end
 
-  class SwissIndexDownloader < Downloader
+  class SwissindexDownloader < Downloader
     def initialize(options={}, type=:pharma, lang='DE')
       @type = (type == :pharma ? 'Pharma' : 'NonPharma')
       @lang = lang

data/lib/gtin2atc/options.rb

@@ -9,6 +9,7 @@ module Gtin2atc
       {
         :log          => false,
         :compare      => false,
+        :full         => false,
       }
     end
     def Options.help
@@ -25,6 +26,7 @@ Usage:
                         * BAG http://bag.e-mediat.net/SL2007.Web.External/File.axd?file=XMLPublications.zip
                         * SwissIndex e-mediat: http://swissindex.e-mediat.net/SwissindexPharma_out_V101
                         * or if the ATC_Code does not not match
+    -- full             if --compare and --full given produce 15 detailed report files
     -h,   --help         Show this help message.
 EOS
     end
@@ -33,6 +35,7 @@ EOS
       @opts   = Options.default_opts
       @parser.on('--log')             {|v| @opts[:log] = true }
       @parser.on('--compare')         {|v| @opts[:compare] = true }
+      @parser.on('--full')            {|v| @opts[:full] = true }
       @parser.on_tail('-h', '--help') { puts Options.help; exit }
     end
   end

data/lib/gtin2atc/version.rb

@@ -1,3 +1,3 @@
 module Gtin2atc
-  VERSION = "0.1.0"
+  VERSION = "0.1.1"
 end

data/spec/builder_spec.rb

@@ -60,7 +60,7 @@ describe Gtin2atc::Builder do
     it 'should produce more log output' do
       @res = buildr_capture(:stdout){ cli.run }
       @res.match(/swissindex_xml_extractor/).should_not == nil
-      @res.match(/SwissIndex: Extracted/).should_not == nil
+      @res.match(/swissindex: Extracted/).should_not == nil
     end
   end
 
@@ -129,9 +129,9 @@ describe Gtin2atc::Builder do
       [ /Found infos/,
         /Fetched from/,
         /Matching/,
-        /not in BAG/,
-        /not in SwissMedic/,
-        /not in SwissIndex/,
+        /not in bag/,
+        /not in swissmedic/,
+        /not in swissindex/,
         /ATC-Codes diff/,
       ].each {
         |pattern|
@@ -144,4 +144,21 @@ describe Gtin2atc::Builder do
 
   end
 
+  context 'when --compare --full is given' do
+    let(:cli) do
+      options = Gtin2atc::Options.new
+      options.parser.parse!('--compare --full'.split(' '))
+      Gtin2atc::Builder.new(options.opts)
+    end
+
+    it 'should produce a many report files' do
+      @res = buildr_capture(:stdout){ cli.run }
+      Dir.glob(Gtin2atc::WorkDir + '/compare_all_gtins*.txt').size.should == 5
+      Dir.glob(Gtin2atc::WorkDir + '/swissmedic_*.txt').size.should == 5
+      Dir.glob(Gtin2atc::WorkDir + '/compare_bag_to_swissindex_*.txt').size.should == 5
+      Dir.glob(Gtin2atc::WorkDir + '/compare_bag_to_swissmedic_*.txt').size.should == 5
+    end
+
+  end
+
 end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: gtin2atc
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - Niklaus Giger, Zeno R.R. Davatz