de.oddb 2.0.0

data/test/drugs/test_substance_group.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Drugs::TestSubstanceGroup -- de.oddb.org -- 13.11.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/drugs/substance_group'
+
+module ODDB
+  module Drugs
+    class TestSubstanceGroup < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @group = SubstanceGroup.new
+      end
+      def test_add_substance
+        assert_equal([], @group.substances)
+        sub = flexmock('substance')
+        @group.add_substance(sub)
+        assert_equal([sub], @group.substances)
+        @group.add_substance(sub)
+        assert_equal([sub], @group.substances)
+      end
+    end
+  end
+end

data/test/export/test_rss.rb

@@ -0,0 +1,86 @@
+#!/usr/bin/env ruby
+# Export::TestRss -- de.oddb.org -- 10.12.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'oddb/export/rss'
+require 'oddb/util/code'
+require 'stub/model'
+require 'test/unit'
+
+module ODDB
+  module Export
+    module Rss
+class TestFeedback < Test::Unit::TestCase
+  include FlexMock::TestCase
+  def setup
+    ARGV.push ''
+    @exporter = Feedback.new
+    @f1 = Util::Feedback.new
+    @f1.time = Time.now
+    @f1.name = "Test User"
+    @f1.message = "Test Message"
+    @f1.email = "test@email.com"
+    @f1.item_good_impression = true
+    @f1.save
+    @i1 = flexmock('package')
+    @i1.should_receive(:code).with(:cid).and_return { 
+      Util::Code.new(:cid, 12345, 'DE') } 
+    @i1.should_receive(:name).and_return('Product')
+    @i1.should_ignore_missing
+    u1 = Drugs::Unit.new
+    u1.name.de = 'Tabletten'
+    p1 = flexmock('part')
+    p1.should_receive(:size).and_return(10)
+    p1.should_receive(:unit).and_return(u1)
+    p1.should_ignore_missing
+    @i1.should_receive(:parts).and_return([p1])
+    @f1.item = @i1
+    @f2 = Util::Feedback.new
+    @f2.time = Time.now
+    @f2.save
+    super
+  end
+  def teardown
+    Util::Feedback.instances.clear
+    super
+  end
+  def test_sorted_feedbacks
+    assert_equal([@f2, @f1], @exporter.sorted_items)
+  end
+  def test_rss
+    # note: only one feedback should be reported, because @f2.item is nil.
+    expected = <<-EOS
+<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<?xml-stylesheet href=\"http://de.oddb.org/resources/oddb/oddb.css\" type=\"text/css\"?>
+<rss version=\"2.0\"
+  xmlns:trackback=\"http://madskills.com/public/xml/rss/module/trackback/\">
+  <channel>
+    <title>Patienten- und \303\204rztefeedback zu Medikamenten</title>
+    <link>http://de.oddb.org/de/home/</link>
+    <description>Patienten- und \303\204rztefeedback zu Medikamenten im Schweizer Gesundheitsmarkt</description>
+    <language>de</language>
+    <item>
+      <title>Feedback zu Product in der Handelsform: 10 Tabletten</title>
+      <link>http://de.oddb.org/de/feedback/pzn/12345/index/1</link>
+      <description>&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01//EN&quot; &quot;http://www.w3.org/TR/html4/strict.dtd&quot;&gt;&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE&gt;DE - ODDB.org&lt;/TITLE&gt;&lt;LINK href=&quot;http://de.oddb.org/resources/oddb/oddb.css&quot; rel=&quot;stylesheet&quot; type=&quot;text/css&quot;&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;DIV&gt;&lt;TABLE cellspacing=&quot;0&quot;&gt;&lt;TR&gt;&lt;TD colspan=&quot;2&quot;&gt;Feedback von Test User&lt;br/&gt;erstellt am: #{@f1.time.strftime("%A, %d. %B %Y - %H:%M")}&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD&gt;&lt;LABEL for=&quot;email&quot;&gt;E-Mail&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;E-Mail wird nicht angezeigt.&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD class=&quot;top&quot;&gt;&lt;LABEL for=&quot;message&quot;&gt;Feedback&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;Test Message&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD&gt;&lt;LABEL&gt;Pers\303\266nliche Erfahrung&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;&lt;DIV class=&quot;square minus&quot;&gt;-&lt;/DIV&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD&gt;&lt;LABEL&gt;Empfehlung&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;&lt;DIV class=&quot;square minus&quot;&gt;-&lt;/DIV&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD&gt;&lt;LABEL&gt;Pers\303\266nlicher Eindruck&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;&lt;DIV class=&quot;square plus&quot;&gt;+&lt;/DIV&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;TR&gt;&lt;TD&gt;&lt;LABEL&gt;Wirkung&lt;/LABEL&gt;&lt;/TD&gt;&lt;TD&gt;&lt;DIV class=&quot;square minus&quot;&gt;-&lt;/DIV&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&lt;/DIV&gt;&lt;DIV&gt;&lt;A href=&quot;http://de.oddb.org/de/feedbacks/pzn/12345&quot; name=&quot;feedback_feed_link&quot;&gt;&lt;/A&gt;&lt;/DIV&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
+      <author>de.ODDB.org</author>
+      <pubDate>#{@f1.time.rfc2822}</pubDate>
+      <guid isPermaLink=\"true\">http://de.oddb.org/de/feedback/pzn/12345/index/1</guid>
+    </item>
+  </channel>
+</rss>
+    EOS
+    # Tue, 11 Dec 2007 13:51:35 +0100
+    session = Export::SessionStub.new
+    session.language = 'de'
+    session.lookandfeel = Html::Util::Lookandfeel.new(session)
+    result = @exporter.rss [@f2, @f1], session
+    assert_equal expected.strip, result
+  end
+end
+    end
+  end
+end

data/test/export/test_server.rb

@@ -0,0 +1,163 @@
+#!/usr/bin/env ruby
+# Export::TestServer -- de.oddb.org -- 03.10.2007 -- hwyss@ywesee.com
+
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'oddb/config'
+require 'test/unit'
+require 'oddb/export/server'
+require 'flexmock'
+
+module ODDB
+  module Export
+    class TestServer < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @data_dir = File.expand_path('var/xls', File.dirname(__FILE__))
+        FileUtils.mkdir_p(@data_dir)
+      end
+=begin
+      def test_run
+        flexmock(Util::Mail).should_receive(:notify_admins)\
+          .and_return { |subj, body| flunk(body.join("\n")) }
+        klass = flexmock(Export::Xls::ComparisonDeCh)
+        ODDB.config.remote_databases = []
+        assert_nothing_raised {
+          Server.run(Date.new(2007))
+        }
+        exp = flexmock('exp')
+        path = File.join(@data_dir, 'chde.xls')
+        remote = flexmock('remote')
+        drb = DRb.start_service('druby://localhost:0', remote)
+        klass.should_receive(:new).and_return(exp)
+        exp.should_receive(:export).and_return { |uri, file|
+          assert_equal(drb.uri, uri)
+          assert_instance_of(File, file)
+          assert_equal(path, file.path)
+        }
+        ODDB.config.remote_databases = [drb.uri]
+        remote.should_receive(:remote_export).and_return { |file, block| 
+          assert_equal("chde.xls", file)
+          block.call(path) }
+        Server.run(Date.new(2007))
+      end
+      def test_remote_export_chde
+        flexmock(Util::Mail).should_receive(:notify_admins)\
+          .and_return { |subj, body| flunk(body.join("\n")) }
+        klass = flexmock(Export::Xls::ComparisonDeCh)
+        ODDB.config.remote_databases = []
+        assert_nothing_raised {
+          Server.remote_export_chde
+        }
+        exp = flexmock('exp')
+        path = File.join(@data_dir, 'chde.xls')
+        remote = flexmock('remote')
+        drb = DRb.start_service('druby://localhost:0', remote)
+        klass.should_receive(:new).and_return(exp)
+        exp.should_receive(:export).and_return { |uri, file|
+          assert_equal(drb.uri, uri)
+          assert_instance_of(File, file)
+          assert_equal(path, file.path)
+        }
+        ODDB.config.remote_databases = [drb.uri]
+        remote.should_receive(:remote_export).and_return { |file, block| 
+          assert_equal("chde.xls", file)
+          block.call(path) }
+        Server.remote_export_chde
+      end
+      def test_remote_export_yaml
+        flexmock(Util::Mail).should_receive(:notify_admins)\
+          .and_return { |subj, body| flunk(body.join("\n")) }
+        klass = flexmock(Export::Yaml::Drugs)
+        ODDB.config.remote_databases = []
+        assert_nothing_raised {
+          Server.remote_export_yaml
+        }
+        exp = flexmock('exp')
+        path = File.join(@data_dir, 'de.oddb.yaml')
+        remote = flexmock('remote')
+        drb = DRb.start_service('druby://localhost:0', remote)
+        klass.should_receive(:new).and_return(exp)
+        exp.should_receive(:export).and_return { |file|
+          assert_instance_of(File, file)
+          assert_equal(path, file.path)
+        }
+        ODDB.config.remote_databases = [drb.uri]
+        remote.should_receive(:remote_export).and_return { |file, block| 
+          assert_equal("de.oddb.yaml", file)
+          block.call(path) }
+        Server.remote_export_yaml
+      end
+      def test_on_monthday
+        called = false
+        Server.on_monthday(3, Date.new(2007,10)) {
+          called = true
+        }
+        assert_equal(false, called, "Should not have called the block: 3 != 1")
+        Server.on_monthday(3, Date.new(2007,10,3)) {
+          called = true
+        }
+        assert_equal(true, called, "Should have called the block: 3 == 3")
+        called = false
+        Server.on_monthday(Date.today.day) {
+          called = true
+        }
+        assert_equal(true, called, 
+                     "Should have called the block: defaults to today")
+      end
+     def test_safe_export
+        flexmock(Util::Mail).should_receive(:notify_admins).times(1)
+        klass = Struct.new(:foo, :bar)
+        Server.safe_export(klass) { |exporter|
+          assert_instance_of(klass, exporter)
+          raise "exception - admins should be notified" }
+      end
+=end
+      def test_on_weekday
+        called = false
+        Server.on_weekday(0, Date.new(2010,11,22)) {
+          called = true
+        }
+        assert_equal(false, called, "Should not have called the block: 0 != 1")
+        Server.on_weekday(0, Date.new(2010,11,21)) {
+          called = true
+        }
+        assert_equal(true, called, "Should have called the block: 0 == 0")
+        called = false
+        Server.on_weekday(Date.today.wday) {
+          called = true
+        }
+        assert_equal(true, called, 
+                     "Should have called the block: defaults to today")
+      end
+      def test_report_download__1
+        # Case: there is no log file
+        flexstub(File) do |klass|
+          klass.should_receive(:join)
+          klass.should_receive(:readlines).and_raise(StandardError)
+        end
+        subject = sprintf("de.ODDB.org Report - Download-Statistics - %s", Time.now.strftime('%m/%Y'))
+        lines = /Nothing/
+        flexstub(Util::Mail).should_receive(:notify_admins).with(subject, lines)  # check lines here
+        assert_nothing_raised do 
+          Server.report_download
+        end
+
+      end
+      def test_report_download__2
+        # Case: there is a log file
+        subject = sprintf("de.ODDB.org Report - Download-Statistics - %s", Time.now.strftime('%m/%Y'))
+        lines = 'test report'
+        flexstub(File) do |klass|
+          klass.should_receive(:join)
+          klass.should_receive(:readlines).and_return(lines)
+        end
+        flexstub(Util::Mail).should_receive(:notify_admins).with(subject, lines)  # check lines here
+        assert_nothing_raised do 
+          Server.report_download
+        end
+      end
+    end
+  end
+end

data/test/export/test_xls.rb

@@ -0,0 +1,146 @@
+#!/usr/bin/env ruby
+# Export::Xls::Test -- de.oddb.org -- 16.03.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+$: << File.expand_path('..', File.dirname(__FILE__))
+
+require 'drb'
+require 'flexmock'
+require 'test/unit'
+require 'oddb/config'
+require 'oddb/export/xls'
+require 'stub/model'
+
+module ODDB
+  module Export
+    module Xls
+class TestComparisonDeCh < Test::Unit::TestCase
+  include FlexMock::TestCase
+  def setup
+    @export = ComparisonDeCh.new
+    flexstub(Currency).should_receive(:rate).with('EUR', 'CHF')\
+      .and_return(1.6)
+  end
+  def setup_package(name="Amantadin by Producer", atccode='N04BB01')
+    product = Drugs::Product.new
+    company = Business::Company.new
+    company.name.de = 'Producer AG'
+    product.company = company
+    company.save
+    sequence = Drugs::Sequence.new
+    sequence.product = product
+    atc = Drugs::Atc.new(atccode)
+    atc.name.de = 'Amantadin'
+    ddd = Drugs::Ddd.new('O')
+    ddd.dose = Drugs::Dose.new(10, 'mg')
+    atc.add_ddd(ddd)
+    sequence.atc = atc
+    composition = Drugs::Composition.new
+    galform = Drugs::GalenicForm.new
+    galform.description.de = 'Tropfen'
+    composition.galenic_form = galform
+    grp = Drugs::GalenicGroup.new('Tropfen')
+    grp.administration = 'O'
+    galform.group = grp
+    sequence.add_composition(composition)
+    substance = Drugs::Substance.new
+    substance.name.de = 'Amantadin'
+    dose = Drugs::Dose.new(100, 'mg')
+    active_agent = Drugs::ActiveAgent.new(substance, dose)
+    composition.add_active_agent(active_agent)
+    package = Drugs::Package.new
+    code = Util::Code.new(:cid, '12345', 'DE')
+    package.add_code(code)
+    code = Util::Code.new(:festbetragsstufe, 3, 'DE')
+    package.add_code(code)
+    code = Util::Code.new(:festbetragsgruppe, 4, 'DE')
+    package.add_code(code)
+    code = Util::Code.new(:zuzahlungsbefreit, true, 'DE')
+    package.add_code(code)
+    code = Util::Code.new(:prescription, true, 'DE')
+    package.add_code(code)
+    part = Drugs::Part.new
+    part.package = package
+    part.size = 5
+    part.composition = composition
+    unit = Drugs::Unit.new
+    unit.name.de = 'Ampullen'
+    part.unit = unit
+    part.quantity = Drugs::Dose.new(20, 'ml')
+    package.name.de = name
+    package.sequence = sequence
+    package.add_price(Util::Money.new(16, :public, 'DE'))
+    package.add_price(Util::Money.new(20, :festbetrag, 'DE'))
+    package.add_price(Util::Money.new(6.5, :exfactory, 'DE'))
+    package.save
+    package
+  end
+  def setup_remote_package(name, uid='55555', price=30, ikscat='B')
+    rpackage = flexmock('Remote Package')
+    rpackage.should_receive(:barcode).and_return("7680#{uid}0012")
+    rpackage.should_receive(:name_base).and_return(name)
+    rpackage.should_receive(:price_public).and_return {
+      price
+    }
+    rpackage.should_receive(:price_exfactory).times(1).and_return {
+      price / 2
+    }
+    rpackage.should_receive(:ikscat).and_return(ikscat)
+    rpackage.should_receive(:sl_entry).and_return(true)
+    rpackage.should_receive(:comparable_size)\
+      .and_return(Drugs::Dose.new(100, 'ml'))
+    rpackage.should_receive(:__drbref).and_return(uid)
+    rcompany = flexmock('Remote Company')
+    rpackage.should_receive(:company).and_return(rcompany)
+    rcompany.should_receive(:name).and_return('Producer (Schweiz) AG')
+    ratc = flexmock('Remote Atc Class')
+    rpackage.should_receive(:atc_class).and_return(ratc)
+    ratc.should_receive(:code).and_return('N04BB01')
+    ratc.should_receive(:de).and_return('Amantadine')
+    ragent = flexmock('Remote ActiveAgent')
+    rpackage.should_receive(:active_agents).and_return([ragent])
+    rsubstance = flexmock('Remote Substance')
+    ragent.should_receive(:dose).and_return(Drugs::Dose.new(100, 'mg'))
+    ragent.should_receive(:substance).and_return(rsubstance)
+    rsubstance.should_receive(:de).and_return('Amantadinum')
+    rgalform = flexmock('Remote Galenic Form')
+    rpackage.should_receive(:galenic_forms).and_return([rgalform])
+    rgalform.should_receive(:de).and_return('Tropfen')
+    rgroup = flexmock('Remote Galenic Group')
+    rgroup.should_receive(:de).and_return('Unbekannt')
+    rgalform.should_receive(:galenic_group).and_return(rgroup)
+    rpackage.should_ignore_missing
+    rpackage
+  end
+  def test_export
+    remote = flexmock('remote')
+    pack = setup_package
+    rpack = setup_remote_package('Remotadin')
+    remote.should_receive(:remote_each_package).and_return { |block|
+      block.call(rpack)
+    }
+    drb = DRb.start_service('druby://localhost:0', remote)
+    book = flexmock('workbook')
+    book.should_receive(:add_format).with(Spreadsheet::Format)
+    book.should_ignore_missing
+    flexstub(Spreadsheet::Excel).should_receive(:new).and_return(book)
+    sheet = flexmock('worksheet')
+    book.should_receive(:add_worksheet).with('Preisvergleich')\
+      .times(1).and_return(sheet)
+    sheet.should_receive(:write).with(0,0, Array, Spreadsheet::Format).times(1)
+
+    expected = [ "Amantadin by Producer (Remotadin)", "100 ml", "23.15",
+                 "Producer AG (Producer (Schweiz) AG)", "12345",
+                 "7680555550012", "Tropfen", "100 mg", 
+                 "Amantadin (Amantadinum)", "N04BB01", "B", "SL", 
+                 "-6.85", "-22.84%", "1.00", "9.40", "15.00", "-5.60", "-37.31%" ]
+    sheet.should_receive(:write).with(1,0, Array).times(1)\
+      .and_return { |row, col, cells|
+      assert_equal(expected, cells)
+    }
+    @export.export(drb.uri, '')
+  end
+end
+    end
+  end
+end

data/test/export/test_yaml.rb

@@ -0,0 +1,120 @@
+#!/usr/bin/env ruby
+# Export::Yaml::Test -- de.oddb.org -- 11.10.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+$: << File.expand_path('..', File.dirname(__FILE__))
+
+require 'drb'
+require 'flexmock'
+require 'test/unit'
+require 'oddb/persistence/odba/export'
+require 'oddb/util/money'
+require 'stub/model'
+
+module ODDB
+  module Export
+    module Yaml
+class TestOdbaYamlInternals < Test::Unit::TestCase
+  include FlexMock::TestCase
+  def test_code
+    code = ODDB::Util::Code.new("codetype", "codevalue", "country")
+    code.extend(ODBA::Persistable)
+    assert_equal(['@country', '@type'], code.to_yaml_properties)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Util::Code 
+country: COUNTRY
+type: codetype
+value: codevalue
+    EOS
+    assert_equal(expected, code.to_yaml)
+  end
+  def test_company
+    company = ODDB::Business::Company.new
+    company.name.de = "Test GmbH"
+    company.extend(ODBA::Persistable)
+    assert_not_nil(company.products)
+    assert_equal(['@name'], company.to_yaml_properties)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Business::Company 
+name: !de.oddb.org,2007/ODDB::Util::Multilingual 
+  canonical: 
+    :de: Test GmbH
+  synonyms: []
+
+    EOS
+    assert_equal(expected, company.to_yaml)
+  end
+  def test_dose
+    dose = ODDB::Drugs::Dose.new(912.5, 'mg')
+    dose.extend(ODBA::Persistable)
+    assert_equal(['@val', '@unit'], dose.to_yaml_properties)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Drugs::Dose 
+val: 912.5
+unit: mg
+    EOS
+    assert_equal(expected, dose.to_yaml)
+  end
+  def test_export
+    p1 = ODDB::Drugs::Product.new
+    p1.instance_variable_set('@odba_id', 1)
+    p1.extend(ODBA::Persistable)
+    p2 = ODDB::Drugs::Product.new
+    p2.instance_variable_set('@odba_id', 2)
+    p2.extend(ODBA::Persistable)
+    flexmock(ODDB::Drugs::Product).should_receive(:all).and_return { |block|
+      block.call p1
+      block.call p2
+    }
+    io = StringIO.new
+    Drugs.new.export(io)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Drugs::Product 
+oid: 1
+sequences: []
+
+--- !de.oddb.org,2007/ODDB::Drugs::Product 
+oid: 2
+sequences: []
+
+    EOS
+    io.rewind
+    assert_equal expected, io.read
+  end
+  def test_package
+    package = ODDB::Drugs::Package.new
+    package.add_price(Util::Money.new(12.50, :public))
+    package.sequence = ODDB::Drugs::Sequence.new
+    package.add_part(ODDB::Drugs::Part.new)
+    package.extend(ODBA::Persistable)
+    assert_equal(['@parts'], package.to_yaml_properties)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Drugs::Package 
+parts: 
+- !de.oddb.org,2007/ODDB::Drugs::Part 
+  size: 1
+prices: 
+  public: 12.5
+    EOS
+    assert_equal(expected, package.to_yaml)
+  end
+  def test_product
+    assert_respond_to(ODDB::Drugs::Product, :export)
+    product = ODDB::Drugs::Product.new
+    product.extend(ODBA::Persistable)
+    company = ODDB::Business::Company.new
+    product.company = company
+    assert_equal(['@company', '@sequences'], product.to_yaml_properties)
+    expected = <<-EOS
+--- !de.oddb.org,2007/ODDB::Drugs::Product 
+company: !de.oddb.org,2007/ODDB::Business::Company {}
+
+sequences: []
+
+    EOS
+    assert_equal(expected, product.to_yaml)
+  end
+end
+    end
+  end
+end