ruby-hl7 1.1.0 → 1.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 2a1652685f5af3d1977d1d32eda59c87bad5523b
-  data.tar.gz: 6d995a2efccfb7fd8a0dad2d2c386b530f565824
+  metadata.gz: e90514f902634471c8292f6383f505718a4cd80a
+  data.tar.gz: 137b33f12ee152e8fe79a006e0b7c29df2f88313
 SHA512:
-  metadata.gz: fbaab918091adf2be1062b6343b9fea752d0210091765b0725b4d5d356fb643578a279e9bf21cb8525d7ba4e58b48073196c23f97138f1c3c2bb43c4d2afe7fe
-  data.tar.gz: fd5aaf2b829bc1cdbf3cce507312cba40d33c497915c94ba0accc09b96ca8bb60b2883188e5b7d88f6550f0b7612157811499d418424cfd73ce7242f215943f4
+  metadata.gz: d6050c616942ab3127d55a6bb9bff1d5b49c1388ed1ae0dc8c215d7ba74105f38f1664bb6df18d206b31be253ec0ef7c3eab3f94027506b6c2975bf076a039d2
+  data.tar.gz: 15f10a47853e8db45a88b852c53d7607e0c2545371f927cfdec0294ac4d53a2c03ab7f137bedfa7c80bc7a3e42b1bb103521cb038f24727b5f8ba4c6d7194cb4

data/.gitignore

@@ -0,0 +1,6 @@
+.bundle
+coverage
+doc
+pkg
+.rspec
+.DS_Store

data/.travis.yml

@@ -0,0 +1,15 @@
+branches:
+  only:
+    - master
+language: ruby
+matrix:
+  allow_failures:
+    - rvm: ruby-head
+rvm:
+  - 2.2.0
+  - 2.1.0
+  - 2.0.0
+  - 1.9.3
+  - ruby-head
+  - jruby-19mode # JRuby in 1.9 mode
+  - rbx-2.2

data/Gemfile

@@ -0,0 +1,11 @@
+source 'http://rubygems.org'
+
+gem "rake", "~> 10.0.3"
+gem 'rdoc'
+gem 'rubyforge'
+gem 'technicalpickles-jeweler'
+
+group :test, :development do
+  gem 'simplecov'
+  gem 'rspec', '~> 2.99.0'
+end

data/Gemfile.lock

@@ -0,0 +1,37 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    diff-lcs (1.2.5)
+    git (1.2.5)
+    json_pure (1.5.0)
+    multi_json (1.5.0)
+    rake (10.0.3)
+    rdoc (3.9.4)
+    rspec (2.99.0)
+      rspec-core (~> 2.99.0)
+      rspec-expectations (~> 2.99.0)
+      rspec-mocks (~> 2.99.0)
+    rspec-core (2.99.2)
+    rspec-expectations (2.99.2)
+      diff-lcs (>= 1.1.3, < 2.0)
+    rspec-mocks (2.99.2)
+    rubyforge (2.0.4)
+      json_pure (>= 1.1.7)
+    simplecov (0.7.1)
+      multi_json (~> 1.0)
+      simplecov-html (~> 0.7.1)
+    simplecov-html (0.7.1)
+    technicalpickles-jeweler (1.2.1)
+      git (>= 1.2.1)
+      rubyforge
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  rake (~> 10.0.3)
+  rdoc
+  rspec (~> 2.99.0)
+  rubyforge
+  simplecov
+  technicalpickles-jeweler

data/NOTES.md

@@ -0,0 +1,53 @@
+## Overview
+
+**Version 1.1.1**
+Included in this release:
+
+- https://github.com/ruby-hl7/ruby-hl7/pull/48
+- https://github.com/ruby-hl7/ruby-hl7/pull/44
+
+**Version 1.1.0**
+Included in this release:
+- https://github.com/ruby-hl7/ruby-hl7/pull/7
+- https://github.com/ruby-hl7/ruby-hl7/pull/9
+- https://github.com/ruby-hl7/ruby-hl7/pull/10
+- https://github.com/ruby-hl7/ruby-hl7/pull/13
+- https://github.com/ruby-hl7/ruby-hl7/pull/17
+- https://github.com/ruby-hl7/ruby-hl7/pull/18
+- https://github.com/ruby-hl7/ruby-hl7/pull/19
+- https://github.com/ruby-hl7/ruby-hl7/pull/20
+- https://github.com/ruby-hl7/ruby-hl7/pull/21
+- https://github.com/ruby-hl7/ruby-hl7/pull/22
+- https://github.com/ruby-hl7/ruby-hl7/pull/23
+- https://github.com/ruby-hl7/ruby-hl7/pull/24
+- https://github.com/ruby-hl7/ruby-hl7/pull/25
+- https://github.com/ruby-hl7/ruby-hl7/pull/27
+- https://github.com/ruby-hl7/ruby-hl7/pull/28
+- https://github.com/ruby-hl7/ruby-hl7/pull/33
+- https://github.com/ruby-hl7/ruby-hl7/pull/34
+- https://github.com/ruby-hl7/ruby-hl7/pull/35
+- https://github.com/ruby-hl7/ruby-hl7/pull/41
+
+Thanks to:
+@untoldone, @tomsabin, @patricksrobertson, @rojotek, @calebwoods and @jdee
+
+
+**Version 1.0.3**
+The ruby-hl7 gem removes some sample messages.
+
+## Release Date
+
+January 25, 2011
+
+## In this release
+
+* Sample messages from Cerner were removed.
+* Some gem dependencies were updated.
+
+### Bug fixes
+
+There are no bug fixes in this release.
+
+## Known Issues
+
+There are currently no known open issues with the ruby-hl7 gem.

data/Rakefile

@@ -0,0 +1,149 @@
+# $Id$
+require 'rubygems'
+require 'rake'
+require 'rdoc/task'
+require 'rubygems/package_task'
+require 'rake/contrib/sshpublisher'
+require 'rbconfig'
+require 'rubyforge'
+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"
+short_name = full_name.downcase
+
+# Many of these tasks were garnered from zenspider's Hoe
+# just forced to work my way
+
+desc 'Default: Run all examples'
+task :default => :spec
+
+if RUBY_VERSION < '1.9.1'
+  begin
+    require 'jeweler'
+    Jeweler::Tasks.new do |s|
+      s.name = short_name
+      s.full_name
+      s.summary = "Ruby HL7 Library"
+      s.authors = ["Mark Guzman"]
+      s.email = "ruby-hl7@googlegroups.com"
+      s.homepage = "http://github.com/ruby-hl7/ruby-hl7"
+      s.description = "A simple library to parse and generate HL7 2.x messages"
+      s.require_path = "lib"
+      s.has_rdoc = true
+      s.rubyforge_project = short_name
+      s.required_ruby_version = '>= 1.8.6'
+      s.extra_rdoc_files = %w[README.rdoc LICENSE]
+      s.files = FileList["{bin,lib,test_data}/**/*"].to_a
+      s.test_files = FileList["{test}/**/test*.rb"].to_a
+      s.add_dependency("rake", ">= #{RAKEVERSION}")
+      s.add_dependency("rubyforge", ">= #{::RubyForge::VERSION}")
+    end
+  rescue LoadError
+    puts "Jeweler, or one of its dependencies, is not available. Install it with: sudo gem install jeweler"
+  end
+end
+
+
+spec = Gem::Specification.new do |s|
+  s.name = short_name
+  s.full_name
+  s.version = HL7::VERSION
+  s.author = "Mark Guzman"
+  s.email = "ruby-hl7@googlegroups.com"
+  s.homepage = "https://github.com/ruby-hl7/ruby-hl7"
+  s.platform = Gem::Platform::RUBY
+  s.summary = "Ruby HL7 Library"
+  s.rubyforge_project = short_name
+  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}")
+  s.add_dependency("rubyforge", ">= #{::RubyForge::VERSION}")
+end
+
+desc "Run all examples"
+RSpec::Core::RakeTask.new(:spec) do |spec|
+  spec.pattern = 'spec/**/*.rb'
+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
+
+namespace :forge do
+  desc 'Publish RDoc to RubyForge'
+  task :publish_docs => [:clean, :rdoc] do
+    config = YAML.load(File.read(File.expand_path("~/.rubyforge/user-config.yml")))
+    host = "#{config["username"]}@rubyforge.org"
+    remote_dir = "/var/www/gforge-projects/#{spec.rubyforge_project}"
+    local_dir = 'doc'
+    sh %{rsync -av --delete #{local_dir}/ #{host}:#{remote_dir}}
+  end
+
+  desc 'Package and upload the release to rubyforge.'
+  task :release => [:clean, :package] do |t|
+    v = ENV["VERSION"] or abort "Must supply VERSION=x.y.z"
+    abort "Versions don't match '#{v}' vs '#{spec.version}'" if v != spec.version.to_s
+    pkg = "pkg/#{spec.name}-#{spec.version}"
+
+    if $DEBUG then
+      puts "release_id = rf.add_release #{spec.rubyforge_project.inspect}, #{spec.name.inspect}, #{version.inspect}, \"#{pkg}.tgz\""
+      puts "rf.add_file #{spec.rubyforge_project.inspect}, #{spec.name.inspect}, release_id, \"#{pkg}.gem\""
+    end
+
+    rf = RubyForge.new
+    puts "Logging in"
+    rf.login
+
+    changes = open("NOTES.md").readlines.join("") if File.exists?("NOTES.md")
+    c = rf.userconfig
+    c["release_notes"] = spec.description if spec.description
+    c["release_changes"] = changes if changes
+    c["preformatted"] = true
+
+    files = ["#{pkg}.tgz", "#{pkg}.gem"].compact
+
+    puts "Releasing #{spec.name} v. #{spec.version}"
+    rf.add_release spec.rubyforge_project, spec.name, spec.version.to_s, *files
+  end
+end
+
+desc 'Install the package as a gem'
+task :install_gem => [:clean, :package] do
+  sh "sudo gem install pkg/*.gem"
+end

data/VERSION

@@ -0,0 +1 @@
+1.1.1

data/VERSION.yml

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

data/examples/proxy_server.rb

@@ -0,0 +1,26 @@
+# $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/lib/segment.rb

@@ -5,7 +5,7 @@
 #
 # == Defining a New Segment
 #  class HL7::Message::Segment::NK1 < HL7::Message::Segment
-#    wieght 100 # segments are sorted ascendingly
+#    weight 100 # segments are sorted ascendingly
 #    add_field :something_you_want       # assumes :idx=>1
 #    add_field :something_else, :idx=>6  # :idx=>6 and field count=6
 #    add_field :something_more           # :idx=>7

data/lib/segment_fields.rb

@@ -1,6 +1,6 @@
 #  SegmentFields
 #  class HL7::Message::Segment::NK1 < HL7::Message::Segment
-#    wieght 100 # segments are sorted ascendingly
+#    weight 100 # segments are sorted ascendingly
 #    add_field :something_you_want       # assumes :idx=>1
 #    add_field :something_else, :idx=>6  # :idx=>6 and field count=6
 module HL7::Message::SegmentFields

data/lib/segments/obr.rb

@@ -30,8 +30,8 @@ class HL7::Message::Segment::OBR < HL7::Message::Segment
   add_field :order_callback_phone_number
   add_field :placer_field_1
   add_field :placer_field_2
-  add_field :filer_field_1
-  add_field :filer_field_2
+  add_field :filler_field_1
+  add_field :filler_field_2
   add_field :results_status_change_date do |value|
     convert_to_ts(value)
   end

data/ruby-hl7.gemspec

@@ -0,0 +1,44 @@
+# 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.1.1"
+
+  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}
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<rake>, [">= 10.0.0"])
+      s.add_runtime_dependency(%q<rubyforge>, [">= 2.0.4"])
+    else
+      s.add_dependency(%q<rake>, [">= 10.0.0"])
+      s.add_dependency(%q<rubyforge>, [">= 2.0.4"])
+    end
+  else
+    s.add_dependency(%q<rake>, [">= 10.0.0"])
+    s.add_dependency(%q<rubyforge>, [">= 2.0.4"])
+  end
+end

data/spec/basic_parsing_spec.rb

@@ -0,0 +1,320 @@
+# 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
+      msg.to_hl7.should == @simple_msh_txt
+    end
+
+    it 'parses delimiters properly' do
+      msg = HL7::Message.new( @base_msh )
+      msg.element_delim.should == "|"
+      msg.item_delim.should == "^"
+
+      msg = HL7::Message.new( @base_msh_alt_delims )
+      msg.element_delim.should == "$"
+      msg.item_delim.should == "@"
+    end
+
+    it 'parses via the constructor' do
+      msg = HL7::Message.new( @simple_msh_txt )
+      msg.to_hl7.should == @simple_msh_txt
+    end
+
+    it 'parses via the class method' do
+      msg = HL7::Message.parse( @simple_msh_txt )
+      msg.to_hl7.should == @simple_msh_txt
+    end
+
+    it 'only parses String and Enumerable data' do
+      lambda { msg = HL7::Message.parse :MSHthis_shouldnt_parse_at_all }.should raise_error(HL7::ParseError)
+    end
+
+    it 'parses empty strings' do
+      lambda { msg = HL7::Message.new @empty_txt }.should_not raise_error
+    end
+
+    it 'converts to strings' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      orig = @simple_msh_txt.gsub( /\r/, "\n" )
+      msg.to_s.should == orig
+    end
+
+    it 'converts to a string and to HL7' do
+      msg = HL7::Message.new( @simple_msh_txt )
+      msg.to_hl7.should_not == msg.to_s
+    end
+
+    it 'allows access to segments by index' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      msg[0].to_s.should == @base_msh
+    end
+
+    it 'allows access to segments by name' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      msg["MSH"].to_s.should == @base_msh
+    end
+
+    it 'allows access to segments by symbol' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      msg[:MSH].to_s.should == @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
+      msg[1].should == inp
+
+      lambda { msg[2] = Class.new }.should raise_error(HL7::Exception)
+    end
+
+    it 'returns nil when accessing a missing segment' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      lambda { msg[:does_not_exist].should be_nil }.should_not 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
+      msg["NTE"].should == inp
+      lambda { msg["NTE"] = Class.new }.should 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
+      msg[:NTE].should == inp
+      lambda { msg[:NTE] = Class.new }.should raise_error(HL7::Exception)
+    end
+
+    it 'allows access to segment elements' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      msg[:MSH].sending_app.should == "LAB1"
+    end
+
+    it 'allows modification of segment elements' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      msg[:MSH].sending_app = "TEST"
+      msg[:MSH].sending_app.should == "TEST"
+    end
+
+    it 'raises NoMethodError when accessing a missing element' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      lambda {msg[:MSH].does_not_really_exist_here}.should raise_error(NoMethodError)
+    end
+
+    it 'raises NoMethodError when modifying a missing element' do
+      msg = HL7::Message.new
+      msg.parse @simple_msh_txt
+      lambda {msg[:MSH].does_not_really_exist_here="TEST"}.should raise_error(NoMethodError)
+    end
+
+    it 'permits elements to be accessed via numeric names' do
+      msg = HL7::Message.new( @simple_msh_txt )
+      msg[:MSH].e2.should == "LAB1"
+      msg[:MSH].e3.should be_empty
+    end
+
+    it 'permits elements to be modified via numeric names' do
+      msg = HL7::Message.parse( @simple_msh_txt )
+      msg[:MSH].e2 = "TESTING1234"
+      msg[:MSH].e2.should == "TESTING1234"
+    end
+
+    it 'allows appending of segments' do
+      msg = HL7::Message.new
+      lambda do
+        msg << HL7::Message::Segment::MSH.new
+        msg << HL7::Message::Segment::NTE.new
+      end.should_not raise_error
+
+      lambda { msg << Class.new }.should raise_error(HL7::Exception)
+    end
+
+    it 'allows appending of an array of segments' do
+      msg = HL7::Message.new
+      lambda do
+        msg << [HL7::Message::Segment::MSH.new, HL7::Message::Segment::NTE.new]
+      end.should_not raise_error
+
+      obx = HL7::Message::Segment::OBX.new
+      lambda do
+        obx.children << [HL7::Message::Segment::NTE.new, HL7::Message::Segment::NTE.new]
+      end.should_not 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 << nte
+      msh.sending_app = "TEST"
+
+      initial = msg.to_s
+      sorted = msg.sort
+      final = sorted.to_s
+      initial.should_not == 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
+      ntea.set_id.should == "1"
+      nteb.set_id.should == "2"
+      ntec.set_id.should == "3"
+    end
+
+    it 'parses Enumerable data' do
+      test_file = open( './test_data/test.hl7' )
+      test_file.should_not be_nil
+
+      msg = HL7::Message.new( test_file )
+      msg.to_hl7.should == @simple_msh_txt
+    end
+
+    it 'has a to_info method' do
+      msg = HL7::Message.new( @simple_msh_txt )
+      msg[1].to_info.should_not be_nil
+    end
+
+    it 'parses a raw array' do
+      inp = "NTE|1|ME TOO"
+      nte = HL7::Message::Segment::NTE.new( inp.split( '|' ) )
+      nte.to_s.should == inp
+    end
+
+    it 'produces MLLP output' do
+      msg = HL7::Message.new( @simple_msh_txt )
+      expect = "\x0b%s\x1c\r" % msg.to_hl7
+      msg.to_mllp.should == expect
+    end
+
+    it 'parses MLLP input' do
+      raw = "\x0b%s\x1c\r" % @simple_msh_txt
+      msg = HL7::Message.parse( raw )
+      msg.should_not be_nil
+      msg.to_hl7.should == @simple_msh_txt
+      msg.to_mllp.should == raw
+    end
+
+    it 'can parse its own MLLP output' do
+      msg = HL7::Message.parse( @simple_msh_txt )
+      msg.should_not be_nil
+      lambda do
+        post_mllp = HL7::Message.parse( msg.to_mllp )
+        post_mllp.should_not be_nil
+        msg.to_hl7.should == post_mllp.to_hl7
+      end.should_not raise_error
+    end
+
+    it 'can access child elements' do
+      obr = HL7::Message::Segment::OBR.new
+      lambda do
+        obr.children.should_not be_nil
+        obr.children.length.should be_zero
+      end.should_not raise_error
+    end
+
+    it 'can add child elements' do
+      obr = HL7::Message::Segment::OBR.new
+      lambda do
+        obr.children.length.should be_zero
+        (1..5).each do |x|
+          obr.children << HL7::Message::Segment::OBX.new
+          obr.children.length.should == x
+        end
+      end.should_not raise_error
+    end
+
+    it 'rejects invalid child segments' do
+      obr = HL7::Message::Segment::OBR.new
+      lambda { obr.children << Class.new }.should 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
+      orig_obx_cnt = msg[:OBX].length
+      (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
+
+      msg[:OBR].should_not be_nil
+      msg[:OBR].length.should == 11
+      msg[:OBX].should_not be_nil
+      msg[:OBX].length.should == 102
+      msg[:OBR][4].children[1].set_id.should == "2"
+      msg[:OBR][5].children[1].set_id.should == "2"
+
+      final_output = msg.to_hl7
+      orig_output.should_not == final_output
+    end
+
+    it "returns each segment's index" do
+      msg = HL7::Message.parse( @simple_msh_txt )
+      msg.index("PID").should == 1
+      msg.index(:PID).should == 1
+      msg.index("PV1").should == 2
+      msg.index(:PV1).should == 2
+      msg.index("TACOBELL").should be_nil
+      msg.index(nil).should be_nil
+      msg.index(1).should be_nil
+    end
+
+    it 'validates the PID#admin_sex element' do
+      pid = HL7::Message::Segment::PID.new
+      lambda { pid.admin_sex = "TEST" }.should raise_error(HL7::InvalidDataError)
+      lambda { pid.admin_sex = "F" }.should_not raise_error
+    end
+
+    it 'can parse an empty segment' do
+      lambda { msg = HL7::Message.new @empty_segments_txt }.should_not raise_error
+    end
+  end
+end