ruby-hl7 1.1.1 → 1.2.0

data/spec/prd_segment_spec.rb

@@ -1,29 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::PRD do
-  context 'general' do
-    let (:base) { 'PRD|RP|LastName^FirstName^MiddleInitial^SR^NickName|444 Home Street^Apt B^Ann Arbor^MI^99999^USA|^^^A Wonderful Clinic|^WPN^PH^^^07^5555555|PH|4796^AUSHICPR|20130109163307+1000|20140109163307+1000' }
-    let (:prd) { HL7::Message::Segment::PRD.new base }
-
-    it 'should set the provider_role' do
-      prd.provider_role.should eql 'RP'
-    end
-
-    it 'should set the name' do
-      prd.provider_name.should eql 'LastName^FirstName^MiddleInitial^SR^NickName'
-    end
-
-    it 'should set the provider_address' do
-      prd.provider_address.should eql '444 Home Street^Apt B^Ann Arbor^MI^99999^USA'
-    end
-
-    it 'should set the provider_location' do
-      prd.provider_location.should eql '^^^A Wonderful Clinic'
-    end
-
-    it 'should set provider_communication_information' do
-      prd.provider_communication_information.should eql '^WPN^PH^^^07^5555555'
-    end
-  end
-end

data/spec/pv1_segment_spec.rb

@@ -1,23 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::PV1 do
-  context 'general' do
-    before :all do
-      @base = "PV1||R|||||||||||||||A|||V02^19900607~H02^19900607"
-    end
-
-    it 'allows access to an PV1 segment' do
-      pv1 = HL7::Message::Segment::PV1.new @base
-      pv1.patient_class.should == "R"
-    end
-
-    it 'allows creation of an OBX segment' do
-      pv1= HL7::Message::Segment::PV1.new
-      pv1.referring_doctor="Smith^John"
-      pv1.referring_doctor.should == "Smith^John"
-      pv1.admit_date = Date.new(2014, 1, 1)
-      pv1.admit_date.should == '20140101'
-    end
-  end
-end

data/spec/rf1_segment_spec.rb

@@ -1,29 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::RF1 do
-  context 'general' do
-    before :all do
-      @base = 'RF1|P^Pending^HL70283|R^Routine^HL70280|GRF^General referral^HL70281|AM^Assume management^HL70282||8094|20060705||20060705||42'
-
-    end
-
-    it 'allows access to an RF1 segment' do
-      rf1 = HL7::Message::Segment::RF1.new @base
-      rf1.referral_status.should == 'P^Pending^HL70283'
-      rf1.referral_priority.should == 'R^Routine^HL70280'
-      rf1.referral_type.should == 'GRF^General referral^HL70281'
-      rf1.referral_disposition.should == 'AM^Assume management^HL70282'
-      rf1.originating_referral_identifier.should == '8094'
-      rf1.effective_date.should == '20060705'
-      rf1.process_date.should == '20060705'
-      rf1.external_referral_identifier.should == '42'
-    end
-
-    it 'allows creation of an RF1 segment' do
-      rf1 = HL7::Message::Segment::RF1.new
-      rf1.expiration_date=Date.new(2058, 12, 1)
-      rf1.expiration_date.should == '20581201'
-    end
-  end
-end

data/spec/segment_field_spec.rb

@@ -1,92 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-class MockSegment < HL7::Message::Segment
-  weight 1
-  add_field :no_block
-  alias_field :no_block_alias, :no_block
-  add_field :validating do |value|
-    value == "bad" ? nil : value
-  end
-  add_field :converting do |value|
-    "X" + value
-  end
-end
-
-describe HL7::Message::Segment do
-  before :all do
-    @base = "Mock|no_block|validated|converted"
-  end
-
-  context "block on field definitions" do
-    it 'is evaluated on access by field name' do
-      msg = MockSegment.new(@base)
-
-      msg.to_s.should       == @base
-      msg.no_block.should   == "no_block"
-      msg.validating.should == "validated"
-      msg.converting.should == "Xconverted"
-
-      msg.no_block = "NO_BLOCK"
-      msg.no_block.should == "NO_BLOCK"
-
-      msg.validating = "good"
-      msg.validating.should == "good"
-      msg.validating = "bad"
-      msg.validating.should == ""
-
-      msg.converting = "empty"
-      msg.converting.should == "XXempty"
-    end
-
-    it 'is not evaluated on read access by eXXX alias' do
-      msg = MockSegment.new(@base)
-
-      msg.e1.should == "no_block"
-      msg.e2.should == "validated"
-      msg.e3.should == "converted"
-    end
-
-    it 'is not evaluated on write access by eXXX alias' do
-      msg = MockSegment.new(@base)
-
-      msg.e1 = "NO_BLOCK"
-      msg.e1.should == "NO_BLOCK"
-
-      msg.e2 = "good"
-      msg.e2.should == "good"
-      msg.e2 = "bad"
-      msg.e2.should == "bad"
-
-      msg.e3 = "empty"
-      msg.e3.should == "empty"
-    end
-  end
-
-  describe '#alias_field' do
-    context 'with a valid field' do
-      it 'uses alias field names' do
-        msg = MockSegment.new(@base)
-        msg.no_block.should == "no_block"
-        msg.no_block_alias.should == "no_block"
-      end
-    end
-
-    context 'with an invalid field' do
-
-      class MockInvalidSegment < HL7::Message::Segment
-        weight 1
-        add_field :no_block
-        alias_field :no_block_alias, :invalid_field
-        add_field :second
-        add_field :third
-      end
-
-
-      it 'throws an error when the field is invalid' do
-        msg = MockInvalidSegment.new(@base)
-        lambda{  msg.no_block_alias }.should raise_error
-      end
-    end
-  end
-end

data/spec/segment_generator_spec.rb

@@ -1,32 +0,0 @@
-require 'spec_helper'
-
-describe HL7::Message::SegmentGenerator do
-  describe 'valid_segments_parts?' do
-
-    let(:element){ "MSH|1|2|3" }
-    let(:delimiter){ HL7::Message::Delimiter.new('|', '^', '\r') }
-    let(:segment_generator) do
-      HL7::Message::SegmentGenerator.new(element, nil, delimiter)
-    end
-
-    it "should return true if @seg_parts is an array of one element or more" do
-      segment_generator.valid_segments_parts?.should be true
-    end
-
-    context 'when is empty' do
-      it "should return false if empty_segment_is_error is false" do
-        segment_generator.seg_parts = nil
-        HL7.ParserConfig[:empty_segment_is_error] = false
-        segment_generator.valid_segments_parts?.should be false
-      end
-
-      it "should raise an error if empty_segment_is_error is true" do
-        HL7.ParserConfig[:empty_segment_is_error] = true
-        segment_generator.seg_parts = nil
-        expect do
-          segment_generator.valid_segments_parts?
-        end.to raise_error HL7::EmptySegmentNotAllowed
-      end
-    end
-  end
-end

data/spec/segment_list_storage_spec.rb

@@ -1,47 +0,0 @@
-require 'spec_helper'
-
-class SegmentNoChildren< HL7::Message::Segment
-end
-
-class SegmentWithChildren < HL7::Message::Segment
-  has_children [:NTE,:ORC,:SPM]
-end
-
-describe HL7::Message::SegmentListStorage do
-  describe "self#add_child_type" do
-    it "should allow to add a new segment type as child" do
-      SegmentWithChildren.add_child_type :OBR
-      segment = SegmentWithChildren.new
-      segment.accepts?(:OBR).should be true
-      segment.child_types.should include :OBR
-    end
-  end
-
-  describe "Adding children has_children and add_child_type" do
-    subject do
-      segment_instance = segment_class.new
-      [:accepts?, :child_types, :children].each do |method|
-        segment_instance.respond_to?(method).should be true
-      end
-    end
-
-    context "when child_types is not present" do
-      let(:segment_class){ SegmentNoChildren }
-
-      it "by adding add_child_type should respond to the children methods" do
-        segment_instance = segment_class.new
-        segment_instance.respond_to?(:children).should be false
-        segment_class.add_child_type(:OBR)
-        subject
-      end
-    end
-
-    context "when child_types is present" do
-      let(:segment_class){ SegmentWithChildren }
-
-      it "should respond to the children methods" do
-        subject
-      end
-    end
-  end
-end

data/spec/segment_spec.rb

@@ -1,27 +0,0 @@
-require 'spec_helper'
-
-describe HL7::Message::Segment do
-  describe 'length' do
-
-    it "should return the length of the elements" do
-      segment = HL7::Message::Segment.new "MSA|AR|ZZ9380 ERR"
-      segment.length.should eq 3
-    end
-  end
-
-  describe 'is_child_segment?' do
-    let(:segment){ HL7::Message::Segment.new "MSA|AR|ZZ9380 ERR" }
-    it "return false when is not set" do
-      segment.is_child_segment?.should be false
-    end
-  end
-
-  describe 'convert_to_ts' do
-    let(:time_now){ DateTime.now }
-    let(:formated_time){ time_now.strftime('%Y%m%d%H%M%S') }
-
-    it "should conver to the hl7 time format" do
-      HL7::Message::Segment.convert_to_ts(time_now).should eq formated_time
-    end
-  end
-end

data/spec/sft_segment_spec.rb

@@ -1,26 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::SFT do
-  context 'general' do
-    before :all do
-      @base_sft = 'SFT|1|Level Seven Healthcare Software, Inc.^L^^^^&2.16.840.1.113883.19.4.6^ISO^XX^^^1234|1.2|An Lab System|56734||20080817'
-    end
-
-    it 'creates an SFT segment' do
-      lambda do
-        sft = HL7::Message::Segment::SFT.new( @base_sft )
-        sft.should_not be_nil
-        sft.to_s.should == @base_sft
-      end.should_not raise_error
-    end
-
-    it 'allows access to an SFT segment' do
-      lambda do
-        sft = HL7::Message::Segment::SFT.new( @base_sft )
-        sft.software_product_name.should == 'An Lab System'
-        sft.software_install_date.should == '20080817'
-      end.should_not raise_error
-    end
-  end
-end

data/spec/spec_helper.rb

@@ -1,12 +0,0 @@
-require 'simplecov'
-
-if ENV["COVERAGE"]
-  SimpleCov.start do
-    add_filter "/test/"
-    add_filter "/spec/"
-  end
-end
-
-# ruby-hl7 loads the rest of the files in lib
-require File.expand_path('../../lib/ruby-hl7', __FILE__)
-require File.expand_path('../../lib/test/hl7_messages', __FILE__)

data/spec/speed_parsing_spec.rb

@@ -1,19 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-require 'time'
-
-describe HL7::Message do
-  context 'speed parsing' do
-    before :all do
-      @msg = open( "./test_data/lotsunknowns.hl7" ).readlines
-    end
-
-    it 'parses large, unknown segments rapidly' do
-      start = Time.now
-      doc = HL7::Message.new @msg
-      doc.should_not be_nil
-      ends = Time.now
-      (ends-start).should be < 1
-    end
-  end
-end

data/spec/spm_segment_spec.rb

@@ -1,26 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::SPM do
-  context 'general' do
-    before :all do
-      @base_spm = 'SPM|1|23456&EHR&2.16.840.1.113883.19.3.2.3&ISO^9700122&Lab&2.16.840.1.113883.19.3.1.6&ISO||122554006^Capillary blood specimen^SCT^BLDC^Blood capillary^HL70070^20080131^2.5.1||HEPA^Ammonium heparin^HL70371^^^^2.5.1|CAP^Capillary Specimen^HL70488^^^^2.5.1|181395001^Venous structure of digit^SCT^^^^20080731|||P^Patient^HL60369^^^^2.5.1|50^uL&Micro Liter&UCUM&&&&1.6|||||200808151030-0700|200808151100-0700'
-    end
-
-    it 'creates an SPM segment' do
-      lambda do
-        spm = HL7::Message::Segment::SPM.new( @base_spm )
-        spm.should_not be_nil
-        spm.to_s.should == @base_spm
-      end.should_not raise_error
-    end
-
-    it 'allows access to an SPM segment' do
-      lambda do
-        spm = HL7::Message::Segment::SPM.new( @base_spm )
-        spm.specimen_type.should == '122554006^Capillary blood specimen^SCT^BLDC^Blood capillary^HL70070^20080131^2.5.1'
-        spm.set_id.should == '1'
-      end.should_not raise_error
-    end
-  end
-end