roqua-healthy 1.0.0

data/spec/integration/user_spec.rb

@@ -0,0 +1,72 @@
+require 'spec_helper'
+
+describe 'Fetching A19 from USER' do
+  describe 'a patient' do
+    before { load_fixture 'user_patient', '00000123' }
+    subject { Roqua::Healthy::A19.fetch("00000123") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('IMPULSE') }
+    it { expect(subject[:identities]).to   eq([{ident: '000123', authority: 'PI'}]) }
+    it { expect(subject[:firstname]).to    eq('Alice') }
+    it { expect(subject[:initials]).to     eq('A.B.') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to be_nil }
+    it { expect(subject[:email]).to        be_nil }
+    it { expect(subject[:address_type]).to eq('L') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234 AB') }
+    it { expect(subject[:country]).to      eq('6030') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('M') }
+    it { expect(subject[:phone_cell]).to   be_nil }
+  end
+
+  describe 'a patient' do
+    before { load_fixture 'user_patient_with_maiden_name', '00000123' }
+    subject { Roqua::Healthy::A19.fetch("00000123") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('IMPULSE') }
+    it { expect(subject[:identities]).to   eq([{ident: '00000123', authority: 'PI'}]) }
+    it { expect(subject[:firstname]).to    eq('Babette') }
+    it { expect(subject[:initials]).to     eq('A.B.C.') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to be_nil }
+    it { expect(subject[:email]).to        be_nil }
+    it { expect(subject[:address_type]).to eq('L') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234 AB') }
+    it { expect(subject[:country]).to      eq('6030') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('F') }
+    it { expect(subject[:phone_cell]).to   be_nil }
+  end
+
+  describe 'a patient with gsm number and email address' do
+    before { load_fixture 'user_patient_with_gsm_and_email', '00000033' }
+    subject { Roqua::Healthy::A19.fetch("00000033") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('IMPULSE') }
+    it { expect(subject[:identities]).to   eq([{ident: '00000033', authority: 'PI'}]) }
+    it { expect(subject[:firstname]).to    eq('Albert') }
+    it { expect(subject[:initials]).to     eq('A.') }
+    it { expect(subject[:lastname]).to     eq("Pati\u00EBnt") }
+    it { expect(subject[:display_name]).to be_nil }
+    it { expect(subject[:email]).to        eq('apatient@info.nl') }
+    it { expect(subject[:address_type]).to eq('L') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234 AB') }
+    it { expect(subject[:country]).to      eq('6030') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('M') }
+    it { expect(subject[:phone_cell]).to   be_nil }
+  end
+end

data/spec/integration/xmcare_spec.rb

@@ -0,0 +1,127 @@
+require 'spec_helper'
+
+describe 'Fetching A19 from XMcare' do
+  describe 'a patient' do
+    before { load_fixture 'xmcare_patient', '12345678901' }
+    subject { Roqua::Healthy::A19.fetch("12345678901") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('ZIS') }
+    it { expect(subject[:identities]).to   eq([{ident: '12345678901', authority: 'PI'}, {ident: '123456789',   authority: 'NNNLD'}]) }
+    it { expect(subject[:firstname]).to    eq('Babette') }
+    it { expect(subject[:initials]).to     eq('A B') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to eq('Achternaam') }
+    it { expect(subject[:email]).to        eq('') }
+    it { expect(subject[:address_type]).to eq('H') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234AB') }
+    it { expect(subject[:country]).to      eq('NL') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('F') }
+    it { expect(subject[:phone_cell]).to   eq('06-12345678') }
+  end
+
+  describe 'a patient with a maiden name' do
+    before { load_fixture 'xmcare_patient_with_maiden_name', '12345678901' }
+    subject { Roqua::Healthy::A19.fetch("12345678901") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('ZIS') }
+    it { expect(subject[:identities]).to   eq([{ident: '12345678901', authority: 'PI'}, {ident: '123456789',   authority: 'NNNLD'}]) }
+    it { expect(subject[:firstname]).to    eq('Babette') }
+    it { expect(subject[:initials]).to     eq('A B') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to eq('Meisjesnaam - Achternaam') }
+    it { expect(subject[:email]).to        eq('email@example.com') }
+    it { expect(subject[:address_type]).to eq('H') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234AB') }
+    it { expect(subject[:country]).to      eq('NL') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('F') }
+    it { expect(subject[:phone_cell]).to   eq('06-12345678') }
+  end
+
+  describe 'a patient without a known birthdate' do
+    before { load_fixture 'xmcare_patient_without_birthdate', '12345678901' }
+    subject { Roqua::Healthy::A19.fetch("12345678901") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('ZIS') }
+    it { expect(subject[:identities]).to   eq([{ident: '12345678901', authority: 'PI'}, {ident: '123456789',   authority: 'NNNLD'}]) }
+    it { expect(subject[:firstname]).to    eq('Babette') }
+    it { expect(subject[:initials]).to     eq('A B') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to eq('Achternaam') }
+    it { expect(subject[:email]).to        eq('') }
+    it { expect(subject[:address_type]).to eq('H') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234AB') }
+    it { expect(subject[:country]).to      eq('NL') }
+    it { expect(subject[:birthdate]).to    be_nil }
+    it { expect(subject[:gender]).to       eq('F') }
+    it { expect(subject[:phone_cell]).to   eq('06-12345678') }
+  end
+
+  describe 'a patient with an email in an alternate place' do
+    before { load_fixture 'xmcare_patient_email_in_field_number_four', '12345678901' }
+    subject { Roqua::Healthy::A19.fetch("12345678901") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('ZIS') }
+    it { expect(subject[:identities]).to   eq([{ident: '12345678901', authority: 'PI'}, {ident: '123456789',   authority: 'NNNLD'}]) }
+    it { expect(subject[:firstname]).to    eq('Babette') }
+    it { expect(subject[:initials]).to     eq('A B') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to eq('Achternaam') }
+    it { expect(subject[:email]).to        eq('email@example.com') }
+    it { expect(subject[:address_type]).to eq('H') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234AB') }
+    it { expect(subject[:country]).to      eq('NL') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('F') }
+    it { expect(subject[:phone_cell]).to   eq('06 12 34 56 78') }
+
+  end
+
+  describe 'a patient from an xmcare instance impersonating cdis' do
+    before { load_fixture 'xmcare_impersonating_cdis', '12345678901' }
+    subject { Roqua::Healthy::A19.fetch("12345678901") }
+
+    it { expect(subject[:status]).to       eq('SUCCESS') }
+    it { expect(subject[:error]).to        be_nil }
+    it { expect(subject[:source]).to       eq('UMCG') }
+    it { expect(subject[:identities]).to   eq([{ident: '12345678901', authority: 'PI'}, {ident: '123456789',   authority: 'NNNLD'}]) }
+    it { expect(subject[:firstname]).to    eq('A') }
+    it { expect(subject[:initials]).to     eq('B C') }
+    it { expect(subject[:lastname]).to     eq('Achternaam') }
+    it { expect(subject[:display_name]).to eq('Achternaam') }
+    it { expect(subject[:email]).to        eq('') }
+    it { expect(subject[:address_type]).to eq('H') }
+    it { expect(subject[:street]).to       eq('Straatnaam 37 h-42') }
+    it { expect(subject[:city]).to         eq('PLAATSNAAM') }
+    it { expect(subject[:zipcode]).to      eq('1234AB') }
+    it { expect(subject[:country]).to      eq('NLD') }
+    it { expect(subject[:birthdate]).to    eq('17070415') }
+    it { expect(subject[:gender]).to       eq('M') }
+    it { expect(subject[:phone_cell]).to   eq('06-12345678') }
+  end
+
+  describe 'a patient that does not exist' do
+    before { load_fixture 'xmcare_patient_not_found', '12345678901' }
+
+    it 'raises PatientNotFound' do
+      expect { Roqua::Healthy::A19.fetch("12345678901") }.to raise_error(Roqua::Healthy::PatientNotFound)
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,29 @@
+require 'rspec'
+
+require 'webmock/rspec'
+WebMock.disable_net_connect! allow: "codeclimate.com"
+
+if ENV["CODECLIMATE_REPO_TOKEN"]
+  require "codeclimate-test-reporter"
+  CodeClimate::TestReporter.start
+end
+
+# Requires supporting ruby files with custom matchers and macros, etc,
+# in spec/support/ and its subdirectories.
+Dir["spec/support/**/*.rb"].each { |filename| load filename }
+
+require 'roqua/healthy'
+Roqua::Healthy.a19_endpoint = "http://10.220.0.101:60101"
+
+require 'stringio'
+LOG_FILE = StringIO.new
+Roqua.logger = Logger.new(LOG_FILE)
+
+RSpec.configure do |config|
+  config.after(:suite) do
+    if ENV["DEBUG"]
+      LOG_FILE.rewind
+      puts "", "Log file: ", LOG_FILE.read
+    end
+  end
+end

data/spec/support/fixtures.rb

@@ -0,0 +1,14 @@
+def stub_mirth(patient_id = '123')
+  stub_request(:post, Roqua::Healthy.a19_endpoint)
+    .with(body: {application: 'healthy', method: 'A19', patient_id: patient_id})
+end
+
+def stub_mirth_response(response, status = 200, patient_id = '123')
+  stub_mirth(patient_id).to_return(status: status, headers: {}, body: response)
+end
+
+def load_fixture(name, patient_id = '123')
+  fixture_filename = File.expand_path(File.join(__FILE__, "../../fixtures", "#{name}.xml"))
+  response = File.read(fixture_filename)
+  stub_mirth_response(response, 200, patient_id)
+end

data/spec/unit/a19/address_parser_spec.rb

@@ -0,0 +1,132 @@
+require 'spec_helper'
+
+describe Roqua::Healthy::A19::AddressParser do
+  def msg(*types)
+    addresses = []
+    addresses << {'PID.11.7' => 'M',
+                  'PID.11.1' => {'PID.11.1.1' => 'Mailstreet 1'},
+                  'PID.11.3' => 'Mailcity',
+                  'PID.11.5' => 'Mailzipcode',
+                  'PID.11.6' => 'Mailcountry'
+                  } if types.include?('M')
+    addresses << {'PID.11.7' => 'H',
+                  'PID.11.1' => {'PID.11.1.1' => 'Homestreet 1'},
+                  'PID.11.3' => 'Homecity',
+                  'PID.11.5' => 'Homezipcode',
+                  'PID.11.6' => 'Homecountry'
+                  } if types.include?('H')
+    addresses << {'PID.11.7' => '?',
+                  'PID.11.1' => {'PID.11.1.1' => '????street 1'},
+                  'PID.11.3' => '????city',
+                  'PID.11.5' => '????zipcode',
+                  'PID.11.6' => '????country'
+                  } if types.include?('?')
+    {'PID' => {'PID.11' => addresses}}
+  end
+
+  describe '#address_type' do
+    it 'returns M if mail address is present' do
+      message = msg('M', 'H', '?')
+      parser  = described_class.new(message)
+      expect(parser.address_type).to eq("M")
+    end
+
+    it 'returns H if home address is present' do
+      message = msg('H', '?')
+      parser  = described_class.new(message)
+      expect(parser.address_type).to eq("H")
+    end
+
+    it 'returns nil if no known address types are present' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.address_type).to be_nil
+    end
+
+    it 'returns nil if no addresses are present' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.address_type).to be_nil
+    end
+  end
+
+  describe '#street' do
+    it 'returns mail street' do
+      message = msg('M', 'H', '?')
+      parser  = described_class.new(message)
+      expect(parser.street).to eq("Mailstreet 1")
+    end
+
+    it 'returns home street' do
+      message = msg('H', '?')
+      parser  = described_class.new(message)
+      expect(parser.street).to eq("Homestreet 1")
+    end
+
+    it 'returns nil otherwise' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.street).to be_nil
+    end
+  end
+
+  describe '#city' do
+    it 'returns mail city' do
+      message = msg('M', 'H', '?')
+      parser  = described_class.new(message)
+      expect(parser.city).to eq("Mailcity")
+    end
+
+    it 'returns home city' do
+      message = msg('H', '?')
+      parser  = described_class.new(message)
+      expect(parser.city).to eq("Homecity")
+    end
+
+    it 'returns nil otherwise' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.city).to be_nil
+    end
+  end
+
+  describe '#zipcode' do
+    it 'returns mail zipcode' do
+      message = msg('M', 'H', '?')
+      parser  = described_class.new(message)
+      expect(parser.zipcode).to eq("Mailzipcode")
+    end
+
+    it 'returns home zipcode' do
+      message = msg('H', '?')
+      parser  = described_class.new(message)
+      expect(parser.zipcode).to eq("Homezipcode")
+    end
+
+    it 'returns nil otherwise' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.zipcode).to be_nil
+    end
+  end
+
+  describe '#country' do
+    it 'returns mail country' do
+      message = msg('M', 'H', '?')
+      parser  = described_class.new(message)
+      expect(parser.country).to eq("Mailcountry")
+    end
+
+    it 'returns home country' do
+      message = msg('H', '?')
+      parser  = described_class.new(message)
+      expect(parser.country).to eq("Homecountry")
+    end
+
+    it 'returns nil otherwise' do
+      message = msg('?')
+      parser  = described_class.new(message)
+      expect(parser.country).to be_nil
+    end
+  end
+end

data/spec/unit/a19/correct_patient_check_spec.rb

@@ -0,0 +1,22 @@
+require 'spec_helper'
+
+module Roqua
+  module Healthy
+    module A19
+      describe CorrectPatientCheck do
+        let(:id)     { "12345678" }
+        let(:record) { {identities: [{ident: '12345678'}]} }
+
+        it 'returns true if record is for correct patient id' do
+          checker = CorrectPatientCheck.new(id, record)
+          expect(checker.check).to be_truthy
+        end
+
+        it 'returns false if record is for different patient id' do
+          checker = CorrectPatientCheck.new('999', record)
+          expect(checker.check).to be_falsey
+        end
+      end
+    end
+  end
+end

data/spec/unit/a19/fetcher_spec.rb

@@ -0,0 +1,54 @@
+require 'spec_helper'
+
+describe Roqua::Healthy::A19::Fetcher do
+  it 'succeeds when upstream returns XML' do
+    stub_mirth_response("<HL7Message></HL7Message>")
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.not_to raise_error
+  end
+
+  it "raises when upstream does not return HTTP 200" do
+    stub_mirth_response "Request not successful", 500
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception
+  end
+
+  it 'raises when upstream responds with illegal XML' do
+    stub_mirth_response "<patient><firstname>Jan & Piet</firstname></patient>"
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_error(Roqua::Healthy::IllegalMirthResponse)
+
+    stub_mirth_response "<patient><firstname>Jan</patient>"
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_error(Roqua::Healthy::IllegalMirthResponse)
+  end
+
+  it "raises upstream is returning 'Timeout waiting for ACK' messages" do
+    stub_mirth_response "<failure><error>Timeout waiting for ACK</error></failure>", 500
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::Timeout)
+  end
+
+  it "raises upstream is returning 'connection timeout' messages" do
+    stub_mirth_response "<failure><error>Unable to connect to destination\tSocketTimeoutException\tconnect timed out</error></failure>", 500
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::Timeout)
+  end
+
+  it "raises upstream is returning 'connection refuesed' messages" do
+    stub_mirth_response "<failure><error>Unable to connect to destination\tConnectException\tConnection refused</error></failure>", 500
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::ConnectionRefused)
+  end
+
+  it "raises when upstream does not accept connections" do
+    stub_mirth.to_raise Errno::ECONNREFUSED
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::ConnectionRefused)
+  end
+
+  it 'raises when upstream is unreachable' do
+    stub_mirth.to_raise Errno::EHOSTUNREACH
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::HostUnreachable)
+  end
+
+  it "raises when upstream is timing out" do
+    stub_mirth.to_timeout
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::Timeout)
+
+    stub_mirth.to_raise Errno::ETIMEDOUT
+    expect { Roqua::Healthy::A19::Fetcher.new("123").fetch }.to raise_exception(Roqua::Healthy::Timeout)
+  end
+end

data/spec/unit/a19_spec.rb

@@ -0,0 +1,4 @@
+require 'spec_helper'
+
+describe Roqua::Healthy::A19 do
+end

data/spec/unit/message_cleaner_spec.rb

@@ -0,0 +1,47 @@
+require 'spec_helper'
+
+describe Roqua::Healthy::MessageCleaner do
+  let(:message) { {key: ""} }
+
+  describe '#message' do
+    it 'leaves clean messages untouched' do
+      message = {key: 'value', other_key: double}
+      cleaned = Roqua::Healthy::MessageCleaner.new(message).message
+      expect(cleaned).to eq(message)
+    end
+
+    it 'cleans strings that contain only a pair of double quotes' do
+      message = {key: '""'}
+      cleaned = Roqua::Healthy::MessageCleaner.new(message).message
+      expect(cleaned).to eq(key: '')
+    end
+
+    it 'cleans strings in subhashes' do
+      message = {key: {subkey: '""'}}
+      cleaned = Roqua::Healthy::MessageCleaner.new(message).message
+      expect(cleaned).to eq(key: {subkey: ''})
+    end
+
+    it 'cleans strings in arrays' do
+      message = {key: [{subkey: '""'}, {subkey: 'foo'}]}
+      cleaned = Roqua::Healthy::MessageCleaner.new(message).message
+      expect(cleaned).to eq(key: [{subkey: ''}, {subkey: 'foo'}])
+    end
+  end
+
+  describe '#clean_string' do
+    let(:cleaner) { Roqua::Healthy::MessageCleaner.new("") }
+
+    it 'does not change clean strings' do
+      expect(cleaner.clean_string("a string")).to eq("a string")
+    end
+
+    it 'strips whitespace' do
+      expect(cleaner.clean_string("   a string  ")).to eq("a string")
+    end
+
+    it 'sanitizes strings that are only a pair of double quotes' do
+      expect(cleaner.clean_string('""')).to eq('')
+    end
+  end
+end