hippo_eyeDoc 0.0.1

data/test/test_html_outputter.rb

@@ -0,0 +1,22 @@
+require File.expand_path('test_helper', File.dirname(__FILE__))
+
+class TestHTMLOutputter < MiniTest::Unit::TestCase
+  def setup
+    @parser = Hippo_eyeDoc::Parser.new
+    @sample_835 = @parser.parse_file('samples/005010X221A1_business_scenario_1.edi').first
+    @sample_837 = @parser.parse_file('samples/005010X231A1_01.edi').first
+  end
+
+  def test_segment_to_html_returns_segment_to_s
+    assert_equal @sample_835.BPR.to_s, @sample_835.BPR.to_html
+  end
+
+  def test_transaction_to_html_returns_string
+    assert_kind_of String, @sample_835.to_html
+  end
+
+  def test_verify_output_against_known_good_html
+    assert_equal File.read('samples/sample835.html'), @sample_835.to_html
+    assert_equal File.read('samples/sample837.html'), @sample_837.to_html
+  end
+end

data/test/test_parser.rb

@@ -0,0 +1,138 @@
+require File.expand_path('test_helper', File.dirname(__FILE__))
+
+class TestParser < MiniTest::Unit::TestCase
+  def setup
+    @parser = Hippo_eyeDoc::Parser.new
+  end
+
+  def test_parse_returns_array_of_transaction_sets
+    transaction_sets = @parser.parse_file('samples/005010X221A1_business_scenario_1.edi')
+
+    assert_instance_of Array, transaction_sets
+
+    transaction_sets.each do |ts|
+      assert_kind_of Hippo_eyeDoc::TransactionSets::Base, ts
+    end
+  end
+
+  def test_raises_error_on_extra_segments
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.ST
+    ts.TSS.Field2 = 'Bar'
+    ts.TSS.Field3 = 'Baz'
+    ts.TCS.Field1 = 'Blah'
+    ts.TCS.CompositeCommonName_02 = 'CNBlah'
+    ts.TSS_02.Field2 = 'Boo'
+
+    # test nested block syntax on non-looping component
+    ts.L0001.TSS.Field2 = 'SubBar'
+
+    # test nested block syntax on non-looping component
+    ts.L0002 do |l0002|
+      l0002.TCS.Field2 = 'SubBarBlah'
+      l0002.TSS.Field2 = 'SubBarRepeater'
+    end
+
+    #'TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Segment*Boo~TSS*Foo*SubBar~TCS*:SubBarBlah**Foo2~TSS*Last Segment*SubBarRepeater~', ts.to_s
+
+    ts_result = @parser.parse_string(ts.to_s).first
+
+    assert_equal ts.values.to_s, ts_result.values.to_s
+  end
+
+  def test_reads_separators_from_isa
+    @parser.parse_file('samples/005010X231A1_01.edi')
+
+    assert_equal '*', @parser.field_separator
+    assert_equal '^', @parser.repetition_separator
+    assert_equal ':', @parser.composite_separator
+    assert_equal '~', @parser.segment_separator
+
+    @parser = Hippo_eyeDoc::Parser.new
+    transaction_set = @parser.parse_file('samples/005010X231A1_02.edi')
+
+    assert_equal '!', @parser.field_separator
+    assert_equal '@', @parser.repetition_separator
+    assert_equal '~', @parser.composite_separator
+    assert_equal '^', @parser.segment_separator
+
+    assert_equal transaction_set.first.ST.ST01, '999'
+  end
+
+  def test_adds_enveloping_to_transaction_set
+    transaction_set = @parser.parse_file('samples/005010X231A1_01.edi').first
+
+    assert_equal 445289179, transaction_set.ISA.ISA13
+    assert_equal 1, transaction_set.GS.GS06
+  end
+
+  def test_parses_repeating_loops
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.ST
+    [1,2,3,4,5].each do |i|
+      ts.TSS.build do |tss|
+        tss.Field2 = 'Bar' + i.to_s
+        tss.Field3 = 'Baz' + i.to_s
+      end
+    end
+
+    ts.TCS.Field1    = 'Blah'
+    ts.TSS_02.Field2 = 'Boo'
+    ts.SE.SE01       = ts.segment_count
+
+    # ST*Test~TSS*Blah*Bar1*Baz1~TSS*Blah*Bar2*Baz2~TSS*Blah*Bar3*Baz3~TSS*Blah*Bar4*Baz4~TSS*Blah*Bar5*Baz5~TCS*Blah**Preset Field 7~TSS*Last Standalone Segment*Boo~SE**Test
+    assert_equal ts.values.to_s, @parser.parse_string(ts.to_s).first.values.to_s
+  end
+
+  def test_parses_partial_transaction_set
+    ts_01 = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts_01.L0002 do |l0002|
+      l0002.TCS.Field2 = 'SubBarBlah'
+      l0002.TSS.Field2 = 'SubBarRepeater'
+    end
+
+    # TCS*:SubBarBlah**Foo2~TSS*Last Segment*SubBarRepeater~
+    ts_02 = Hippo_eyeDoc::TransactionSets::Test::L0002.new
+    ts_02.parse(ts_01.to_s)
+
+    assert_equal ts_01.L0002.values.to_s, ts_02.values.to_s
+  end
+
+  def test_parse_l2000a
+    files = ['samples/837_L2000A_01.edi', 'samples/837_L2000A_02.edi']
+    files.each do |f|
+      l2000a = Hippo_eyeDoc::TransactionSets::HIPAA_837::L2000A.new.parse(File.read(f))
+
+      # when L2000B HL04 is '0' we must have a L2000C child
+      if l2000a.L2000B.HL.HL04 == '0'
+        assert_nil l2000a.L2000B.L2000C.HL.HL02
+      else
+        assert_equal l2000a.L2000B.HL.HL01, l2000a.L2000B.L2000C.HL.HL02
+      end
+    end
+  end
+
+  def test_same_child_exists_in_multiple_levels
+    no_child_loop_string = "TSS*HAS NO CHILD LOOP~TSS*Multiple Parents~"
+    ts                   = Hippo_eyeDoc::TransactionSets::Test::L0004.new
+
+    ts.parse(no_child_loop_string)
+    assert_equal 'TSS*Multiple Parents~', ts.values[1].TSS.to_s
+
+
+    child_loop_string = "TSS*HAS CHILD LOOP~TSS*Multiple Parents~"
+    ts                   = Hippo_eyeDoc::TransactionSets::Test::L0004.new
+
+    ts.parse(child_loop_string)
+    assert_equal 'TSS*Multiple Parents~', ts.values[2].to_s
+  end
+
+  def test_strips_leading_whitespace_from_segment_identifier
+    initial_string = "    ST*Test~\n      TSS*Blah*BOOM~"
+    ts             = Hippo_eyeDoc::TransactionSets::Test::Base.new
+
+    ts.parse(initial_string)
+
+    assert_equal ts.TSS.TSS02, 'BOOM'
+  end
+end

data/test/test_pretty_string_outputter.rb

@@ -0,0 +1,33 @@
+require File.expand_path('test_helper', File.dirname(__FILE__))
+
+class TestPrettyStringOutputter < MiniTest::Unit::TestCase
+  def setup
+    @ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    @ts.parse('ST*Test~TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Standalone Segment*Boo~TSS*Foo*SubBar~TCS*:SubBarBlah**Foo2~TSS*Last Segment*SubBarRepeater~')
+  end
+
+  def test_segment_to_pretty_string_returns_segment_to_s
+    assert_equal @ts.TSS.to_s + "\n", @ts.TSS.to_pretty_string
+  end
+
+  def test_transaction_to_pretty_string_returns_proper_value
+    expected_output = <<-EOF
+ST*Test~
+  TSS*Blah*Bar*Baz~
+  TCS*Blah*:::CNBlah*Preset Field 7~
+  TSS*Last Standalone Segment*Boo~
+  TSS*Foo*SubBar~
+  TCS*:SubBarBlah**Foo2~
+    TSS*Last Segment*SubBarRepeater~
+    EOF
+
+    assert_equal expected_output, @ts.to_pretty_string
+  end
+
+  def test_sample835_output
+    sample_835 = Hippo_eyeDoc::TransactionSets::HIPAA_835::Base.new
+    sample_835.parse(File.read('samples/005010X221A1_business_scenario_1.edi'))
+
+    assert_equal File.read('samples/sample835.pretty_string'), sample_835.to_pretty_string
+  end
+end

data/test/test_segments_base.rb

@@ -0,0 +1,201 @@
+require File.expand_path('test_helper', File.dirname(__FILE__))
+
+class TestSegmentsBase < MiniTest::Unit::TestCase
+  def setup; end;
+  def teardown; end;
+
+  def test_empty_segment
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    assert_equal '', seg.to_s
+  end
+
+  def test_basic_populated_segment
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    seg.Field1 = 'TestField1'
+    seg.Field2 = 'TestField2'
+    seg.Field3 = 'TestField3'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS*TestField1*TestField2*TestField3*TestField4~', seg.to_s
+  end
+
+  def test_empty_field_in_segment
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    seg.Field2 = 'TestField2'
+    seg.Field3 = 'TestField3'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS**TestField2*TestField3*TestField4~', seg.to_s
+
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    seg.Field2 = 'TestField2'
+
+    assert_equal 'TSS**TestField2~', seg.to_s
+  end
+
+  def test_segment_orders_properly
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    seg.Field3 = 'TestField3'
+    seg.Field2 = 'TestField2'
+    seg.Field1 = 'TestField1'
+    seg.Field4 = 'TestField4'
+
+    assert_equal 'TSS*TestField1*TestField2*TestField3*TestField4~', seg.to_s
+  end
+
+  def test_assign_values_with_same_field_names
+    seg = Hippo_eyeDoc::Segments::TSS.new
+    seg.CommonName = 'Value1'
+    seg.CommonName_02 = 'Value2'
+
+    assert_equal 'TSS*****Value1*Value2~', seg.to_s
+
+    seg.CommonName_01 = 'Value3'
+    seg.CommonName_02 = 'Value4'
+
+    assert_equal 'TSS*****Value3*Value4~', seg.to_s
+  end
+
+  def test_compound_segment
+    seg = Hippo_eyeDoc::Segments::TCS.new
+
+    seg.Field1  = 'Comp1Field1'
+    seg.Field2  = 'Comp1Field2'
+
+    assert_equal 'TCS*Comp1Field1:Comp1Field2~', seg.to_s
+
+    seg.Field7 = 'Field7'
+
+    assert_equal 'TCS*Comp1Field1:Comp1Field2**Field7~', seg.to_s
+  end
+
+  def test_compound_segment_with_empty_initial_fields
+    seg = Hippo_eyeDoc::Segments::TCS.new
+
+    seg.Field2  = 'Comp1Field2'
+
+    assert_equal 'TCS*:Comp1Field2~', seg.to_s
+  end
+
+  def test_compound_segment_assign_values_with_same_field_names
+
+    seg = Hippo_eyeDoc::Segments::TCS.new
+
+    seg.CompositeCommonName = 'CompVal1'
+    seg.CompositeCommonName_02 = 'CompVal2'
+
+    assert_equal 'TCS*:::CompVal1*:::CompVal2~', seg.to_s
+
+    seg.CompositeCommonName_1 = 'CompVal3'
+    seg.CompositeCommonName_2 = 'CompVal4'
+
+    assert_equal 'TCS*:::CompVal3*:::CompVal4~', seg.to_s
+
+    seg.TCS01_04 = 'CompVal5'
+    seg.TCS02_04 = 'CompVal6'
+
+    assert_equal 'TCS*:::CompVal5*:::CompVal6~', seg.to_s
+
+    assert_equal 'CompVal5', seg.TCS01_04
+  end
+
+  def test_assign_invalid_field_throws_error
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidField) do
+      seg = Hippo_eyeDoc::Segments::NM1.new
+      seg.InvalidField = 'Error should be raised.'
+    end
+  end
+
+  def test_raises_invalid_value_for_date_fields
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidValue) { seg.DateField = "asdf" }
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidValue) { seg.DateField = "0810" }
+
+    seg.DateField = Date.today
+    seg.DateField = "20120120"
+    seg.DateField = Time.now
+    seg.DateField = nil
+  end
+
+  def test_raises_invalid_value_for_time_fields
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidValue) { seg.TimeField = "asdf" }
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidValue) { seg.TimeField = "25111201" }
+    assert_raises(Hippo_eyeDoc::Exceptions::InvalidValue) { seg.TimeField = Date.today }
+
+    seg.TimeField = "0120"
+    seg.TimeField = Time.now
+    seg.TimeField = nil
+  end
+
+  def test_performs_type_conversion
+    seg = Hippo_eyeDoc::Segments::TSS.new
+
+    seg.DateField = '20120121'
+    assert_equal Date.new(2012,01,21), seg.DateField
+
+    seg.TimeField = '231101'
+    assert_equal Time.new(Date.today.year, Date.today.month, Date.today.day, 23,11,01), seg.TimeField
+
+    seg.IntegerField = '2'
+    assert_equal 2, seg.IntegerField
+
+    seg.DecimalField = '123.45'
+    assert_equal BigDecimal.new('123.45'), seg.DecimalField
+
+    assert_equal 'TSS*******20120121*231101*2*123.45~', seg.to_s
+  end
+
+  def test_fixed_width_segment
+    isa = Hippo_eyeDoc::Segments::ISA.new
+
+    assert_equal "ISA*  *#{' ' * 10}*  *#{' ' * 10}*  *#{' ' * 15}*  *#{' ' * 15}*#{Date.today.strftime('%y%m%d')}*#{Time.now.strftime('%H%M')}* *     *#{'0' * 9}* * * ~", isa.to_s
+
+    isa.AuthorizationInformationQualifier  = '00'
+    isa.SecurityInformationQualifier       = '00'
+    isa.InterchangeIdQualifier_01          = 'ZZ'
+    isa.InterchangeSenderId                = '593208085'
+    isa.InterchangeIdQualifier_02          = 'ZZ'
+    isa.InterchangeReceiverId              = 'OVERRIDE'
+    isa.InterchangeDate                    = Time.now
+    isa.InterchangeTime                    = Time.now
+    isa.RepetitionSeparator                = Hippo_eyeDoc::DEFAULT_REPETITION_SEPARATOR
+    isa.InterchangeControlVersionNumber    = '00501'
+    isa.InterchangeControlNumber           = 12345
+    isa.AcknowledgmentRequested            = '1'
+    isa.InterchangeUsageIndicator          = 'T'
+    isa.ComponentElementSeparator          = Hippo_eyeDoc::DEFAULT_COMPOSITE_SEPARATOR
+
+    assert_equal "ISA*00*          *00*          *ZZ*593208085      *ZZ*OVERRIDE       *#{Date.today.strftime('%y%m%d')}*#{Time.now.strftime('%H%M')}*^*00501*000012345*1*T*:~", isa.to_s
+  end
+
+  def test_access_empty_composite_returns_nil
+    seg = Hippo_eyeDoc::Segments::TCS.new
+
+    assert_equal nil, seg.TCS01_01
+  end
+
+  def test_segment_parse_for_composite_fields
+    input_string = "STC*A7:755:87*20121127*U*2200******A3:448**REJECTED AT CLEARINGHOUSE PAY-TO PROVIDER PRIMARY ID# IS NOT USED (1235196510) (59141)"
+    seg = Hippo_eyeDoc::Segments::STC.new.parse(input_string)
+    assert_equal input_string + '~', seg.to_s
+  end
+
+  def test_empty_fields_are_removed
+    n1 = Hippo_eyeDoc::Segments::N1.new.parse("N1*PE*    *XX*1234567890")
+    assert_equal "N1*PE**XX*1234567890~", n1.to_s
+  end
+
+  def test_remove_empty_fields_doesnt_change_populated_fields
+    original = "N1*PE*SOME RANDOM   NAME HERE*XX*1234567890"
+    n1 = Hippo_eyeDoc::Segments::N1.new.parse(original)
+    assert_equal original + '~', n1.to_s
+  end
+end

data/test/test_transaction_sets_base.rb

@@ -0,0 +1,122 @@
+require File.expand_path('test_helper', File.dirname(__FILE__))
+
+class TestTransactionSetBase < MiniTest::Unit::TestCase
+  def test_preset_values_are_set
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.TCS
+    ts.TSS.build
+
+    assert_equal 'TSS*Blah~TCS***Preset Field 7~', ts.to_s
+  end
+
+  def test_segment_ordering_is_correct
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.TCS.Field1 = 'Foo'
+    ts.TSS.Field2 = 'Bar'
+
+    assert_equal 'TSS*Blah*Bar~TCS*Foo**Preset Field 7~', ts.to_s
+  end
+
+  def test_raises_error_on_invalid_segment
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    assert_raises Hippo_eyeDoc::Exceptions::InvalidSegment do
+      ts.BLAH {|blah| }
+    end
+  end
+
+  def test_identified_by_values_are_set
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.L0001 {|l0001| }
+
+    assert_equal 'TSS*Foo~', ts.to_s
+  end
+
+  def test_accessing_segments_with_same_segment_id
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.TSS.Field2 = 'Bar'
+    ts.TCS.Field1 = 'Foo'
+    ts.TSS_02.Field2 = 'Baz'
+
+    assert_equal 'TSS*Blah*Bar~TCS*Foo**Preset Field 7~TSS*Last Standalone Segment*Baz~', ts.to_s
+  end
+
+  def test_accessing_segments_by_name
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.find_by_name('Test Simple Segment #1') do |tss|
+      tss.Field2 = 'Baz'
+    end
+
+    assert_equal 'TSS*Blah*Baz~', ts.to_s
+  end
+
+  def test_accessing_segments_by_name_regexp
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+    ts.find_by_name(/Segment/) do |tss|
+      tss.Field2 = 'Baz'
+    end
+
+    assert_equal 'TSS*Blah*Baz~', ts.to_s
+  end
+  
+  def test_assigning_segment_values_with_block_syntax
+    ts = Hippo_eyeDoc::TransactionSets::Test::Base.new
+
+    ts.TSS do |tss|
+      tss.Field2 = 'Bar'
+      tss.Field3 = 'Baz'
+    end
+
+    ts.TCS do |tcs|
+      tcs.Field1 = 'Blah'
+      tcs.CompositeCommonName_02 = 'CNBlah'
+    end
+
+    ts.TSS_02 do |tss|
+      tss.Field2 = 'Boo'
+    end
+
+    assert_equal 'TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Standalone Segment*Boo~', ts.to_s
+
+    # test nexted block syntax on non-looping component
+    ts.L0001 do |l0001|
+      l0001.TSS do |tss|
+        tss.Field2 = 'SubBar'
+      end
+    end
+
+    assert_equal 'TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Standalone Segment*Boo~TSS*Foo*SubBar~', ts.to_s
+
+    # test nexted block syntax on non-looping component
+    ts.L0002 do |l0002|
+      l0002.TCS do |tcs|
+        tcs.Field2 = 'SubBarBlah'
+      end
+
+      l0002.TSS do |tss|
+        tss.Field2 = 'SubBarRepeater'
+      end
+    end
+
+    assert_equal 'TSS*Blah*Bar*Baz~TCS*Blah*:::CNBlah*Preset Field 7~TSS*Last Standalone Segment*Boo~TSS*Foo*SubBar~TCS*:SubBarBlah**Foo2~TSS*Last Segment*SubBarRepeater~', ts.to_s
+  end
+
+  def test_intializing_with_segment_array_populates_transaction_set
+    tss = Hippo_eyeDoc::Segments::TSS.new
+    tss.TSS01 = 'Blah'
+
+    tcs = Hippo_eyeDoc::Segments::TCS.new
+    tcs.Field7 = 'Preset Field 7'
+
+    tss2 = Hippo_eyeDoc::Segments::TSS.new
+    tss2.TSS01 = 'Last Standalone Segment'
+
+    # start L0001 segments
+    tss3 = Hippo_eyeDoc::Segments::TSS.new
+    tss3.TSS01 = 'Foo'
+
+    segment_array = [tss, tcs, tss2, tss3]
+
+    assert_equal segment_array.map(&:to_s).join, Hippo_eyeDoc::TransactionSets::Test::Base.new(:segments => segment_array).to_s
+    assert_empty segment_array
+  end
+end