de.oddb 2.0.0

data/lib/oddb/util/yus.rb

@@ -0,0 +1,46 @@
+#!/usr/bin/env ruby
+# Yus -- de.oddb.org -- 30.01.2008 -- hwyss@ywesee.com
+
+require 'drb'
+require 'yus/session'
+
+module ODDB
+  module Util
+module Yus
+  def Yus.create_user(email, pass=nil)
+    Yus.server.autosession(ODDB.config.auth_domain) { |session|
+      session.create_entity(email, pass)
+    }
+    # if there is a password, we can log in
+    ODDB.server.login(email, pass) if(pass)
+  end
+  def Yus.get_preference(name, key)
+    Yus.server.autosession(ODDB.config.auth_domain) { |session|
+      session.get_entity_preference(name, key)
+    }
+  rescue ::Yus::YusError
+    nil # return nil
+  end
+  def Yus.get_preferences(name, *keys)
+    Yus.server.autosession(ODDB.config.auth_domain) { |session|
+      session.get_entity_preferences(name, keys.flatten)
+    }
+  rescue ::Yus::YusError
+    {} # return an empty hash
+  end
+  def Yus.grant(name, key, item, expires=nil)
+    Yus.server.autosession(ODDB.config.auth_domain) { |session|
+      session.grant(name, key, item, expires)
+    }
+  end
+  def Yus.server
+    DRb::DRbObject.new(nil, ODDB.config.auth_server)
+  end
+  def Yus.set_preference(name, key, value, domain=ODDB.config.auth_domain)
+    Yus.server.autosession(ODDB.config.auth_domain) { |session|
+      session.set_entity_preference(name, key, value, domain)
+    }
+  end
+end
+  end
+end

data/test/business/test_company.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# Business::TestCompany -- de.oddb.org -- 22.11.2006 -- hwyss@ywesee.com
+
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/business/company'
+
+module ODDB
+  module Business
+    class TestCompany < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @company = Company.new
+      end
+      def test_packages
+        prod1 = flexmock('product')
+        prod2 = flexmock('product')
+        @company.add_product(prod1)
+        @company.add_product(prod2)
+        prod1.should_receive(:packages).and_return(['foo', 'bar'])
+        prod2.should_receive(:packages).and_return(['baz'])
+        assert_equal(['foo', 'bar', 'baz'], @company.packages)
+      end
+    end
+  end
+end

data/test/business/test_grant_download.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+# Business::TestGrantDownload -- de.oddb.org -- 22.11.2011 -- mhatakeyama@ywesee.com
+
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'oddb/business/grant_download'
+
+module ODDB
+  module Business
+    class TestGrantDownload < Test::Unit::TestCase
+      def setup
+        @user = GrantDownload.new('aaa@bbb.ccc')
+        @user.grant_download('test1.dat', Time.local(1999,12,31))
+        @user.grant_download('test2.dat', Time.local(2999,12,31))
+      end
+      def test_grant_download
+        assert_equal(@user.grant_list.length, 2) 
+        assert_equal(@user.grant_list['test1.dat'], Time.local(1999,12,31))
+      end
+      def test_expired?
+        assert_equal(@user.expired?('test1.dat'), true)
+        assert_equal(@user.expired?('test2.dat'), false)
+        assert_equal(@user.expired?('test3.dat'), true)
+      end
+    end
+  end
+end

data/test/drugs/test_active_agent.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# Drugs::TestActiveAgent -- de.oddb.org -- 22.11.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/drugs/active_agent'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+    class TestActiveAgent < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def test_create
+        substance = flexmock('substance')
+        dose = Dose.new(100, 'mg')
+        agent = ActiveAgent.new(substance, dose)
+        assert_equal(dose, agent.dose)
+        agent = ActiveAgent.new(substance, 100, 'mg')
+        assert_equal(dose, agent.dose)
+      end
+      def test_equality
+        substance = flexmock('substance')
+        dose = Dose.new(100, 'mg')
+        agent = ActiveAgent.new(substance, dose)
+        equal = ActiveAgent.new(substance, dose)
+        assert_equal(true, agent == equal)
+        assert_equal(true, equal == agent)
+
+        other = ActiveAgent.new(substance, Dose.new(200, 'mg'))
+        assert_equal(false, other == agent)
+        assert_equal(false, agent == other)
+        
+        substance = flexmock('different substance')
+        other = ActiveAgent.new(substance, dose)
+        assert_equal(false, other == agent)
+        assert_equal(false, agent == other)
+
+        other.chemical_equivalence = equal
+        assert_equal(true, other == agent)
+        assert_equal(true, agent == other)
+      end
+      def test_equality__nil
+        substance = flexmock('substance')
+        dose = Dose.new(100, 'mg')
+        agent = ActiveAgent.new(substance, dose)
+
+        assert_equal(false, agent == nil)
+      end
+    end
+  end
+end

data/test/drugs/test_atc.rb

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+# Drugs::TestAtc -- de.oddb.org -- 20.02.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'oddb/drugs/atc'
+require 'test/stub/model'
+
+module ODDB
+  module Drugs
+    class TestAtc < Test::Unit::TestCase
+      def setup
+        @atc = Atc.new('A01AA01')
+      end
+      def test_level
+        l1 = Atc.new('A')
+        assert_equal(1, l1.level)
+        l2 = Atc.new('A01')
+        assert_equal(2, l2.level)
+        l3 = Atc.new('A01A')
+        assert_equal(3, l3.level)
+        l4 = Atc.new('A01AA')
+        assert_equal(4, l4.level)
+        assert_equal(5, @atc.level)
+      end
+      def test_parent
+        @atc.save
+        parent = Atc.new('A01AA')
+        parent.save
+        grandparent = Atc.new('A01A')
+        grandparent.save
+        assert_equal(parent, @atc.parent)
+        assert_equal(grandparent, parent.parent)
+        assert_nil(grandparent.parent)
+      end
+      def test_parent_code
+        assert_equal('A01AA', @atc.parent_code)
+        l4 = Atc.new('A01AA')
+        assert_equal('A01A', l4.parent_code)
+        l3 = Atc.new('A01A')
+        assert_equal('A01', l3.parent_code)
+        l2 = Atc.new('A01')
+        assert_equal('A', l2.parent_code)
+        l1 = Atc.new('A')
+        assert_equal(nil, l1.parent_code)
+      end
+      def test_sort
+        other = Atc.new('B01BC02')
+        assert_equal([@atc, other], [other, @atc].sort)
+      end
+    end
+  end
+end

data/test/drugs/test_composition.rb

@@ -0,0 +1,88 @@
+#!/usr/bin/env ruby
+# Drugs::TestComposition -- de.oddb.org -- 10.11.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'flexmock'
+require 'test/unit'
+require 'oddb/drugs/composition'
+
+module ODDB
+  module Drugs
+    class TestComposition < Test::Unit::TestCase
+      include FlexMock::TestCase
+      def setup
+        @composition = Composition.new
+      end
+      def test_active_agent
+        agt1 = flexmock('agent')
+        agt2 = flexmock('agent')
+        agt1.should_receive(:substance).and_return("substance1")
+        agt2.should_receive(:substance).and_return("substance2")
+        @composition.add_active_agent(agt1)
+        @composition.add_active_agent(agt2)
+        assert_equal(agt1, @composition.active_agent("substance1"))
+        assert_equal(agt2, @composition.active_agent("substance2"))
+      end
+      def test_equality
+        other = Composition.new
+        third = Composition.new
+        assert_equal(true, other == @composition)
+        assert_equal(true, @composition == other)
+        assert_equal(true, third == @composition)
+        assert_equal(true, @composition == third)
+
+        gform1 = flexmock('galenic form')
+        @composition.galenic_form = gform1
+        assert_equal(false, other == @composition)
+        assert_equal(false, @composition == other)
+
+        other.galenic_form = gform1
+        assert_equal(true, other == @composition)
+        assert_equal(true, @composition == other)
+
+        gform2 = flexmock('other galenic form')
+        third.galenic_form = gform2
+        assert_equal(false, third == @composition)
+        assert_equal(false, @composition == third)
+
+        agt1 = flexmock('active agent')
+        agt1.should_receive(:<=>).and_return(-1)
+        @composition.add_active_agent(agt1)
+        assert_equal(false, other == @composition)
+        assert_equal(false, @composition == other)
+
+        other.add_active_agent(agt1)
+        assert_equal(true, other == @composition)
+        assert_equal(true, @composition == other)
+
+        agt2 = flexmock('other active agent')
+        agt2.should_receive(:<=>).and_return(1)
+        third.galenic_form = gform1
+        third.add_active_agent(agt2)
+        assert_equal(false, third == @composition)
+        assert_equal(false, @composition == third)
+
+        @composition.add_active_agent(agt2)
+        other.add_active_agent(agt2)
+        third.add_active_agent(agt1)
+        assert_equal(true, other == @composition)
+        assert_equal(true, @composition == other)
+        assert_equal(true, third == @composition)
+        assert_equal(true, @composition == third)
+      end
+      def test_include
+        sub1 = flexmock('substance')
+        sub2 = flexmock('substance')
+        assert_equal(false, @composition.include?(sub1, 10, 'mg'))
+        assert_equal(false, @composition.include?(sub2, 10, 'mg'))
+        act = flexmock('active_agent')
+        @composition.add_active_agent(act)
+        act.should_receive(:substance).and_return(sub1)
+        act.should_receive(:dose).and_return(Dose.new(10, 'mg'))
+        assert_equal(true, @composition.include?(sub1, 10, 'mg'))
+        assert_equal(false, @composition.include?(sub2, 10, 'mg'))
+      end
+    end
+  end
+end

data/test/drugs/test_ddd.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# Drugs::TestDdd -- de.oddb.org -- 12.12.2006 -- hwyss@ywesee.com
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'oddb/drugs/ddd'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+    class TestDdd < Test::Unit::TestCase
+      def test_to_s
+        ddd = Ddd.new('o')
+        ddd.dose = Dose.new(12, 'mg')
+        assert_equal('o: 12 mg', ddd.to_s)
+        ddd.comment = 'a comment'
+        assert_equal('o: 12 mg (a comment)', ddd.to_s)
+      end
+    end
+  end
+end

data/test/drugs/test_dose.rb

@@ -0,0 +1,189 @@
+#!/usr/bin/env ruby
+# Drugs::TestDose -- de.oddb.org -- 07.11.2006 -- hwyss@ywesee.com 
+
+$: << File.expand_path('../../lib', File.dirname(__FILE__))
+
+require 'test/unit'
+require 'oddb/drugs/dose'
+
+module ODDB
+  module Drugs
+class TestDose < Test::Unit::TestCase
+  def setup
+    @dose = Dose.new('1,7', 'mL')
+  end
+  def test_initialize1
+    vals = ['Aspirin, Tabletten', '12', '500', 'mg', 'D']
+    dose = Dose.new(*vals[2,2])
+    assert_equal(500, dose.qty)
+    assert_equal('mg', dose.unit.to_s)
+    assert_equal('500 mg', dose.to_s)
+  end
+  def test_initialize2
+    vals = ['Hametum, Salbe', '62.5', 'mg/g', 'D']
+    dose = Dose.new(*vals[1,2])
+    assert_equal(62.5, dose.qty)
+    assert_equal('mg/g', dose.unit.to_s)
+    assert_equal('62.5 mg/g', dose.to_s)
+  end
+  def test_initialize3
+    dose = Dose.new('1,7', 'mL')
+    assert_equal(1.7, dose.qty)
+    assert_equal('ml', dose.unit.to_s)
+    assert_equal('1.7 ml', dose.to_s)
+  end
+  def test_initialize4
+    compare = Dose.new(6.25, 'mg/g')
+    vals = ['62.5', 'mg/10g']
+    dose = Dose.new(*vals)
+    assert_equal(6.25, dose.qty)
+    assert_equal('mg/g', dose.unit.to_s)
+    assert_equal('62.5mg / 10g', dose.to_s)
+    assert_equal(0, compare<=>dose)
+    assert_equal(compare, dose)
+  end
+  def test_initialize5
+    compare = Dose.new(0.5, 'mg/ml')
+    vals = [1, 'mg/2ml']
+    dose = Dose.new(*vals)
+    assert_equal(0.5, dose.qty)
+    assert_equal('mg/ml', dose.unit.to_s)
+    assert_equal('1mg / 2ml', dose.to_s)
+    assert_equal(0, compare<=>dose)
+    assert_equal(compare, dose)
+  end
+  def test_initialize6
+    vals = ['62.5', ' mg / 10g']
+    dose = Dose.new(*vals)
+    assert_equal(6.25, dose.qty)
+    assert_equal('mg/g', dose.unit.to_s)
+    assert_equal('62.5mg / 10g', dose.to_s)
+  end
+  def test_initialize7
+    dose = Dose.new('0.025', '%')
+    assert_equal(0.025, dose.qty)
+    assert_equal('%', dose.unit.to_s)
+    assert_equal('0.025 %', dose.to_s)
+  end
+  def test_initialize8
+    dose = Dose.new('40-60', 'mg')
+    assert_equal(50, dose.qty)
+    assert_equal('mg', dose.unit.to_s)
+    assert_equal('40-60 mg', dose.to_s)
+  end
+  def test_comparable1
+    dose1 = Dose.new(10, 'mg')
+    dose2 = Dose.new(10, 'mg')
+    assert_equal(dose1, dose2)
+  end
+  def test_comparable2
+    dose1 = Dose.new(10, 'mg')
+    dose2 = Dose.new(10, 'g')
+    assert(dose2 > dose1, "dose2 was not > dose1")
+  end
+  def test_comparable3
+    dose1 = Dose.new(1000, 'I.E.')
+    dose2 = Dose.new(500, 'I.E.')
+    assert(dose2 < dose1, "dose2 was not < dose1")
+  end
+  def test_comparable4
+    dose1 = Dose.new(1000, 'mg')
+    dose2 = Dose.new(500, 'I.E.')
+    assert_equal(-1, dose2 <=> dose1, "dose2 was not < dose1")
+  end
+  def test_comparable5
+    dose1 = Dose.new(1000, 'mg')
+    dose2 = Dose.new(500, 'l')
+    assert_equal(-1, dose2 <=> dose1, "dose2 was not < dose1")
+  end
+  def test_comparable6
+    dose1 = Dose.new(1000, 'mg')
+    dose2 = Dose.new(1, 'g')
+    assert(dose2 == dose1, "dose2 was not == dose1")
+  end
+  def test_comparable7
+    dose1 = Dose.new('400-600', 'mg')
+    dose2 = Dose.new('0.4-0.6', 'g')
+    assert(dose2 == dose1, "dose2 was not == dose1")
+  end
+  def test_comparable8
+    dose1 = Dose.new('1000', 'µg')
+    dose2 = Dose.new('1', 'mg')
+    assert(dose2 == dose1, "dose2 was not == dose1")
+  end
+  def test_comparable9
+    dose1 = Dose.new(1000)
+    assert(dose1 == 1000, "Dose was not equal to equivalent Fixnum")
+    assert(1000 == dose1, "Fixnum was not equal to equivalent Dose")
+  end
+  def test_comparable10
+    dose1 = Dose.new(1000)
+    dose2 = Dose.new(1000, 'mg')
+    dose3 = Dose.new(500)
+    dose4 = Dose.new(1000)
+    assert_equal(-1, dose1 <=> dose2)
+    assert_equal(1, dose2 <=> dose1)
+    assert_equal(-1, dose3 <=> dose1)
+    assert_equal(1, dose1 <=> dose3)
+    assert_equal(0, dose1 <=> dose4)
+  end
+  def test_complex_unit
+    dose = nil
+    assert_nothing_raised {
+      dose = Dose.new(20.0, 'mg/5ml')
+    }
+  end
+  def test_from_quanty  
+    quanty = Quanty.new(1,'mg')
+    result = Dose.from_quanty(quanty)
+    assert_instance_of(Dose, result)
+    assert_equal(Dose.new(1, 'mg'), result)
+  end  
+  def test_addition
+    dose1 = Dose.new(7,'ml')
+    dose2 = Dose.new(1,'cl')
+    assert_equal(Dose.new(1.7, 'cl'), dose1 + dose2)
+  end
+  def test_subtraction
+    dose1 = Dose.new(1,'cl')
+    dose2 = Dose.new(7,'ml')
+    assert_equal(Dose.new(0.3, 'cl'), dose1 - dose2)
+  end
+  def test_multiplication
+    dose1 = Dose.new(1,'ml')
+    dose2 = Dose.new(1.7,'kg')
+    assert_equal(Dose.new(1.7, 'ml kg'), dose1 * dose2)
+  end
+  def test_division
+    dose1 = Dose.new(0.2,'g')
+    dose2 = Dose.new(100,'ml')
+    assert_equal(Dose.new(2, 'mg/ml'), dose1 / dose2)
+  end
+  def test_robust_initalizer
+    assert_nothing_raised {
+      Dose.new(12)
+    }
+  end
+  def test_range
+    dose = nil
+    assert_nothing_raised {
+      dose = Dose.new(1..5, 'mg')
+    }
+    assert_equal('1-5 mg', dose.to_s)
+  end
+  def test_robust_to_f
+    dose = Dose.new(12, 'mg')
+    assert_nothing_raised {
+      dose.to_f
+    }
+  end
+  def test_robust_to_i
+    dose = Dose.new(12, 'mg')
+    assert_nothing_raised {
+      dose.to_i
+    }
+    assert_equal(12, dose.to_i)
+  end
+end
+  end
+end