ruby-hl7 0.3 → 1.0

data/test/test_child_segment.rb

@@ -1,54 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class ChildSegment < Test::Unit::TestCase
-  def setup
-    @base = open( './test_data/obxobr.hl7' ).readlines
-  end
-
-  def test_access_children
-    msg = HL7::Message.new @base
-    assert_not_nil msg
-    assert_not_nil msg[:OBR]
-    assert_equal( 3, msg[:OBR].length ) 
-    assert_not_nil msg[:OBR].first.children
-    assert_equal( 5, msg[:OBR].first.children.length )
-
-    msg[:OBR].first.children.each do |x|
-      assert_not_nil x
-    end
-  end
-
-  def test_add_children
-    msg = HL7::Message.new @base
-    assert_not_nil msg
-    assert_not_nil msg[:OBR]
-    ob = HL7::Message::Segment::OBR.new
-    assert_not_nil ob
-    
-    msg << ob
-    assert_not_nil ob.children
-    assert_not_nil ob.segment_parent
-    assert_equal(msg, ob.segment_parent)
-    orig_cnt = msg.length
-    
-    (1..4).each do |x|
-      m = HL7::Message::Segment::OBX.new
-      m.observation_value = "taco"
-      assert_not_nil m
-      assert_not_nil /taco/.match( m.to_s )
-      ob.children << m
-      assert_equal(x, ob.children.length)
-      assert_not_nil m.segment_parent
-      assert_equal(ob, m.segment_parent)
-    end
-    
-    assert_not_equal( @base, msg.to_hl7 )
-    assert_not_equal( orig_cnt, msg.length )
-    text_ver = msg.to_hl7
-    assert_not_nil /taco/.match( text_ver )
-  end
-end
-

data/test/test_default_segment.rb

@@ -1,31 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class MsaSegment < Test::Unit::TestCase
-  def setup
-    @base_msa = "MSA|AR|ZZ9380 ERR"
-  end
-
-  def test_storing_existing_segment
-    seg = HL7::Message::Segment::Default.new( @base_msa )
-    assert_equal( @base_msa, seg.to_s )
-  end
-
-  def test_to_s
-    seg = HL7::Message::Segment::Default.new( @base_msa )
-    assert_equal( @base_msa, seg.to_s )
-    assert_equal( seg.to_s, seg.to_hl7 )
-  end
-
-  def test_create_raw_segment
-    seg = HL7::Message::Segment::Default.new
-    seg.e0 = "NK1"
-    seg.e1 = "INFO"
-    seg.e2 = "MORE INFO"
-    seg.e5 = "LAST INFO"
-    assert_equal( "NK1|INFO|MORE INFO|||LAST INFO", seg.to_s )
-  end
-
-end

data/test/test_dynamic_segment_def.rb

@@ -1,42 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class DynamicSegmentDefinition < Test::Unit::TestCase
-  def setup
-  end
-
-  def test_block_definition
-    seg = HL7::Message::Segment.new do |s|
-      s.e0 = "MSK"
-      s.e1 = "1234"
-      s.e2 = "5678"
-    end
-
-    assert_equal( "MSK|1234|5678", seg.to_s )
-  end
-
-  def test_ruby_block_initializer 
-    seg = HL7::Message::Segment.new do
-      e0 "MSK"
-      e1 "1234"
-      e2 "5678"
-    end
-
-    assert_equal( "MSK|1234|5678", seg.to_s )
-  end
-
-  def test_shouldnt_pollute_caller_namespace
-    seg = HL7::Message::Segment.new do |s|
-      s.e0 = "MSK"
-      s.e1 = "1234"
-      s.e2 = "5678"
-    end
-
-    assert_raises(NoMethodError) do
-      e3 "TEST"
-    end
-    assert_equal( "MSK|1234|5678", seg.to_s )
-  end
-end

data/test/test_msa_segment.rb

@@ -1,27 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class MsaSegment < Test::Unit::TestCase
-  def setup
-    @base_msa = "MSA|AR|ZZ9380 ERR"
-  end
-
-  def test_create_msa
-    assert_nothing_raised do
-      msa = HL7::Message::Segment::MSA.new( @base_msa )
-      assert_not_nil( msa )
-      assert_equal( @base_msa, msa.to_s )
-    end
-  end
-
-  def test_access_msa
-    assert_nothing_raised do
-      msa = HL7::Message::Segment::MSA.new( @base_msa )
-      assert_equal( "AR", msa.ack_code )
-      assert_equal( "ZZ9380 ERR", msa.control_id )
-    end
-  end
-
-end

data/test/test_obr_segment.rb

@@ -1,29 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class ObrSegment < Test::Unit::TestCase
-  def setup
-    @base = "OBR|2|^USSSA|0000000567^USSSA|37956^CT ABDOMEN^LN|||199405021550|||||||||||||0000763|||||P||||||R/O TUMOR|202300&BAKER&MARK&E|||01&LOCHLEAR&JUDY"
-  end
-
-  def test_read
-    obr = HL7::Message::Segment::OBR.new @base
-    assert_equal( @base, obr.to_s )
-    assert_equal( "2", obr.e1 )
-    assert_equal( "2", obr.set_id )
-    assert_equal( "^USSSA", obr.placer_order_number )
-    assert_equal( "0000000567^USSSA", obr.filler_order_number )
-    assert_equal( "37956^CT ABDOMEN^LN", obr.universal_service_id )
-  end
-
-  def test_create
-    obr = HL7::Message::Segment::OBR.new
-    obr.set_id = 1
-    assert_equal( "1", obr.set_id ) 
-    obr.placer_order_number = "^DMCRES"
-    assert_equal( "^DMCRES", obr.placer_order_number )
-  end
-
-end

data/test/test_obx_segment.rb

@@ -1,27 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class ObxSegment < Test::Unit::TestCase
-  def setup
-    @base = "OBX||TX|FIND^FINDINGS^L|1|This is a test on 05/02/94."
-  end
-
-  def test_initial_read
-    obx = HL7::Message::Segment::OBX.new @base
-    assert_equal( "", obx.set_id ) 
-    assert_equal( "TX", obx.value_type )
-    assert_equal( "FIND^FINDINGS^L", obx.observation_id )
-    assert_equal( "1", obx.observation_sub_id )
-    assert_equal( "This is a test on 05/02/94.", obx.observation_value )
-  end
-                                          
-  def test_creation
-    obx = HL7::Message::Segment::OBX.new
-    obx.value_type = "TESTIES"
-    obx.observation_id = "HR"
-    obx.observation_sub_id = "2"
-    obx.observation_value = "SOMETHING HAPPENned"
-  end
-end

data/test/test_pid_segment.rb

@@ -1,28 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'test/unit'
-require 'ruby-hl7'
-
-class PidSegment < Test::Unit::TestCase
-  def setup
-    @base = "PID|||333||LastName^FirstName^MiddleInitial^SR^NickName||19760228|F||||||||||555. 55|012345678"
-  end
-
-  def test_admin_sex_limits
-    pid = HL7::Message::Segment::PID.new
-    assert_nothing_raised do
-      vals = %w[F M O U A N] + [ nil ]
-      vals.each do |x|
-        pid.admin_sex = x
-      end
-      pid.admin_sex = ""
-    end
-
-    assert_raises( HL7::InvalidDataError ) do
-      ["TEST", "A", 1, 2].each do |x|
-        pid.admin_sex = x
-      end
-    end
-        
-  end
-end

data/test/test_speed_parsing.rb

@@ -1,19 +0,0 @@
-# $Id$
-$: << '../lib'
-require 'time'
-require 'test/unit'
-require 'ruby-hl7'
-
-class SpeedParsing < Test::Unit::TestCase
-  def setup
-    @msg = open( "./test_data/lotsunknowns.hl7" ).readlines
-  end
-
-  def test_large_unknown_segments
-    start = Time.now
-    doc = HL7::Message.new @msg
-    assert_not_nil doc
-    ends = Time.now
-    assert ((ends-start) < 1)
-  end 
-end