X12 0.0.5

data/test/tc_factory_997.rb

@@ -0,0 +1,130 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+require 'x12'
+require 'test/unit'
+
+class TestFactory < Test::Unit::TestCase
+
+  @@p = nil
+RESULT=<<-EOT
+ST*997*2878~
+AK1*HS*293328532~
+AK2*270*~
+AK3*NM1**L1000D~
+AK4***55*Bad element~
+AK5*~
+AK3*DMG*0*L1010*22~
+AK4*0**0~
+AK4*0**1~
+AK4*1**0~
+AK4*1**1~
+AK5*666****999~
+AK9****~
+SE**~
+EOT
+
+  @@result = RESULT.gsub!(/\n/,'')
+  TIMES = 1000
+
+  def setup
+    unless @@p
+      @@p = X12::Parser.new('misc/997.d12')
+    end
+  end # setup
+
+  def teardown
+    # Nothing
+  end # teardown
+
+  def test_all
+    @r = @@p.factory('997')
+
+    @r.ST.TransactionSetIdentifierCode = 997
+    @r.ST.TransactionSetControlNumber  = '2878'
+
+    @r.AK1 { |ak1|
+      ak1.FunctionalIdentifierCode = 'HS'
+      ak1.GroupControlNumber       = 293328532
+    }
+
+    @r.L1000.L1010.AK4.DataElementSyntaxErrorCode=55
+    @r.L1000.AK2.TransactionSetIdentifierCode = 270
+    @r.L1000.L1010 {|l|
+      l.AK3 {|s|
+        s.SegmentIdCode                   = 'NM1'
+        #SegmentPositionInTransactionSet
+        s.LoopIdentifierCode              = 'L1000D'
+        #SegmentSyntaxErrorCode
+      }
+
+      l.AK4 {|s|
+        #s.PositionInSegment =
+        #s.DataElementReferenceNumber =
+        #s.DataElementSyntaxErrorCode = 
+        s.CopyOfBadDataElement       = 'Bad element'
+      }
+    }
+
+    # Should be two repeats in total
+    @r.L1000.repeat {|l1000|
+      (0..1).each {|loop_repeat| # Two repeats of the loop L1010
+        l1000.L1010.repeat {|l1010|
+
+          l1010.AK3 {|s|
+            s.SegmentIdCode                   = 'DMG'
+            s.SegmentPositionInTransactionSet = 0
+            s.LoopIdentifierCode              = 'L1010'
+            s.SegmentSyntaxErrorCode          = 22
+          } if loop_repeat == 0 # AK3 only in the first repeat of L1010
+
+          (0..1).each {|ak4_repeat| # Two repeats of the segment AK4
+            l1010.AK4.repeat {|s|
+              s.PositionInSegment          = loop_repeat
+              #s.DataElementReferenceNumber = 
+              s.DataElementSyntaxErrorCode = ak4_repeat
+              #s.CopyOfBadDataElement       =
+            } # s
+          } # ak4_repeat
+        } # l1010
+      } # loop_repeat
+
+      l1000.AK5{|a|
+        a.TransactionSetAcknowledgmentCode = 666
+        a.TransactionSetSyntaxErrorCode4 = 999
+      } # a
+    } # l1000
+
+    assert_equal(@@result, @r.render)
+  end # test_all
+
+  def test_timing
+    start = Time::now
+    TIMES.times do
+      test_all
+    end
+    finish = Time::now
+    puts "Factories per second: #{TIMES.to_f/(finish-start)}, elapsed: #{finish-start}"
+  end # test_timing
+
+end # TestList

data/test/tc_parse_997.rb

@@ -0,0 +1,146 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+require 'x12'
+require 'test/unit'
+
+class TestParse < Test::Unit::TestCase
+
+  @@p = nil
+  @@parser = X12::Parser.new('misc/997.d12')
+  TIMES = 1000
+
+  def setup
+    unless @@p
+      @@m997=<<-EOT
+ST*997*2878~
+AK1*HS*293328532~
+AK2*270*307272179~
+AK3*NM1*8*L1010_0*8~
+AK4*0:0*66*1~
+AK4*0:1*66*1~
+AK4*0:2*66*1~
+AK3*NM1*8*L1010_1*8~
+AK4*1:0*66*1~
+AK4*1:1*66*1~
+AK3*NM1*8*L1010_2*8~
+AK4*2:0*66*1~
+AK5*R*5~
+AK9*R*1*1*0~
+SE*8*2878~
+EOT
+
+# This should parse into 
+# 997 [0]: ST*997*2878~AK1*HS*293328532~A...AK5*R*5~AK9*R*1*1*0~SE*8*2878~
+#   ST [0]: ST*997*2878~
+#   AK1 [0]: AK1*HS*293328532~
+#   L1000 [0]: AK2*270*307272179~AK3*NM1*8*L1...1010_2*8~AK4*2:0*66*1~AK5*R*5~
+#     AK2 [0]: AK2*270*307272179~
+#     L1010 [0]: AK3*NM1*8*L1010_0*8~AK4*0:0*66*1~AK4*0:1*66*1~AK4*0:2*66*1~
+#       AK3 [0]: AK3*NM1*8*L1010_0*8~
+#       AK4 [0]: AK4*0:0*66*1~
+#       AK4 [1]: AK4*0:1*66*1~
+#       AK4 [2]: AK4*0:2*66*1~
+#     L1010 [1]: AK3*NM1*8*L1010_1*8~AK4*1:0*66*1~AK4*1:1*66*1~
+#       AK3 [0]: AK3*NM1*8*L1010_1*8~
+#       AK4 [0]: AK4*1:0*66*1~
+#       AK4 [1]: AK4*1:1*66*1~
+#     L1010 [2]: AK3*NM1*8*L1010_2*8~AK4*2:0*66*1~
+#       AK3 [0]: AK3*NM1*8*L1010_2*8~
+#       AK4 [0]: AK4*2:0*66*1~
+#     AK5 [0]: AK5*R*5~
+#   AK9 [0]: AK9*R*1*1*0~
+#   SE [0]: SE*8*2878~
+
+      @@m997.gsub!(/\n/,'')
+
+      @@p = @@parser.parse('997', @@m997)
+    end
+    @r = @@p
+  end # setup
+
+  def teardown
+    # Nothing
+  end # teardown
+
+  def test_ST
+    assert_equal('ST*997*2878~', @r.ST.to_s)
+    assert_equal('997', @r.ST.TransactionSetIdentifierCode)
+  end # test_ST
+
+  def test_AK1
+    assert_equal('293328532', @r.AK1.GroupControlNumber)
+  end # test_AK1
+
+  def test_AK2
+    assert_equal('270', @r.L1000.AK2.TransactionSetIdentifierCode)
+  end # test_AK2
+
+  def test_L1010
+    assert_match(/L1010_0/, @r.L1000.L1010.to_s)
+    assert_equal(3, @r.L1000.L1010.to_a.size)
+    assert_equal(3, @r.L1000.L1010.size)
+    assert_match(/L1010_2/, @r.L1000.L1010.to_a[2].to_s)
+    assert_match(/L1010_2/, @r.L1000.L1010[2].to_s)
+  end # test_L1010
+
+  def test_AK4
+    assert_equal('AK4*1:0*66*1~', @r.L1000.L1010.to_a[1].AK4.to_s)
+    assert_equal('AK4*1:0*66*1~', @r.L1000.L1010[1].AK4.to_s)
+    assert_equal(3, @r.L1000.L1010.AK4.to_a.size)
+    assert_equal(3, @r.L1000.L1010.AK4.size)
+    assert_equal(2, @r.L1000.L1010.to_a[1].AK4.to_a.size)
+    assert_equal(2, @r.L1000.L1010[1].AK4.size)
+    assert_equal('AK4*1:1*66*1~', @r.L1000.L1010.to_a[1].AK4.to_a[1].to_s)
+    assert_equal('AK4*1:1*66*1~', @r.L1000.L1010[1].AK4[1].to_s)
+    assert_equal('66', @r.L1000.L1010.AK4.DataElementReferenceNumber)
+  end # test_AK4
+
+  def test_absent
+    assert_equal(X12::EMPTY, @r.L1000.AK8.TransactionSetIdentifierCode)
+    assert_equal(X12::EMPTY, @r.L1000.L1111)
+    assert_equal(X12::EMPTY, @r.L1000.L1111.L2222)
+    assert_equal(X12::EMPTY, @r.L1000.L1111.L2222.AFAFA)
+    assert_equal(X12::EMPTY, @r.L1000.L1010[-99])
+    assert_equal(X12::EMPTY, @r.L1000.L1010[99])
+    assert_equal(X12::EMPTY, @r.L1000.L1010[99].AK4)
+
+    assert_equal('', @r.L1000.AK8.TransactionSetIdentifierCode.to_s)
+  end # test_absent
+
+  def test_timing
+    start = Time::now
+    TIMES.times do
+      @r = @@parser.parse('997', @@m997)
+      test_ST
+      test_AK1
+      test_AK2
+      test_AK4
+      test_L1010
+      test_absent
+    end
+    finish = Time::now
+    puts "Parses per second: #{TIMES.to_f/(finish-start)}, elapsed: #{finish-start}"
+  end # test_timing
+
+end # TestList

data/test/ts_x12.rb

@@ -0,0 +1,27 @@
+#--
+#     This file is part of the X12Parser library that provides tools to
+#     manipulate X12 messages using Ruby native syntax.
+#
+#     http://x12parser.rubyforge.org 
+#     
+#     Copyright (C) 2008 APP Design, Inc.
+#
+#     This library is free software; you can redistribute it and/or
+#     modify it under the terms of the GNU Lesser General Public
+#     License as published by the Free Software Foundation; either
+#     version 2.1 of the License, or (at your option) any later version.
+#
+#     This library is distributed in the hope that it will be useful,
+#     but WITHOUT ANY WARRANTY; without even the implied warranty of
+#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#     Lesser General Public License for more details.
+#
+#     You should have received a copy of the GNU Lesser General Public
+#     License along with this library; if not, write to the Free Software
+#     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+#++
+#
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'tc_parse_997'
+require 'tc_factory_997'

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: X12
+version: !ruby/object:Gem::Version 
+  version: 0.0.5
+date: 2008-11-13 00:00:00 -06:00
+summary: X12 parsing and generation library
+require_paths: 
+- lib
+email: info@appdesign.com
+homepage: http://www.appdesign.com
+rubyforge_project: X12
+description: Library to parse X12 messages and manipulate their loops, segments, fields, composites, and validation tables.
+autorequire: x12
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- APP Design, Inc.
+files: 
+- Rakefile
+- README
+- TODO
+- CHANGELOG
+- COPYING
+- doc/classes
+- doc/classes/X12
+- doc/classes/X12/Base.html
+- doc/classes/X12/Composite.html
+- doc/classes/X12/Empty.html
+- doc/classes/X12/Field.html
+- doc/classes/X12/Loop.html
+- doc/classes/X12/Parser.html
+- doc/classes/X12/Segment.html
+- doc/classes/X12/Table.html
+- doc/classes/X12.html
+- doc/created.rid
+- doc/files
+- doc/files/CHANGELOG.html
+- doc/files/lib
+- doc/files/lib/X12
+- doc/files/lib/X12/Base_rb.html
+- doc/files/lib/X12/Composite_rb.html
+- doc/files/lib/X12/Empty_rb.html
+- doc/files/lib/X12/Field_rb.html
+- doc/files/lib/X12/Loop_rb.html
+- doc/files/lib/X12/Parser_rb.html
+- doc/files/lib/X12/Segment_rb.html
+- doc/files/lib/X12/Table_rb.html
+- doc/files/lib/X12_rb.html
+- doc/files/README.html
+- doc/files/TODO.html
+- doc/fr_class_index.html
+- doc/fr_file_index.html
+- doc/fr_method_index.html
+- doc/index.html
+- doc/rdoc-style.css
+- lib/X12
+- lib/X12/Base.rb
+- lib/X12/Composite.rb
+- lib/X12/Empty.rb
+- lib/X12/Field.rb
+- lib/X12/Loop.rb
+- lib/X12/Parser.rb
+- lib/X12/Segment.rb
+- lib/X12/Table.rb
+- lib/X12/x12syntax.treetop
+- lib/X12.rb
+- test/tc_factory_997.rb
+- test/tc_parse_997.rb
+- test/ts_x12.rb
+- example/factory.rb
+- example/parse.rb
+- misc/997.d12
+- misc/rdoc_template.rb
+test_files: 
+- test/ts_x12.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: 
+- none
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: treetop
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: