ramaze.ch.oddb.org 1.0.0

data/test/drugs/test_part.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+# Drugs::TestPart -- de.oddb.org -- 22.11.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'oddb/drugs/part'
+
+module ODDB
+  module Drugs
+    class TestPart < Test::Unit::TestCase
+      def setup
+        @part = Part.new
+      end
+      def test_size_writer
+        @part.size = 1.5
+        assert_instance_of(Float, @part.size)
+        assert_equal(1.5, @part.size)
+        @part.size = 5
+        assert_instance_of(Fixnum, @part.size)
+        assert_equal(5, @part.size)
+      end
+      def test_comparable_size
+        assert_equal(Dose.new(1), @part.comparable_size)
+        @part.size = "4.5"
+        assert_equal(Dose.new(4.5), @part.comparable_size)
+        @part.quantity = Dose.new(20, 'ml')
+        assert_equal(Dose.new(90, 'ml'), @part.comparable_size)
+      end
+    end
+  end
+end

data/test/drugs/test_product.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+# Drugs::TestProduct -- de.oddb.org -- 09.08.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/drugs/product'
+
+module ODDB
+  module Drugs
+    class TestProduct < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @product = Product.new
+      end
+      def test_name
+        assert_instance_of(Util::Multilingual, @product.name)
+      end
+      def test_packages
+        seq1 = flexmock('sequence')
+        seq2 = flexmock('sequence')
+        seq1.should_receive(:packages).and_return(%w{foo bar})
+        seq2.should_receive(:packages).and_return(%w{baz})
+        @product.add_sequence(seq1)
+        @product.add_sequence(seq2)
+        assert_equal(%w{foo bar baz}, @product.packages)
+      end
+    end
+  end
+end

data/test/drugs/test_sequence.rb

@@ -0,0 +1,140 @@
+#!/usr/bin/env ruby
+# Drugs::TestSequence -- de.oddb.org -- 10.11.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/drugs/ddd'
+require 'oddb/drugs/sequence'
+
+module ODDB
+  module Drugs
+    class TestSequence < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @sequence = Sequence.new
+      end
+      def test_comparable
+        other = Sequence.new
+        third = Sequence.new
+        assert_equal(true, @sequence.comparable?(other))
+        assert_equal(true, other.comparable?(@sequence))
+        assert_equal(true, @sequence.comparable?(third))
+        assert_equal(true, third.comparable?(@sequence))
+
+        comp1 = flexmock('composition')
+        @sequence.add_composition(comp1)
+        assert_equal(false, @sequence.comparable?(other))
+        assert_equal(false, other.comparable?(@sequence))
+
+        other.add_composition(comp1)
+        assert_equal(true, @sequence.comparable?(other))
+        assert_equal(true, other.comparable?(@sequence))
+
+        comp2 = flexmock('other composition')
+        third.add_composition(comp2)
+        assert_equal(false, @sequence.comparable?(third))
+        assert_equal(false, third.comparable?(@sequence))
+
+        @sequence.add_composition(comp2)
+        other.add_composition(comp2)
+        third.add_composition(comp1)
+        assert_equal(true, @sequence.comparable?(other))
+        assert_equal(true, other.comparable?(@sequence))
+        assert_equal(false, @sequence.comparable?(third))
+        assert_equal(false, third.comparable?(@sequence))
+      end
+      def test_comparables
+        seq1 = Sequence.new
+        seq2 = Sequence.new
+        atc = flexmock('atc')
+        atc.should_receive(:sequences)\
+          .and_return([seq1, @sequence, seq2])
+        atc.should_ignore_missing
+        @sequence.atc = atc
+
+        comp1 = flexmock('composition')
+        @sequence.add_composition(comp1)
+        seq1.add_composition(comp1)
+        comp2 = flexmock('composition')
+        seq2.add_composition(comp2)
+
+        assert_equal([seq1, @sequence], @sequence.comparables)
+      end
+      def test_ddds
+        ddd1 = Drugs::Ddd.new('O')
+        ddd2 = Drugs::Ddd.new('P')
+        atc = flexmock('atc')
+        atc.should_ignore_missing
+        atc.should_receive(:ddds).and_return([ddd1, ddd2])
+        @sequence.atc = atc
+
+        comp1 = flexmock('composition')
+        comp1.should_ignore_missing
+        @sequence.add_composition(comp1)
+        assert_equal([], @sequence.ddds)
+
+        form1 = flexmock('galenic_form')
+        form1.should_ignore_missing
+        comp1.should_receive(:galenic_form).and_return(form1)
+        assert_equal([], @sequence.ddds)
+
+        group1 = flexmock('galenic_group')
+        group1.should_ignore_missing
+        form1.should_receive(:group).and_return(group1)
+        assert_equal([], @sequence.ddds)
+
+        group1.should_receive(:administration).and_return('O')
+        assert_equal([ddd1], @sequence.ddds)
+      end
+      def test_include
+        sub1 = flexmock('substance')
+        sub2 = flexmock('substance')
+        assert_equal(false, @sequence.include?(sub1, 10, 'mg'))
+        assert_equal(false, @sequence.include?(sub2, 10, 'mg'))
+        comp = flexmock('composition')
+        @sequence.add_composition(comp)
+        comp.should_receive(:include?).and_return { |sub, dose, unit|
+          assert_equal(10, dose)
+          assert_equal('mg', unit)
+          sub == sub1
+        }
+        assert_equal(true, @sequence.include?(sub1, 10, 'mg'))
+        assert_equal(false, @sequence.include?(sub2, 10, 'mg'))
+      end
+      def test_identical
+        other = Sequence.new
+        third = Sequence.new
+        assert_equal(true, @sequence.identical?(other))
+        assert_equal(true, other.identical?(@sequence))
+        assert_equal(true, @sequence.identical?(third))
+        assert_equal(true, third.identical?(@sequence))
+
+        comp1 = flexmock('composition')
+        comp1.should_ignore_missing
+        @sequence.add_composition(comp1)
+        assert_equal(false, @sequence.identical?(other))
+        assert_equal(false, other.identical?(@sequence))
+
+        other.add_composition(comp1)
+        assert_equal(true, @sequence.identical?(other))
+        assert_equal(true, other.identical?(@sequence))
+
+        comp2 = flexmock('other composition')
+        comp2.should_ignore_missing
+        third.add_composition(comp2)
+        assert_equal(false, @sequence.identical?(third))
+        assert_equal(false, third.identical?(@sequence))
+
+        @sequence.add_composition(comp2)
+        other.add_composition(comp2)
+        third.add_composition(comp1)
+        assert_equal(true, @sequence.identical?(other))
+        assert_equal(true, other.identical?(@sequence))
+        assert_equal(false, @sequence.identical?(third))
+        assert_equal(false, third.identical?(@sequence))
+      end
+    end
+  end
+end

data/test/drugs/test_substance.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+# Drugs::TestSubstance -- 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'
+
+module ODDB
+  module Drugs
+    class TestSubstance < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @substance = Substance.new
+      end
+      def test_group_writer
+        group = flexmock('group')
+        group.should_receive(:add_substance).times(1).with(@substance)
+        group.should_receive(:save).times(2)
+        assert_nil(@substance.group)
+        @substance.group = group
+        assert_equal(group, @substance.group)
+        @substance.group = group
+        assert_equal(group, @substance.group)
+        other = flexmock('other group')
+        group.should_receive(:remove_substance).times(1).with(@substance)
+        other.should_receive(:add_substance).times(1).with(@substance)
+        other.should_receive(:save).times(2)
+        @substance.group = other
+        assert_equal(other, @substance.group)
+        other.should_receive(:remove_substance).times(1).with(@substance)
+        @substance.group = nil
+        assert_nil(@substance.group)
+      end
+      def test_merge
+        @substance.name.de = 'Original'
+        other = Substance.new
+        other.name.de = 'Merged'
+        agent = flexmock('ActiveAgent')
+        other.instance_variable_set('@active_agents', [agent])
+        agent.should_receive(:substance=).with(@substance).times(1)
+        agent.should_receive(:save).times(1)
+        agent.should_ignore_missing
+        @substance.merge(other)
+        assert_equal 'Original', @substance.name.de
+        assert_equal ['Original', 'Merged'], @substance.name.all
+      end
+    end
+  end
+end

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,94 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+# 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'
+require 'rss/rss'
+
+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, 'CH') } 
+    @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_receive(:multi).and_return nil
+    p1.should_receive(:quantity).and_return nil
+    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://ch.oddb.org/resources/oddb/oddb.css\" type=\"text/css\"?>
+<rss version=\"2.0\"
+  xmlns:content=\"http://purl.org/rss/1.0/modules/content/\"
+  xmlns:dc=\"http://purl.org/dc/elements/1.1/\"
+  xmlns:trackback=\"http://madskills.com/public/xml/rss/module/trackback/\"
+  xmlns:itunes=\"http://www.itunes.com/dtds/podcast-1.0.dtd\">
+  <channel>
+    <title>Patienten- und Ärztefeedback zu Medikamenten</title>
+    <link>http://ch.oddb.org/de/home/</link>
+    <description>Patienten- und Ärztefeedback zu Medikamenten im Schweizer Gesundheitsmarkt</description>
+    <language>de</language>
+    <item>
+      <title>Feedback zu Product in der Handelsform: 10 Tabletten</title>
+      <link>http://ch.oddb.org/de/feedback/cid/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;CH - ODDB.org&lt;/TITLE&gt;&lt;LINK rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;http://ch.oddb.org/resources/oddb/oddb.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önliche 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önlicher 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 name=&quot;feedback_feed_link&quot; href=&quot;http://ch.oddb.org/de/feedbacks/cid/12345&quot;&gt;&lt;/A&gt;&lt;/DIV&gt;&lt;/BODY&gt;&lt;/HTML&gt;</description>
+      <author>ch.oddb.org</author>
+      <pubDate>#{@f1.time.rfc2822}</pubDate>
+      <guid isPermaLink=\"true\">http://ch.oddb.org/de/feedback/cid/12345/index/1</guid>
+      <dc:date>#{@f1.time.w3cdtf}</dc:date>
+    </item>
+  </channel>
+</rss>
+    EOS
+    # 2009-06-29 17:01:28 +0200
+    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,117 @@
+#!/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
+      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
+  end
+end