de.oddb 2.0.0

data/test/selenium/test_atc_guidelines.rb

@@ -0,0 +1,95 @@
+#!/usr/bin/env ruby
+# Selenium::TestAtcGuidelines -- de.oddb.org -- 16.03.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+
+require 'selenium/unit'
+require 'stub/model'
+
+module ODDB
+  module Selenium
+class TestAtcGuidelines < Test::Unit::TestCase
+  include Selenium::TestCase
+  def setup
+    super
+    @atc1 = Drugs::Atc.new('N04BA02')
+    @atc1.name.de = 'Levodopa und Decarboxylasehemmer'
+    ddd = Drugs::Ddd.new('O')
+    ddd.dose = Drugs::Dose.new(0.6, 'g')
+    @atc1.add_ddd(ddd)
+    @atc1.save
+    @atc2 = Drugs::Atc.new('N04BA')
+    @atc2.name.de = 'Dopa und Dopa-Derivate'
+    @atc2.guidelines.en = <<-EOS
+Combinations with decarboxylase inhibitors and other dopaminergic agents are classified here.
+    EOS
+    @atc2.ddd_guidelines.en = <<-EOS
+The DDD for the combination of levodopa and decarboxylase inhibitor is based on the content of levodopa, see ATC index.
+    EOS
+    @atc2.save
+    @atc3 = Drugs::Atc.new('N04B')
+    @atc3.name.de = 'Dopaminerge Mittel'
+    @atc3.save
+    @atc4 = Drugs::Atc.new('N04')
+    @atc4.name.de = 'Antiparkinsonmittel'
+    @atc4.guidelines.en = <<-EOS
+This group comprises preparations used in the treatment of Parkinson's disease and related conditions, including drug-induced parkinsonism.
+    EOS
+    @atc4.ddd_guidelines.en = <<-EOS
+The DDDs are based on recommended doses for the long-term treatment of symptoms of Parkinson's disease.
+No separate DDDs are established for oral depot formulations.
+    EOS
+    @atc4.save
+    @atc5 = Drugs::Atc.new('N')
+    @atc5.name.de = 'Nervensystem'
+    @atc5.save
+    @atc6 = Drugs::Atc.new('N04BA03')
+    @atc6.name.de = 'Levodopa, Decarboxylasehemmer und COMT-Hemmer'
+    @atc6.save
+  end
+  def test_guidelines
+    open "/de/drugs/ddd/code/N04BA02"
+
+    assert_equal 'DE - ODDB.org | Medikamente | Tagesdosis | N04BA02 | Open Drug Database', 
+                 get_title
+    assert is_text_present('N - Nervensystem')
+    assert is_text_present('N04 - Antiparkinsonmittel')
+    assert is_text_present(@atc4.guidelines.en)
+    assert is_text_present(@atc4.ddd_guidelines.en)
+    assert is_text_present('N04B - Dopaminerge Mittel')
+    assert is_text_present('N04BA - Dopa und Dopa-Derivate')
+    assert is_text_present(@atc2.guidelines.en)
+    assert is_text_present(@atc2.ddd_guidelines.en)
+    assert is_text_present('N04BA02 - Levodopa und Decarboxylasehemmer')
+    assert is_text_present('Oral')
+
+    click 'link=N04BA'
+    wait_for_page_to_load "30000"
+    assert_equal 'DE - ODDB.org | Medikamente | Tagesdosis | N04BA | Open Drug Database', 
+                 get_title
+    assert is_text_present('N - Nervensystem')
+    assert is_text_present('N04 - Antiparkinsonmittel')
+    assert is_text_present(@atc4.guidelines.en)
+    assert is_text_present(@atc4.ddd_guidelines.en)
+    assert is_text_present('N04B - Dopaminerge Mittel')
+    assert is_text_present('N04BA - Dopa und Dopa-Derivate')
+    assert is_text_present(@atc2.guidelines.en)
+    assert is_text_present(@atc2.ddd_guidelines.en)
+    assert !is_text_present('N04BA02 - Levodopa und Decarboxylasehemmer')
+    assert !is_text_present('Oral')
+  end
+  def test_guidelines__limited
+    ODDB.config.query_limit = 1
+    open "/de/drugs/ddd/code/N04BA02"
+    assert_equal 'DE - ODDB.org | Medikamente | Tagesdosis | N04BA02 | Open Drug Database', 
+                 get_title
+    open "/de/drugs/ddd/code/N04BA02"
+    assert_equal 'DE - ODDB.org | Medikamente | Open Drug Database', 
+                 get_title
+    assert is_text_present("Abfragebeschränkung")
+  ensure
+    ODDB.config.query_limit = 20
+  end
+end
+  end
+end

data/test/selenium/test_collect.rb

@@ -0,0 +1,137 @@
+#!/usr/bin/env ruby
+# Selenium::Collect -- de.oddb.org -- 04.02.2008 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+
+require 'selenium/unit'
+require 'stub/model'
+
+module ODDB
+  module Selenium
+class TestCollect < Test::Unit::TestCase
+  include Selenium::TestCase
+  def test_collect__unknown_invoice
+    open "/de/drugs/collect/invoice/875967c31e83eec9decea52130e7ee72"
+    assert is_text_present('Fehler')
+    assert is_text_present('Ihre Transaktion ist bei uns nicht registriert. Setzen Sie sich bitte per E-Mail mit uns in Verbindung.')
+  end
+  def test_collect__unpaid_invoice
+    email = 'test@invoice.ch'
+    invoice = Business::Invoice.new
+    invoice.yus_name = email
+    item = invoice.add :poweruser, "unlimited access", 365, "Tage", 2
+    invoice.save
+    id = invoice.id
+
+    open "/de/drugs/collect/invoice/#{id}"
+    assert is_text_present('Ihre Bezahlung ist von PayPal noch nicht bestätigt worden. Sobald dies geschieht werden wir Sie per E-Mail benachrichtigen.')
+    ## automatic reload
+    wait_for_page_to_load "30000"
+    assert is_text_present('Ihre Bezahlung ist von PayPal noch nicht bestätigt worden. Sobald dies geschieht werden wir Sie per E-Mail benachrichtigen.')
+  end
+  def test_collect
+    email = 'test@invoice.ch'
+    invoice = Business::Invoice.new
+    invoice.yus_name = email
+    item = invoice.add :poweruser, "unlimited access", 365, "Tage", 2
+    invoice.status = 'completed'
+    invoice.save
+    id = invoice.id
+
+    open "/de/drugs/collect/invoice/#{id}"
+    assert is_text_present('Vielen Dank! Als angemeldeter Benutzer können Sie jetzt ohne Beschränkung Abfragen vornehmen.')
+    assert is_text_present('Ihr PowerUser-Account ist bereit. Bitte melden Sie sich hier erneut mit E-Mail und Passwort an.')
+
+    click 'link=hier'
+    wait_for_page_to_load "30000"
+    assert is_element_present("email")
+    assert is_element_present("pass")
+  end
+  def test_collect__logged_in
+    ODDB.config.auth_domain = 'org.oddb.de'
+
+    email = 'test@invoice.ch'
+    invoice = Business::Invoice.new
+    invoice.yus_name = email
+    item = invoice.add :poweruser, "unlimited access", 365, "Tage", 2
+    invoice.status = 'completed'
+    invoice.save
+    id = invoice.id
+
+    permissions = [
+      ['login', 'org.oddb.de.PowerUser'], ['view', 'org.oddb.de']
+    ]
+    login email, *permissions
+
+    open "/de/drugs/collect/invoice/#{id}"
+    assert is_text_present('Vielen Dank! Als angemeldeter Benutzer können Sie jetzt ohne Beschränkung Abfragen vornehmen.')
+    assert is_text_present('Sie sind bereits angemeldet und können sofort weitersuchen.')
+  end
+  def test_collect__redirect
+    ODDB.config.auth_domain = 'org.oddb.de'
+    ODDB.config.query_limit = 1
+    package = setup_package
+    open "/de/drugs/search/query/Amantadin"
+    assert_equal "DE - ODDB.org | Medikamente | Suchen | Amantadin | Preisvergleich | Open Drug Database", 
+                 get_title
+    open "/de/drugs/search/query/Amantadin"
+    assert_equal 'DE - ODDB.org | Medikamente | Open Drug Database', 
+                 get_title
+    assert is_text_present("Abfragebeschränkung")
+
+    email = 'test@invoice.ch'
+    invoice = Business::Invoice.new
+    invoice.yus_name = email
+    item = invoice.add :poweruser, "unlimited access", 365, "Tage", 2
+    invoice.status = 'completed'
+    invoice.save
+    id = invoice.id
+
+    permissions = [
+      ['login', 'org.oddb.de.PowerUser'], ['view', 'org.oddb.de']
+    ]
+    login email, *permissions
+
+    open "/de/drugs/collect/invoice/#{id}"
+    assert_equal "DE - ODDB.org | Medikamente | Suchen | Amantadin | Preisvergleich | Open Drug Database", 
+                 get_title
+  ensure
+    ODDB.config.query_limit = 20
+  end
+  def test_collect__redirect__later
+    ODDB.config.auth_domain = 'org.oddb.de'
+    ODDB.config.query_limit = 1
+    package = setup_package
+    open "/de/drugs/search/query/Amantadin"
+    assert_equal "DE - ODDB.org | Medikamente | Suchen | Amantadin | Preisvergleich | Open Drug Database", 
+                 get_title
+    open "/de/drugs/search/query/Amantadin"
+    assert_equal 'DE - ODDB.org | Medikamente | Open Drug Database', 
+                 get_title
+    assert is_text_present("Abfragebeschränkung")
+
+    email = 'test@invoice.ch'
+    invoice = Business::Invoice.new
+    invoice.yus_name = email
+    item = invoice.add :poweruser, "unlimited access", 365, "Tage", 2
+    invoice.save
+    id = invoice.id
+
+    user = login email, ['login', 'org.oddb.de.PowerUser']
+
+    open "/de/drugs/collect/invoice/#{id}"
+    assert is_text_present('Ihre Bezahlung ist von PayPal noch nicht bestätigt worden. Sobald dies geschieht werden wir Sie per E-Mail benachrichtigen.')
+
+    invoice.status = 'completed'
+    user.permissions.push ['view', 'org.oddb.de']
+
+    ## automatic reload
+    wait_for_page_to_load "30000"
+    assert_equal "DE - ODDB.org | Medikamente | Suchen | Amantadin | Preisvergleich | Open Drug Database", 
+                 get_title
+  ensure
+    ODDB.config.query_limit = 20
+  end
+end
+  end
+end

data/test/selenium/test_compare.rb

@@ -0,0 +1,294 @@
+#!/usr/bin/env ruby
+# Selenium::TestCompare -- de.oddb.org -- 15.02.2007 -- hwyss@ywesee.com
+
+$: << File.expand_path('..', File.dirname(__FILE__))
+
+require 'selenium/unit'
+require 'stub/model'
+require 'oddb/drugs'
+require 'oddb/util'
+require 'odba/drbwrapper'
+require 'odba'
+
+module ODDB
+  module Selenium
+class TestCompare < Test::Unit::TestCase
+  include Selenium::TestCase
+  def setup
+    @cache = flexstub(ODBA.cache)
+    flexstub(Currency).should_receive(:rate)\
+      .with('EUR', 'CHF').and_return(1.5)
+    flexstub(Currency).should_receive(:rate)\
+      .with('EUR', 'CHF').and_return(1.5)
+    currency = flexmock('Currency')
+    @currency = DRb.start_service('druby://localhost:0', currency)
+    ODDB.config.currency_rates = @currency.uri
+    currency.should_receive(:rate).with('EUR', 'CHF').and_return(1.6)
+    super
+  end
+  def setup_package(name, pzn='12345', price=6)
+    product = Drugs::Product.new
+    company = Business::Company.new
+    company.name.de = 'Producer AG'
+    product.company = company
+    company.save
+    sequence = Drugs::Sequence.new
+    atc = Drugs::Atc.new('N04BB01') 
+    atc.name.de = 'Amantadin'
+    sequence.atc = atc
+    atc.save
+    sequence.product = product
+    composition = Drugs::Composition.new
+    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)
+    galform = Drugs::GalenicForm.new
+    galform.description.de = 'Tropfen'
+    galform.group = Drugs::GalenicGroup.new('Tropfen')
+    composition.galenic_form = galform
+    package = Drugs::Package.new
+    code = Util::Code.new(:festbetragsstufe, 3, 'DE')
+    package.add_code(code)
+    code = Util::Code.new(:zuzahlungsbefreit, 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
+    package.name.de = name
+    package.sequence = sequence
+    package.add_price(Util::Money.new(price, :public, 'DE'))
+    package.add_price(Util::Money.new(10, :festbetrag, 'DE'))
+    package.add_code(Util::Code.new(:cid, pzn, 'DE'))
+    package.save
+    package
+  end
+  def setup_remote_package(name, uid='55555', price=12)
+    rpackage = flexmock('Remote Package')
+    rpackage.should_receive(:name_base).and_return(name)
+    rpackage.should_receive(:price_public).and_return {
+      price
+    }
+    rpackage.should_receive(:comparable_size)\
+      .and_return(Drugs::Dose.new(4))
+    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')
+    ratc.should_receive(:ddds).and_return []
+    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-Ampullen')
+    rgroup = flexmock('Remote Galenic Group')
+    rgroup.should_receive(:de).and_return('Tropfen')
+    rgalform.should_receive(:galenic_group).and_return(rgroup)
+    rpart = flexmock('Remote Part')
+    rpart.should_receive(:comparable_size)\
+      .and_return(Drugs::Dose.new(4))
+    rpart.should_ignore_missing
+    rpackage.should_receive(:parts).and_return [rpart]
+    @cache.should_receive(:fetch).with(uid.to_i).and_return(rpackage)
+    rpackage.should_ignore_missing
+    rpackage
+  end
+  def teardown
+    super
+    ODDB.config.remote_databases = []
+    @currency.stop_service
+  end
+  def test_init
+    package = setup_package("Amantadin by Producer")
+    open "/"
+    assert_equal "DE - ODDB.org | Medikamente | Home | Open Drug Database", get_title
+    type "query", "Amantadin"
+    click "//input[@type='submit']"
+    wait_for_page_to_load "30000"
+    assert_equal "DE - ODDB.org | Medikamente | Suchen | Amantadin | Markenname | Open Drug Database", 
+                 get_title
+    click 'link=Amantadin by Producer'
+    wait_for_page_to_load "30000"
+
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | Amantadin by Producer | Open Drug Database", get_title
+    assert is_text_present('Amantadin by Producer')
+    assert is_text_present('Amantadin 100 mg')
+    assert is_text_present('5 Ampullen')
+    assert is_text_present('6.00')
+    assert is_text_present("In unserer Datenbank wurden leider keine Produkte gefunden, die mit diesem Produkt verglichen werden können.")
+  end
+  def test_compare
+    package1 = setup_package("Amantadin by Producer", '12345', 6)
+    package2 = setup_package("By another name", '54321', 3)
+    package2.code(:zuzahlungsbefreit).value = false
+    flexstub(package1).should_receive(:comparables)\
+      .and_return([package2])
+    flexstub(package2).should_receive(:comparables)\
+      .and_return([package1])
+    open "/de/drugs/compare/pzn/12345"
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | Amantadin by Producer | Open Drug Database", get_title
+    assert is_text_present('-50.0%')
+    assert_equal 'origin zuzahlungsbefreit', 
+                 get_attribute('//tr[2]@class')
+    assert_raises(SeleniumCommandError) { get_attribute('//tr[3]@class') }
+
+
+    click 'link=By another name'
+    wait_for_page_to_load "30000"
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | By another name | Open Drug Database", get_title
+    assert is_text_present('+100.0%')
+    assert_equal 'origin', 
+                 get_attribute('//tr[2]@class')
+    assert_equal 'zuzahlungsbefreit', get_attribute('//tr[3]@class')
+    assert is_text_present('Gelb = Zuzahlungsbefreit')
+    assert !is_text_present('Rot = CH - Produkte')
+  end
+  def test_compare__limited
+    ODDB.config.query_limit = 1
+    package1 = setup_package("Amantadin by Producer", '12345', 6)
+    package2 = setup_package("By another name", '54321', 3)
+    package2.code(:zuzahlungsbefreit).value = false
+    flexstub(package1).should_receive(:comparables)\
+      .and_return([package2])
+    flexstub(package2).should_receive(:comparables)\
+      .and_return([package1])
+    open "/de/drugs/compare/pzn/12345"
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | Amantadin by Producer | Open Drug Database", get_title
+    assert is_text_present('-50.0%')
+    assert_equal 'origin zuzahlungsbefreit', 
+                 get_attribute('//tr[2]@class')
+    assert_raises(SeleniumCommandError) { get_attribute('//tr[3]@class') }
+
+
+    click 'link=By another name'
+    wait_for_page_to_load "30000"
+    assert_equal 'DE - ODDB.org | Medikamente | Open Drug Database', 
+                 get_title
+    assert is_text_present("Abfragebeschränkung")
+  ensure
+    ODDB.config.query_limit = 20
+  end
+  def test_sort
+    package1 = setup_package("Amantadin by Producer", '12345', 6)
+    package2 = setup_package("By another name", '54321', 6)
+    package3 = setup_package("Yet another", '11111', 3)
+    flexstub(package1).should_receive(:comparables)\
+      .and_return([package2, package3])
+    open "/de/drugs/compare/pzn/12345"
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | Amantadin by Producer | Open Drug Database", get_title
+    assert_match(/^Yet another/, @selenium.get_text("cid_N04BB01_0"))
+    assert_match(/^By another name/, @selenium.get_text("cid_N04BB01_1"))
+
+    click "//a[@name='th_product']"
+    wait_for_page_to_load "30000"
+    assert_equal "DE - ODDB.org | Medikamente | Preisvergleich | Amantadin by Producer | Open Drug Database", get_title
+    assert_match(/^By another name/, @selenium.get_text("cid_N04BB01_0"))
+    assert_match(/^Yet another/, @selenium.get_text("cid_N04BB01_1"))
+  end
+  def test_remote
+    remote = flexmock('Remote')
+    DRb.install_id_conv(ODBA::DRbIdConv.new)
+    drb = DRb.start_service('druby://localhost:0', remote)
+    ODDB.config.remote_databases = [drb.uri]
+
+    remote.should_receive(:get_currency_rate).with('EUR').and_return 0.6
+    rpackage = setup_remote_package('Remotadin', '55555', 12)
+    remote.should_receive(:remote_packages).and_return([rpackage])
+
+    rother = setup_remote_package('Remoteric', '55556', nil)
+    rpackage.should_receive(:comparables).and_return([rother])
+
+    package = setup_package('Amantadin')
+
+    ## switch to mm-flavor
+    open "/de/drugs/home/flavor/mm"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Home | Open Drug Database", get_title
+    type "query", "Amantadin"
+    click "//input[@type='submit']"
+    wait_for_page_to_load "30000"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Suchen | Amantadin | Markenname | Open Drug Database", get_title
+  
+    rother.should_receive(:comparables).and_return([rpackage])
+    click "link=Remotadin"
+    wait_for_page_to_load "30000"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Preisvergleich | Remotadin | Open Drug Database", 
+                 get_title
+    assert_match(/^Remotadin/, get_text("cid_N04BB01_"))
+    assert is_element_present("//a[@id='cid_N04BB01_0']")
+    assert_match(/^Amantadin/, get_text("cid_N04BB01_0"))
+    assert is_element_present("//a[@id='cid_N04BB01_1']")
+    assert_match(/^Remoteric/, get_text("cid_N04BB01_1"))
+    assert is_text_present('-39.7%')
+    #assert is_text_present('-16.6%')
+
+    click "link=Remoteric"
+    wait_for_page_to_load "30000"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Preisvergleich | Remoteric | Open Drug Database", 
+                 get_title
+    assert_match(/^Remoteric/, get_text("cid_N04BB01_"))
+    assert is_element_present("//a[@id='cid_N04BB01_0']")
+    assert_match(/^Amantadin/, get_text("cid_N04BB01_0"))
+    assert is_element_present("//a[@id='cid_N04BB01_1']")
+    assert_match(/^Remotadin/, get_text("cid_N04BB01_1"))
+
+    assert is_text_present('Gelb = Zuzahlungsbefreit')
+    assert is_text_present('Rot = CH - Produkte')
+  ensure
+    drb.stop_service
+  end
+  def test_remote__reversed
+    remote = flexmock('Remote')
+    DRb.install_id_conv(ODBA::DRbIdConv.new)
+    drb = DRb.start_service('druby://localhost:0', remote)
+    ODDB.config.remote_databases = [drb.uri]
+
+    remote.should_receive(:get_currency_rate).with('EUR').and_return 0.6
+    rpackage = setup_remote_package('Remotadin', '55555', 12)
+    remote.should_receive(:remote_packages).and_return([rpackage])
+
+    rother = setup_remote_package('Remoteric', '55556', nil)
+    remote.should_receive(:remote_comparables).with(ODBA::DRbWrapper)\
+      .and_return([rpackage, rother])
+
+    package = setup_package('Amantadin')
+    ## switch to mm-flavor
+    open "/de/drugs/home/flavor/mm"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Home | Open Drug Database", get_title
+    type "query", "Amantadin"
+    click "//input[@type='submit']"
+    wait_for_page_to_load "30000"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Suchen | Amantadin | Markenname | Open Drug Database", get_title
+  
+    atc = Drugs::Atc.new('N04BB01')
+
+    rother.should_receive(:comparables).and_return([rpackage])
+    click "link=Amantadin"
+    wait_for_page_to_load "30000"
+    assert_equal "CH | DE - ODDB.org | Medikamente | Preisvergleich | Amantadin | Open Drug Database", 
+                 get_title
+    assert_match(/^Amantadin/, get_text("cid_N04BB01_"))
+    assert is_element_present("//a[@id='cid_N04BB01_0']")
+    assert_match(/^Remotadin/, get_text("cid_N04BB01_0"))
+    assert is_element_present("//a[@id='cid_N04BB01_1']")
+    assert_match(/^Remoteric/, get_text("cid_N04BB01_1"))
+    assert is_text_present('+65.9%')
+  ensure
+    drb.stop_service
+  end
+end
+  end
+end