ruby-hl7 1.3.3 → 1.4.0

data/Rakefile

@@ -1,76 +0,0 @@
-# $Id$
-require 'rubygems'
-require 'rake'
-require 'rdoc/task'
-require 'rubygems/package_task'
-require 'rbconfig'
-require 'rspec'
-require 'rspec/core/rake_task'
-require 'simplecov'
-
-$: << './lib'
-require 'ruby-hl7'
-require 'message_parser'
-require 'message'
-require 'segment_list_storage'
-require 'segment_generator'
-require 'segment'
-
-full_name = "Ruby-HL7"
-RAKEVERSION = "12.3.3"
-
-# Many of these tasks were garnered from zenspider's Hoe
-# just forced to work my way
-
-desc 'Default: Run all examples'
-task :default => :spec
-
-spec = Gem::Specification.new do |s|
-  s.homepage = "https://github.com/ruby-hl7/ruby-hl7"
-  s.platform = Gem::Platform::RUBY
-  s.summary = "Ruby HL7 Library"
-  s.description = "A simple library to parse and generate HL7 2.x messages"
-  s.files = FileList["{bin,lib,test_data}/**/*"].to_a
-  s.require_path = "lib"
-  s.test_files = FileList["{test}/**/test*.rb"].to_a
-  s.has_rdoc = true
-  s.required_ruby_version = '>= 1.8.6'
-  s.extra_rdoc_files = %w[README.rdoc LICENSE]
-  s.add_dependency("rake", ">= #{RAKEVERSION}")
-end
-
-desc "Run all examples"
-RSpec::Core::RakeTask.new(:spec) do |spec|
-  spec.pattern = 'spec/**/*.rb'
-  spec.ruby_opts = '-w'
-end
-
-desc "Run all examples with SimpleCov"
-RSpec::Core::RakeTask.new(:spec_with_simplecov) do |spec|
-  ENV['COVERAGE'] = 'true'
-  spec.pattern = 'spec/**/*.rb'
-end
-
-RDoc::Task.new do |rd|
-  rd.main = "README.rdoc"
-  rd.rdoc_files.include("README.rdoc", "LICENSE", "lib/**/*.rb")
-  rd.title = "%s (%s) Documentation" % [ full_name, spec.version ]
-  rd.rdoc_dir = 'doc'
-end
-
-Gem::PackageTask.new(spec) do |pkg|
-  pkg.need_tar = true
-end
-
-desc 'Clean up all the extras'
-task :clean => [ :clobber_rdoc, :clobber_package ] do
-  %w[*.gem ri coverage*].each do |pattern|
-    files = Dir[pattern]
-    rm_rf files unless files.empty?
-  end
-end
-
-desc 'Install the package as a gem'
-task :install_gem => [:clean, :package] do
-  sh "sudo gem install pkg/*.gem"
-end

data/VERSION

@@ -1 +0,0 @@
-1.3.3

data/VERSION.yml

@@ -1,4 +0,0 @@
----
-:major: 1
-:minor: 3
-:patch: 0

data/examples/proxy_server.rb

@@ -1,26 +0,0 @@
-# $Id$
-# Ruby-HL7 Proxy Server Example
-require 'rubygems'
-require 'ruby-hl7'
-require 'thread'
-require 'socket'
-
-PORT = 2402
-target_ip = "127.0.0.1"
-target_port = 5900
-
-srv = TCPServer.new(PORT)
-puts "proxy_server listening on port: %i" % PORT
-puts "proxying for: %s:%i" % [ target_ip, target_port ]
-while true
-  sok = srv.accept
-  Thread.new( sok ) do |my_socket|
-    raw_inp = my_socket.readlines
-    msg = HL7::Message.new( raw_input )
-    puts "forwarding message:\n%s" % msg.to_s
-    soc = TCPSocket.open( target_ip, target_port )
-    soc.write msg.to_mllp
-    soc.close
-  end
-end
-

data/ruby-hl7.gemspec

@@ -1,39 +0,0 @@
-# Generated by jeweler
-# DO NOT EDIT THIS FILE
-# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
-# -*- encoding: utf-8 -*-
-
-Gem::Specification.new do |s|
-  s.name = %q{ruby-hl7}
-  s.version = "1.3.3"
-
-  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
-  s.authors = ["Mark Guzman"]
-  s.date = %q{2014-09-09}
-  s.description = %q{A simple library to parse and generate HL7 2.x messages}
-  s.email = %q{ruby-hl7@googlegroups.com}
-  s.extra_rdoc_files = [
-    "LICENSE",
-     "README.rdoc"
-  ]
-
-  s.files         = `git ls-files`.split "\n"
-  s.test_files    = `git ls-files -- {spec}/*`.split "\n"
-  s.homepage = %q{http://github.com/ruby-hl7/ruby-hl7}
-  s.rdoc_options = ["--charset=UTF-8"]
-  s.require_paths = ["lib"]
-  s.required_ruby_version = Gem::Requirement.new(">= 1.8.6")
-  s.rubyforge_project = %q{ruby-hl7}
-  s.rubygems_version = %q{1.4.2}
-  s.summary = %q{Ruby HL7 Library}
-  s.license = "MIT"
-
-  s.add_development_dependency 'bundler', '~> 1.17'
-  s.add_development_dependency 'pry'
-  s.add_development_dependency 'rake', '>= 12.3.3'
-  s.add_development_dependency 'rdoc', '~> 6.3'
-  s.add_development_dependency 'rspec', '>= 3.9.0'
-  s.add_development_dependency 'simplecov', '= 0.16.1'
-  s.add_development_dependency 'simplecov-html', '~> 0.10.0'
-  s.add_development_dependency 'rake-contrib'
-end

data/spec/ail_segment_spec.rb

@@ -1,28 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::AIL do
-  context 'general' do
-    before :all do
-      @base_ail = 'AIL|1|A|OFFICE^^^OFFICE|^OFFICE^A4'
-    end
-
-    it 'creates an AIL segment' do
-      expect do
-        ail = HL7::Message::Segment::AIL.new( @base_ail )
-        expect(ail).not_to be_nil
-        expect(ail.to_s).to eq @base_ail
-      end.not_to raise_error
-    end
-
-    it 'allows access to an AIL segment' do
-      expect do
-        ail = HL7::Message::Segment::AIL.new( @base_ail )
-        expect(ail.set_id).to eq '1'
-        expect(ail.segment_action_code).to eq 'A'
-        expect(ail.location_resource_id).to eq 'OFFICE^^^OFFICE'
-        expect(ail.location_type).to eq '^OFFICE^A4'
-      end.not_to raise_error
-    end
-  end
-end

data/spec/aip_segment_spec.rb

@@ -1,31 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message::Segment::AIP do
-  context 'general' do
-    before :all do
-      @base_aip = 'AIP|1|U|JSB^ISON^Kathy^S|D^Doctor||20020108150000|||10|m^Minutes'
-    end
-
-    it 'creates an AIP segment' do
-      expect do
-        aip = HL7::Message::Segment::AIP.new( @base_aip )
-        expect(aip).not_to be_nil
-        expect(aip.to_s).to eq @base_aip
-      end.not_to raise_error
-    end
-
-    it 'allows access to an AIP segment' do
-      expect do
-        aip = HL7::Message::Segment::AIP.new( @base_aip )
-        expect(aip.set_id).to eq '1'
-        expect(aip.segment_action_code).to eq 'U'
-        expect(aip.personnel_resource_id).to eq 'JSB^ISON^Kathy^S'
-        expect(aip.resource_role).to eq 'D^Doctor'
-        expect(aip.start_date_time).to eq '20020108150000'
-        expect(aip.duration).to eq '10'
-        expect(aip.duration_units).to eq 'm^Minutes'
-      end.not_to raise_error
-    end
-  end
-end

data/spec/basic_parsing_spec.rb

@@ -1,319 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message do
-  context 'basic parsing' do
-    before :all do
-      @simple_msh_txt = open( './test_data/test.hl7' ).readlines.first
-      @empty_txt = open( './test_data/empty.hl7' ).readlines.first
-      @empty_segments_txt = open( './test_data/empty_segments.hl7' ).readlines.first
-      @base_msh = "MSH|^~\\&|LAB1||DESTINATION||19910127105114||ORU^R03|LAB1003929"
-      @base_msh_alt_delims = "MSH$@~\\&|LAB1||DESTINATION||19910127105114||ORU^R03|LAB1003929"
-    end
-
-    it 'parses simple text' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect(msg.to_hl7).to eq @simple_msh_txt
-    end
-
-    it 'parses delimiters properly' do
-      msg = HL7::Message.new( @base_msh )
-      expect(msg.element_delim).to eq "|"
-      expect(msg.item_delim).to eq "^"
-
-      msg = HL7::Message.new( @base_msh_alt_delims )
-      expect(msg.element_delim).to eq "$"
-      expect(msg.item_delim).to eq "@"
-    end
-
-    it 'parses via the constructor' do
-      msg = HL7::Message.new( @simple_msh_txt )
-      expect(msg.to_hl7).to eq @simple_msh_txt
-    end
-
-    it 'parses via the class method' do
-      msg = HL7::Message.parse( @simple_msh_txt )
-      expect(msg.to_hl7).to eq @simple_msh_txt
-    end
-
-    it 'only parses String and Enumerable data' do
-      expect { HL7::Message.parse :MSHthis_shouldnt_parse_at_all }.to raise_error(HL7::ParseError)
-    end
-
-    it 'parses empty strings' do
-      expect { HL7::Message.new @empty_txt }.not_to raise_error
-    end
-
-    it 'converts to strings' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      orig = @simple_msh_txt.gsub( /\r/, "\n" )
-      expect(msg.to_s).to eq orig
-    end
-
-    it 'converts to a string and to HL7' do
-      msg = HL7::Message.new( @simple_msh_txt )
-      expect(msg.to_hl7).not_to eq(msg.to_s)
-    end
-
-    it 'allows access to segments by index' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect(msg[0].to_s).to eq @base_msh
-    end
-
-    it 'allows access to segments by name' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect(msg["MSH"].to_s).to eq @base_msh
-    end
-
-    it 'allows access to segments by symbol' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect(msg[:MSH].to_s).to eq @base_msh
-    end
-
-    it 'inserts segments by index' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      inp = HL7::Message::Segment::Default.new
-      msg[1] = inp
-      expect(msg[1]).to eq inp
-
-      expect { msg[2] = Class.new }.to raise_error(HL7::Exception)
-    end
-
-    it 'returns nil when accessing a missing segment' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect { expect(msg[:does_not_exist]).to be_nil }.not_to raise_error
-    end
-
-    it 'inserts segments by name' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      inp = HL7::Message::Segment::NTE.new
-      msg["NTE"] = inp
-      expect(msg["NTE"]).to eq inp
-      expect { msg["NTE"] = Class.new }.to raise_error(HL7::Exception)
-    end
-
-    it 'inserts segments by symbol' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      inp = HL7::Message::Segment::NTE.new
-      msg[:NTE] = inp
-      expect(msg[:NTE]).to eq inp
-      expect { msg[:NTE] = Class.new }.to raise_error(HL7::Exception)
-    end
-
-    it 'allows access to segment elements' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect(msg[:MSH].sending_app).to eq "LAB1"
-    end
-
-    it 'allows modification of segment elements' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      msg[:MSH].sending_app = "TEST"
-      expect(msg[:MSH].sending_app).to eq "TEST"
-    end
-
-    it 'raises NoMethodError when accessing a missing element' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect {msg[:MSH].does_not_really_exist_here}.to raise_error(NoMethodError)
-    end
-
-    it 'raises NoMethodError when modifying a missing element' do
-      msg = HL7::Message.new
-      msg.parse @simple_msh_txt
-      expect {msg[:MSH].does_not_really_exist_here="TEST"}.to raise_error(NoMethodError)
-    end
-
-    it 'permits elements to be accessed via numeric names' do
-      msg = HL7::Message.new( @simple_msh_txt )
-      expect(msg[:MSH].e2).to eq "LAB1"
-      expect(msg[:MSH].e3).to be_empty
-    end
-
-    it 'permits elements to be modified via numeric names' do
-      msg = HL7::Message.parse( @simple_msh_txt )
-      msg[:MSH].e2 = "TESTING1234"
-      expect(msg[:MSH].e2).to eq "TESTING1234"
-    end
-
-    it 'allows appending of segments' do
-      msg = HL7::Message.new
-      expect do
-        msg << HL7::Message::Segment::MSH.new
-        msg << HL7::Message::Segment::NTE.new
-      end.not_to raise_error
-
-      expect { msg << Class.new }.to raise_error(HL7::Exception)
-    end
-
-    it 'allows appending of an array of segments' do
-      msg = HL7::Message.new
-      expect do
-        msg << [HL7::Message::Segment::MSH.new, HL7::Message::Segment::NTE.new]
-      end.not_to raise_error
-
-      obx = HL7::Message::Segment::OBX.new
-      expect do
-        obx.children << [HL7::Message::Segment::NTE.new, HL7::Message::Segment::NTE.new]
-      end.not_to raise_error
-    end
-
-    it 'sorts segments' do
-      msg = HL7::Message.new
-      pv1 = HL7::Message::Segment::PV1.new
-      msg << pv1
-      msh = HL7::Message::Segment::MSH.new
-      msg << msh
-      nte = HL7::Message::Segment::NTE.new
-      msg << nte
-      nte2 = HL7::Message::Segment::NTE.new
-      msg << nte2
-      msh.sending_app = "TEST"
-
-      initial = msg.to_s
-      sorted = msg.sort
-      final = sorted.to_s
-      expect(initial).not_to eq(final)
-    end
-
-    it 'automatically assigns a set_id to a new segment' do
-      msg = HL7::Message.new
-      msh = HL7::Message::Segment::MSH.new
-      msg << msh
-      ntea = HL7::Message::Segment::NTE.new
-      ntea.comment = "first"
-      msg << ntea
-      nteb = HL7::Message::Segment::NTE.new
-      nteb.comment = "second"
-      msg << nteb
-      ntec = HL7::Message::Segment::NTE.new
-      ntec.comment = "third"
-      msg << ntec
-      expect(ntea.set_id).to eq "1"
-      expect(nteb.set_id).to eq "2"
-      expect(ntec.set_id).to eq "3"
-    end
-
-    it 'parses Enumerable data' do
-      test_file = open( './test_data/test.hl7' )
-      expect(test_file).not_to be_nil
-
-      msg = HL7::Message.new( test_file )
-      expect(msg.to_hl7).to eq @simple_msh_txt
-    end
-
-    it 'has a to_info method' do
-      msg = HL7::Message.new( @simple_msh_txt )
-      expect(msg[1].to_info).not_to be_nil
-    end
-
-    it 'parses a raw array' do
-      inp = "NTE|1|ME TOO"
-      nte = HL7::Message::Segment::NTE.new( inp.split( '|' ) )
-      expect(nte.to_s).to eq inp
-    end
-
-    it 'produces MLLP output' do
-      msg = HL7::Message.new( @simple_msh_txt )
-      expect = "\x0b%s\x1c\r" % msg.to_hl7
-      expect(msg.to_mllp).to eq expect
-    end
-
-    it 'parses MLLP input' do
-      raw = "\x0b%s\x1c\r" % @simple_msh_txt
-      msg = HL7::Message.parse( raw )
-      expect(msg).not_to be_nil
-      expect(msg.to_hl7).to eq @simple_msh_txt
-      expect(msg.to_mllp).to eq raw
-    end
-
-    it 'can parse its own MLLP output' do
-      msg = HL7::Message.parse( @simple_msh_txt )
-      expect(msg).not_to be_nil
-      expect do
-        post_mllp = HL7::Message.parse( msg.to_mllp )
-        expect(post_mllp).not_to be_nil
-        expect(msg.to_hl7).to eq post_mllp.to_hl7
-      end.not_to raise_error
-    end
-
-    it 'can access child elements' do
-      obr = HL7::Message::Segment::OBR.new
-      expect do
-        expect(obr.children).not_to be_nil
-        expect(obr.children.length).to be_zero
-      end.not_to raise_error
-    end
-
-    it 'can add child elements' do
-      obr = HL7::Message::Segment::OBR.new
-      expect do
-        expect(obr.children.length).to be_zero
-        (1..5).each do |x|
-          obr.children << HL7::Message::Segment::OBX.new
-          expect(obr.children.length).to eq x
-        end
-      end.not_to raise_error
-    end
-
-    it 'rejects invalid child segments' do
-      obr = HL7::Message::Segment::OBR.new
-      expect { obr.children << Class.new }.to raise_error(HL7::Exception)
-    end
-
-    it 'supports grouped, sequenced segments' do
-      #multible obr's with multiple obx's
-      msg = HL7::Message.parse( @simple_msh_txt )
-      orig_output = msg.to_hl7
-      (1..10).each do |obr_id|
-        obr = HL7::Message::Segment::OBR.new
-        msg << obr
-        (1..10).each do |obx_id|
-          obx = HL7::Message::Segment::OBX.new
-          obr.children << obx
-        end
-      end
-
-      expect(msg[:OBR]).not_to be_nil
-      expect(msg[:OBR].length).to eq 11
-      expect(msg[:OBX]).not_to be_nil
-      expect(msg[:OBX].length).to eq 102
-      expect(msg[:OBR][4].children[1].set_id).to eq "2"
-      expect(msg[:OBR][5].children[1].set_id).to eq "2"
-
-      final_output = msg.to_hl7
-      expect(orig_output).not_to eq(final_output)
-    end
-
-    it "returns each segment's index" do
-      msg = HL7::Message.parse( @simple_msh_txt )
-      expect(msg.index("PID")).to eq 1
-      expect(msg.index(:PID)).to eq 1
-      expect(msg.index("PV1")).to eq 2
-      expect(msg.index(:PV1)).to eq 2
-      expect(msg.index("TACOBELL")).to be_nil
-      expect(msg.index(nil)).to be_nil
-      expect(msg.index(1)).to be_nil
-    end
-
-    it 'validates the PID#admin_sex element' do
-      pid = HL7::Message::Segment::PID.new
-      expect { pid.admin_sex = "TEST" }.to raise_error(HL7::InvalidDataError)
-      expect { pid.admin_sex = "F" }.not_to raise_error
-    end
-
-    it 'can parse an empty segment' do
-      expect { HL7::Message.new @empty_segments_txt }.not_to raise_error
-    end
-  end
-end

data/spec/batch_parsing_spec.rb

@@ -1,52 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message do
-  context 'batch parsing' do
-    it 'should have a class method HL7::Message.parse_batch' do
-      expect(HL7::Message).to respond_to(:parse_batch)
-    end
-
-    it 'should raise an exception when parsing an empty batch' do
-      # :empty_batch message contains a valid batch envelope with no
-      # contents
-      expect do
-        HL7::Message.parse_batch HL7MESSAGES[:empty_batch]
-      end.to raise_exception(HL7::ParseError, 'empty_batch_message')
-    end
-
-    it 'should raise an exception when parsing a single message as a batch' do
-      expect do
-        HL7::Message.parse_batch HL7MESSAGES[:realm_minimal_message]
-      end.to raise_exception(HL7::ParseError, 'badly_formed_batch_message')
-    end
-
-    it 'should yield multiple messages from a valid batch' do
-      count = 0
-      HL7::Message.parse_batch(HL7MESSAGES[:realm_batch]) do |m|
-        count += 1
-      end
-      expect(count).to eq 2
-    end
-  end
-end
-
-describe 'String extension' do
-  before :all do
-    @batch_message = HL7MESSAGES[:realm_batch]
-    @plain_message = HL7MESSAGES[:realm_minimal_message]
-  end
-
-  it 'should respond_to :hl7_batch?' do
-    expect(@batch_message.hl7_batch?).to be true
-    expect(@plain_message).to respond_to(:hl7_batch?)
-  end
-
-  it 'should return true when passed a batch message' do
-    expect(@batch_message).to be_an_hl7_batch
-  end
-
-  it 'should return false when passed a plain message' do
-    expect(@plain_message).not_to be_an_hl7_batch
-  end
-end

data/spec/child_segment_spec.rb

@@ -1,66 +0,0 @@
-# encoding: UTF-8
-require 'spec_helper'
-
-describe HL7::Message do
-  context 'child segments' do
-    before :all do
-      @base = open( './test_data/obxobr.hl7' ).readlines
-    end
-
-    it 'allows access to child segments' do
-      msg = HL7::Message.new @base
-      expect(msg).not_to be_nil
-      expect(msg[:OBR]).not_to be_nil
-      expect(msg[:OBR].length).to eq 3
-      expect(msg[:OBR][0].children).not_to be_nil
-      expect(msg[:OBR][0].children.length).to eq 6
-      expect(msg[:OBR][1].children).not_to be_nil
-      expect(msg[:OBR][1].children.length).to eq 3
-      expect(msg[:OBR][2].children).not_to be_nil
-      expect(msg[:OBR][2].children.length).to eq 1
-      expect(msg[:OBX][0].children).not_to be_nil
-      expect(msg[:OBX][0].children.length).to eq 1
-
-      msg[:OBR][0].children.each do |x|
-        expect(x).not_to be_nil
-      end
-      msg[:OBR][1].children.each do |x|
-        expect(x).not_to be_nil
-      end
-      msg[:OBR][2].children.each do |x|
-        expect(x).not_to be_nil
-      end
-    end
-
-    it 'allows adding child segments' do
-      msg = HL7::Message.new @base
-      expect(msg).not_to be_nil
-      expect(msg[:OBR]).not_to be_nil
-      ob = HL7::Message::Segment::OBR.new
-      expect(ob).not_to be_nil
-
-      msg << ob
-      expect(ob.children).not_to be_nil
-      expect(ob.segment_parent).not_to be_nil
-      expect(ob.segment_parent).to eq msg
-      orig_cnt = msg.length
-
-      (1..4).each do |x|
-        m = HL7::Message::Segment::OBX.new
-        m.observation_value = "taco"
-        expect(m).not_to be_nil
-        expect(/taco/.match(m.to_s)).not_to be_nil
-        ob.children << m
-        expect(ob.children.length).to eq x
-        expect(m.segment_parent).not_to be_nil
-        expect(m.segment_parent).to eq ob
-      end
-
-      expect(@base).not_to eq msg.to_hl7
-      expect(msg.length).not_to eq orig_cnt
-      text_ver = msg.to_hl7
-      expect(/taco/.match(text_ver)).not_to be_nil
-    end
-  end
-end
-

data/spec/core_ext/date_time_spec.rb

@@ -1,43 +0,0 @@
-require 'spec_helper'
-
-describe Date do
-
-  subject{ Date.parse('2013-12-02').to_hl7 }
-
-  it "should respond to the HL7 timestamp" do
-    expect(subject).to eq "20131202"
-  end
-end
-
-describe "to_hl7 for time related classes" do
-
-  let(:formated_time){ time_now.strftime('%Y%m%d%H%M%S') }
-  let(:fraction_3){ "." + sprintf('%06d', time_now.to_time.usec)[0, 3] }
-  let(:fraction_9){ "." + sprintf('%06d', time_now.to_time.usec) + ("0" * 3) }
-
-  shared_examples "a time to_hl7" do
-    context "without fraction" do
-      it { expect(time_now.to_time.to_hl7).to eq formated_time }
-    end
-
-    context "with_fraction" do
-      it { expect(time_now.to_time.to_hl7(3)).to eq formated_time + fraction_3 }
-
-      it { expect(time_now.to_time.to_hl7(9)).to eq formated_time + fraction_9 }
-    end
-  end
-
-  describe Time do
-    let(:time_now){ Time.now }
-
-    it_should_behave_like "a time to_hl7"
-  end
-
-  describe DateTime do
-    let(:time_now){ DateTime.now }
-
-    it_should_behave_like "a time to_hl7"
-  end
-
-end
-