edifact_converter 2.0.13

data/test/edi2xml11/log_reader_handler.rb

@@ -0,0 +1,109 @@
+require 'edifact_converter/empty_handler'
+require 'edifact_converter/edi2xml11/position'
+
+class LogReaderHandler < EdifactConverter::EmptyHandler
+
+  class Node
+    NODE_TYPES = [:root, :segment_group, :segment, :element, :value]
+    attr_accessor :value, :children, :position, :type
+
+    NODE_TYPES.each do |type|
+      define_singleton_method(type) do |value, position = nil|
+        self.new value, position, type
+      end
+    end
+
+    def initialize(value, position, type, children = [])
+      self.value = value
+      self.position = position
+      raise ArgumentError unless NODE_TYPES.include? type
+      self.type = type
+      self.children = children if type != :value
+    end
+
+    def select(of_type, prev_groups = [])
+      return prev_groups unless can_be_child? of_type
+      children.inject(prev_groups) do |groups, child|
+        groups << child if child.type == of_type
+        child.select of_type, groups
+        groups
+      end
+    end
+
+    def can_be_child?(node_type)
+      NODE_TYPES.index(type) < NODE_TYPES.index(node_type) || type == :segment_group
+    end
+
+  end
+
+  attr_accessor :document, :stack
+
+  def last
+    @last ||= {}
+  end
+
+  def number_of(type)
+    document.select(type).size
+  end
+
+  def balanced?
+    stack.last == document
+  end
+
+  def push(node)
+    unless stack.last.can_be_child? node.type
+      p stack.last  
+      raise 'Hell' 
+    end
+    stack.last.children << node
+    last[node.type] = node
+    stack.push node unless node.type == :value
+  end
+
+  def pop(name, type)
+    unless stack.last.value == name && stack.last.type == type
+      raise 'Hell' 
+    end
+    stack.pop
+  end
+
+  def startDocument
+    self.document = Node.root('Edifact')
+    self.stack = [document]
+    super
+  end
+
+  def startSegmentGroup(name, hidden = false)
+    push Node.segment_group(name, locator.position)
+    super
+  end
+
+  def endSegmentGroup(name)
+    pop name, :segment_group
+    super
+  end
+
+  def startSegment(name)
+    push Node.segment(name, locator.position)
+    super
+  end
+
+  def endSegment(name)
+    pop name, :segment
+    super
+  end
+  
+  def startElement
+    push Node.element('elm', locator.position)
+    super
+  end
+
+  def endElement
+    pop 'elm', :element
+    super
+  end
+  def value(value)
+    push Node.value(value, locator.position)
+    super
+  end
+end

data/test/edi2xml11/postion_io_test.rb

@@ -0,0 +1,87 @@
+require 'test/unit'
+require 'edifact_converter/edi2xml11/position_io'
+
+module EdifactConverter::EDI2XML11
+
+  class PositionIOTest < Test::Unit::TestCase
+
+    attr_accessor :text_input, :space_input
+    def setup
+      self.text_input = PositionIO.new StringIO.new %#Løne 1
+Line2
+Line3#.encode(Encoding::ISO_8859_1)
+      self.space_input = PositionIO.new StringIO.new " \t \t  \n \r "
+    end
+
+    def test_zero_at_start
+      assert_equal Position.new(0, 0), text_input.position
+      assert_equal Position.new(0, 0), space_input.position
+    end
+
+    def test_changes_column_on_read
+      text_input.read 5
+      assert_equal Position.new(0, 5), text_input.position
+      space_input.read 5
+      assert_equal Position.new(0, 5), space_input.position
+    end
+
+    def test_changes_line_on_read
+      text_input.read 7
+      assert_equal 1, text_input.position.line
+      space_input.read 7
+      assert_equal 1, space_input.position.line
+    end
+
+    def test_resets_column_on_newline
+      text_input.read 7
+      assert_equal Position.new(1, 1), text_input.position
+      space_input.read 7
+      assert_equal Position.new(1, 1), space_input.position
+    end
+
+    def test_decrements_column_on_unread
+      text_input.read 5
+      text_input.unread 2
+      assert_equal Position.new(0, 3), text_input.position
+      space_input.read 5
+      space_input.unread 2
+      assert_equal Position.new(0, 3), space_input.position
+    end
+
+    def test_decrements_line_on_unread
+      text_input.read 7
+      text_input.unread 2
+      assert_equal Position.new(0, 5), text_input.position
+      space_input.read 7
+      space_input.unread 2
+      assert_equal Position.new(0, 5), space_input.position
+    end
+
+    def test_spaces
+      space_input.read 6
+      assert_equal Position.new(0, 6), space_input.position
+      assert_equal Position.new(0, 6), space_input.position
+      space_input.read #It filters newlines out of result
+      assert_equal Position.new(1, 1), space_input.position
+    end
+
+    def test_binary
+      image_hex = ["47494638376102000200800000000000ffffff2c00000000020002000002028451003b"]
+      image_data = image_hex.pack('H*')
+      file = StringIO.new "".encode(Encoding::ASCII_8BIT)
+      file.write "UNO+1+AID:5051D8515CAC4F6980E1F4BC6B86BF62+OBJ:IMG:GIF:91+35:14:1:A'"
+      file.write image_data
+      file.write "UNP+32+1'"
+      file.rewind
+      file_input = PositionIO.new file
+      file_input.read(68)
+      assert_equal Position.new(0, 68), file_input.position
+      read_data = file_input.binread(image_data.size)
+      assert_equal image_hex, read_data.unpack('H*')
+      assert_equal Position.new(0, 68+image_data.size), file_input.position
+      assert_equal 'U', file_input.read
+    end
+
+  end
+
+end

data/test/edi2xml11/postion_test.rb

@@ -0,0 +1,19 @@
+require 'test/unit'
+require 'edifact_converter'
+
+module EdifactConverter::EDI2XML11
+
+  class PositionTest < Test::Unit::TestCase
+    def test_position_line
+      pos = Position.new 1, 2
+      assert_equal 1, pos.line
+    end
+
+    def test_position_column
+      pos = Position.new 1, 2
+      assert_equal 2, pos.column
+    end
+
+  end
+
+end

data/test/edi2xml11/segment_group_handler_test.rb

@@ -0,0 +1,88 @@
+require 'test/unit'
+require 'edifact_converter'
+require_relative 'log_reader_handler'
+
+
+module EdifactConverter::EDI2XML11
+
+  class SegmentGroupHandlerTest < Test::Unit::TestCase
+
+    def log_handler
+      @log_handler ||= LogReaderHandler.new
+    end
+
+    def handler
+      @handler ||= SegmentGroupHandler.new log_handler
+    end
+
+    def reader
+      @reader ||= EdiReader.new handler
+    end
+
+    def setup
+      reader
+      handler.startDocument
+    end
+
+    def test_startSegmentGroup
+      assert not(handler.indhold?)
+      handler.startSegmentGroup 'BrevIndhold', true
+      assert handler.indhold?
+      assert_equal 1, log_handler.number_of(:segment_group)
+    end
+
+    def test_endSegmentGroup
+      assert handler.open_groups.empty?
+      handler.startSegmentGroup 'Unused', true
+      handler.startSegment 'S01'
+      assert handler.open_groups.empty?
+      assert_equal 1, log_handler.number_of(:segment)
+      assert_equal 1, log_handler.number_of(:segment_group)
+      handler.endSegment 'S01'
+      handler.endSegmentGroup 'Unused'
+      handler.startSegmentGroup 'BrevIndhold', true
+      assert handler.open_groups.empty?
+      assert_equal 1, log_handler.number_of(:segment)
+      assert_equal 2, log_handler.number_of(:segment_group)
+      handler.startSegment 'S01'
+      assert_equal 1, handler.open_groups.size
+      assert_equal 1, log_handler.number_of(:segment)
+      assert_equal 3, log_handler.number_of(:segment_group)
+      handler.endSegment 'S01'
+      assert_equal 1, handler.open_groups.size
+      assert_equal 1, log_handler.number_of(:segment)
+      assert_equal 3, log_handler.number_of(:segment_group)
+      assert handler.indhold?
+      assert_equal 1, handler.open_groups.size
+      handler.endSegmentGroup 'BrevIndhold'
+      assert handler.open_groups.empty?
+      assert log_handler.balanced?
+    end
+
+    def test_startSegment_and_endSegment
+      assert handler.open_groups.empty?
+      handler.startSegmentGroup 'Root', true
+      handler.startSegment 'S01'
+      assert handler.open_groups.empty?
+      handler.endSegment 'S01'
+      handler.startSegmentGroup 'BrevIndhold', true
+      handler.startSegment 'SS1'
+      handler.endSegment 'SS1'
+      assert handler.open_groups.empty?
+      handler.startSegment 'S01'
+      handler.endSegment 'S01'
+      assert_equal 1, handler.open_groups.size
+      handler.startSegment 'TST'
+      handler.endSegment 'TST'
+      assert_equal 1, handler.open_groups.size
+      handler.endSegmentGroup 'BrevIndhold'
+      assert handler.open_groups.empty?
+      handler.endSegmentGroup 'Root'
+      assert log_handler.balanced?
+      assert_equal 3, log_handler.number_of(:segment_group)
+      assert_equal 3, log_handler.number_of(:segment)
+    end
+
+  end
+
+end

data/test/edi2xml11/xml_handler_test.rb

@@ -0,0 +1,76 @@
+require 'test/unit'
+require 'edifact_converter'
+require 'equivalent-xml'
+
+
+module EdifactConverter::EDI2XML11
+
+  class XmlHandlerTest < Test::Unit::TestCase
+
+    def test_matches_xml
+      builder = Nokogiri::XML::Builder.new(:encoding => 'ISO-8859-1') do |xml|
+        xml.Edifact linie: 0, position: 0 do
+          xml.S01 linie: 1, position: 0 do
+            xml.Elm linie: 1, position: 0 do
+              xml.SubElm "01", linie: 1, position: 0
+            end
+            xml.UNB linie: 1, position: 0 do
+              xml.Elm linie: 1, position: 0 do
+                xml.SubElm "UNOC", linie: 1, position: 0
+                xml.SubElm "3", linie: 1, position: 0
+              end
+              xml.Elm linie: 1, position: 0 do
+                xml.SubElm "5790000143054", linie: 1, position: 0
+                xml.SubElm "14", linie: 1, position: 0
+              end
+            end
+          end
+        end
+      end
+      handler = XmlHandler.new
+      handler.startDocument
+      handler.locator = Locator.new
+      handler.locator.position = Position.new(1, 0)
+      handler.startSegmentGroup "S01", false
+      handler.startElement
+      handler.value "01"
+      handler.endElement
+      handler.startSegment "UNB"
+      handler.startElement
+      handler.value "UNOC"
+      handler.value "3"
+      handler.endElement
+      handler.startElement
+      handler.value "5790000143054"
+      handler.value "14"
+      handler.endElement
+      handler.endSegment 'UNOC'
+      handler.endSegmentGroup 'S01'
+      handler.endDocument
+
+      assert EquivalentXml.equivalent?(handler.xml.root, builder.doc.root)
+    end
+
+    def test_bad_syntax_error
+      handler = XmlHandler.new
+      handler.startDocument
+      handler.locator = Locator.new
+      handler.locator.position = Position.new(2, 0)
+      handler.startSegment "UNB"
+      handler.startElement
+      handler.value "UNOC"
+      handler.value "3"
+      #handler.endElement
+      handler.startElement
+      handler.value "5790000143054"
+      handler.value "14"
+      handler.endElement
+      handler.endSegment 'UNB'
+      assert_raise EdifactConverter::EdifactError do
+        handler.endDocument
+      end
+    end
+
+  end
+
+end

data/test/edifact_test.rb

@@ -0,0 +1,235 @@
+require 'test/unit'
+require 'nokogiri'
+require 'equivalent-xml'
+require 'edifact_converter/edifact'
+require 'edifact_converter/abstract_syntax_tree'
+
+# Refactoring work in progress
+
+module EdifactConverter
+
+  class EdifactTest < Test::Unit::TestCase
+
+    def ctl01_text
+      <<-EOS
+UNA:+.? '
+UNB+UNOC:3+DKKMDKMDNET:14+5790000181872:14+991111:1850+KuvertNr1234'
+UNH+BrevNr5678+CONTRL:D:93A:ZZ:C0130Q+CTL01'
+UCI+MEDREF01095+5790000181872:14+5790000120420:14+4'
+FTX+LOK+P00++EDI-kuvert afsendt 11/11 1999 kl 18.46 har ikke kunnet modtages. :Modtagerlokationsnummer har ikke kunnet identificeres.'
+UCM+1111FRE01095+MEDREF:D:93A:UN:H0130R+4'
+UCM+1111MAN01095+MEDREF:D:93A:UN:H0130R+4'
+UNT+6+BrevNr5678'
+UNZ+1+KuvertNr1234'
+      EOS
+    end
+
+    def ctl01_xml
+      Nokogiri::XML <<-EOS
+    <Edifact linie="0" position="0">
+      <UNB linie="1" position="0">
+        <Elm linie="1" position="3">
+          <SubElm linie="1" position="4">UNOC</SubElm>
+          <SubElm linie="1" position="9">3</SubElm>
+        </Elm>
+        <Elm linie="1" position="10"><SubElm linie="1" position="11">DKKMDKMDNET</SubElm><SubElm linie="1" position="23">14</SubElm></Elm>
+        <Elm linie="1" position="25"><SubElm linie="1" position="26">5790000181872</SubElm><SubElm linie="1" position="40">14</SubElm></Elm>
+        <Elm linie="1" position="42"><SubElm linie="1" position="43">991111</SubElm><SubElm linie="1" position="50">1850</SubElm></Elm>
+        <Elm linie="1" position="54"><SubElm linie="1" position="55">KuvertNr1234</SubElm></Elm>
+      </UNB>
+      <Brev>
+        <UNH linie="2" position="0">
+          <Elm linie="2" position="3"><SubElm linie="2" position="4">BrevNr5678</SubElm></Elm>
+          <Elm linie="2" position="14"><SubElm linie="2" position="15">CONTRL</SubElm><SubElm linie="2" position="22">D</SubElm><SubElm linie="2" position="24">93A</SubElm><SubElm linie="2" position="28">ZZ</SubElm><SubElm linie="2" position="31">C0130Q</SubElm></Elm>
+          <Elm linie="2" position="37"><SubElm linie="2" position="38">CTL01</SubElm></Elm>
+        </UNH>
+        <BrevIndhold>
+          <UCI linie="3" position="0">
+            <Elm linie="3" position="3"><SubElm linie="3" position="4">MEDREF01095</SubElm></Elm>
+            <Elm linie="3" position="15"><SubElm linie="3" position="16">5790000181872</SubElm><SubElm linie="3" position="30">14</SubElm></Elm>
+            <Elm linie="3" position="32"><SubElm linie="3" position="33">5790000120420</SubElm><SubElm linie="3" position="47">14</SubElm></Elm>
+            <Elm linie="3" position="49"><SubElm linie="3" position="50">4</SubElm></Elm>
+          </UCI>
+          <FTX linie="4" position="0">
+            <Elm linie="4" position="3"><SubElm linie="4" position="4">LOK</SubElm></Elm>
+            <Elm linie="4" position="7"><SubElm linie="4" position="8">P00</SubElm></Elm>
+            <Elm linie="4" position="11"/>
+            <Elm linie="4" position="12"><SubElm linie="4" position="13">EDI-kuvert afsendt 11/11 1999 kl 18.46 har ikke kunnet modtages. </SubElm><SubElm linie="4" position="79">Modtagerlokationsnummer har ikke kunnet identificeres.</SubElm></Elm>
+          </FTX>
+          <UCM linie="5" position="0">
+            <Elm linie="5" position="3"><SubElm linie="5" position="4">1111FRE01095</SubElm></Elm>
+            <Elm linie="5" position="16"><SubElm linie="5" position="17">MEDREF</SubElm><SubElm linie="5" position="24">D</SubElm><SubElm linie="5" position="26">93A</SubElm><SubElm linie="5" position="30">UN</SubElm><SubElm linie="5" position="33">H0130R</SubElm></Elm>
+            <Elm linie="5" position="39"><SubElm linie="5" position="40">4</SubElm></Elm>
+          </UCM>
+          <UCM linie="6" position="0">
+            <Elm linie="6" position="3"><SubElm linie="6" position="4">1111MAN01095</SubElm></Elm>
+            <Elm linie="6" position="16"><SubElm linie="6" position="17">MEDREF</SubElm><SubElm linie="6" position="24">D</SubElm><SubElm linie="6" position="26">93A</SubElm><SubElm linie="6" position="30">UN</SubElm><SubElm linie="6" position="33">H0130R</SubElm></Elm>
+            <Elm linie="6" position="39"><SubElm linie="6" position="40">4</SubElm></Elm>
+          </UCM>
+        </BrevIndhold>
+        <UNT linie="7" position="0">
+          <Elm linie="7" position="3"><SubElm linie="7" position="4">6</SubElm></Elm>
+          <Elm linie="7" position="5"><SubElm linie="7" position="6">BrevNr5678</SubElm></Elm>
+        </UNT>
+      </Brev>
+      <UNZ linie="8" position="0">
+        <Elm linie="8" position="3"><SubElm linie="8" position="4">1</SubElm></Elm>
+        <Elm linie="8" position="5"><SubElm linie="8" position="6">KuvertNr1234</SubElm></Elm>
+      </UNZ>
+    </Edifact>    
+      EOS
+    end
+
+    def s01_text
+      <<-EOS
+UNA:+.? '
+UNB+UNOC:3+DKKMDKMDNET:14+5790000181872:14+991111:1850+KuvertNr1234'
+UNH+BrevNr5678+CONTRL:D:93A:ZZ:C0130Q+CTL01'
+S01+1'
+UCM+1111FRE01095+MEDREF:D:93A:UN:H0130R+4'
+UCM+1111MAN01095+MEDREF:D:93A:UN:H0130R+4'
+UNT+5+BrevNr5678'
+UNZ+1+KuvertNr1234'
+      EOS
+    end
+
+    def s01_xml
+      Nokogiri::XML <<-EOS
+<Edifact linie="0" position="0">
+    <UNB linie="1" position="0">
+        <Elm linie="1" position="3">
+            <SubElm linie="1" position="4">UNOC</SubElm>
+            <SubElm linie="1" position="9">3</SubElm>
+        </Elm>
+        <Elm linie="1" position="10">
+            <SubElm linie="1" position="11">DKKMDKMDNET</SubElm>
+            <SubElm linie="1" position="23">14</SubElm>
+        </Elm>
+        <Elm linie="1" position="25">
+            <SubElm linie="1" position="26">5790000181872</SubElm>
+            <SubElm linie="1" position="40">14</SubElm>
+        </Elm>
+        <Elm linie="1" position="42">
+            <SubElm linie="1" position="43">991111</SubElm>
+            <SubElm linie="1" position="50">1850</SubElm>
+        </Elm>
+        <Elm linie="1" position="54">
+            <SubElm linie="1" position="55">KuvertNr1234</SubElm>
+        </Elm>
+    </UNB>
+    <Brev>
+        <UNH linie="2" position="0">
+            <Elm linie="2" position="3">
+                <SubElm linie="2" position="4">BrevNr5678</SubElm>
+            </Elm>
+            <Elm linie="2" position="14">
+                <SubElm linie="2" position="15">CONTRL</SubElm>
+                <SubElm linie="2" position="22">D</SubElm>
+                <SubElm linie="2" position="24">93A</SubElm>
+                <SubElm linie="2" position="28">ZZ</SubElm>
+                <SubElm linie="2" position="31">C0130Q</SubElm>
+            </Elm>
+            <Elm linie="2" position="37">
+                <SubElm linie="2" position="38">CTL01</SubElm>
+            </Elm>
+        </UNH>
+        <BrevIndhold>
+            <S01 linie="3" position="0">
+                <Elm linie="3" position="3">
+                    <SubElm linie="3" position="4">1</SubElm>
+                </Elm>
+                <UCM linie="4" position="0">
+                    <Elm linie="4" position="3">
+                        <SubElm linie="4" position="4">1111FRE01095</SubElm>
+                    </Elm>
+                    <Elm linie="4" position="16">
+                        <SubElm linie="4" position="17">MEDREF</SubElm>
+                        <SubElm linie="4" position="24">D</SubElm>
+                        <SubElm linie="4" position="26">93A</SubElm>
+                        <SubElm linie="4" position="30">UN</SubElm>
+                        <SubElm linie="4" position="33">H0130R</SubElm>
+                    </Elm>
+                    <Elm linie="4" position="39">
+                        <SubElm linie="4" position="40">4</SubElm>
+                    </Elm>
+                </UCM>
+                <UCM linie="5" position="0">
+                    <Elm linie="5" position="3">
+                        <SubElm linie="5" position="4">1111MAN01095</SubElm>
+                    </Elm>
+                    <Elm linie="5" position="16">
+                        <SubElm linie="5" position="17">MEDREF</SubElm>
+                        <SubElm linie="5" position="24">D</SubElm>
+                        <SubElm linie="5" position="26">93A</SubElm>
+                        <SubElm linie="5" position="30">UN</SubElm>
+                        <SubElm linie="5" position="33">H0130R</SubElm>
+                    </Elm>
+                    <Elm linie="5" position="39">
+                        <SubElm linie="5" position="40">4</SubElm>
+                    </Elm>
+                </UCM>
+            </S01>
+        </BrevIndhold>
+        <UNT linie="6" position="0">
+            <Elm linie="6" position="3">
+                <SubElm linie="6" position="4">5</SubElm>
+            </Elm>
+            <Elm linie="6" position="5">
+                <SubElm linie="6" position="6">BrevNr5678</SubElm>
+            </Elm>
+        </UNT>
+    </Brev>
+    <UNZ linie="7" position="0">
+        <Elm linie="7" position="3">
+            <SubElm linie="7" position="4">1</SubElm>
+        </Elm>
+        <Elm linie="7" position="5">
+            <SubElm linie="7" position="6">KuvertNr1234</SubElm>
+        </Elm>
+    </UNZ>
+</Edifact>
+      EOS
+    end
+
+    def test_parse
+      [[ctl01_text, ctl01_xml], [s01_text, s01_xml]].each do |set|
+      	edifact = Edifact.new text: set.first
+      	errors = []
+      	ast = edifact.parse { |error| errors << error }
+      	assert errors.empty?, "Got errors #{errors.inspect}"
+      	compare_xml ast.document, set.last
+      end
+    end
+
+    def test_serialize
+      ast = AbstractSyntaxTree.new ctl01_xml
+      edifact = Edifact.new ast: ast
+      errors = []
+      text = edifact.serialize(pretty: true) { |error| errors << error }
+      #assert text, ctl01_text
+      #assert errors.empty?, "Got errors #{errors.inspect}"
+    end
+
+    private
+
+    def compare_xml(source, facit)
+      text = ""
+      assert(
+        EquivalentXml.equivalent?(
+          source, 
+          facit, 
+          { :element_order => true, :normalize_whitespace => true}
+        ) do |generated, expected, result|
+            unless result
+              text << "Expected \n#{expected}\nGot \n#{generated}"
+              break false
+            end
+            result
+          end, 
+        text
+      )
+    end
+
+  end
+
+end

data/test/empty_handler_test.rb

@@ -0,0 +1,34 @@
+require 'test/unit'
+require 'edifact_converter/empty_handler'
+
+module EdifactConverter
+
+  class EmptyHandlerTest < Test::Unit::TestCase
+
+    class SimpleTest
+      def answer
+        42
+      end
+      def multiply(a, b)
+        a*b
+      end
+      def blocks
+        yield
+      end
+    end
+
+    def test_forward_all
+      handler = EmptyHandler.new SimpleTest.new
+      assert_equal 42, handler.answer
+      assert_equal 42, handler.multiply(7, 6)
+      assert_equal 42, handler.blocks(){42}
+    end
+
+    def test_ignore_if_nil
+      handler = EmptyHandler.new
+      assert_nil handler.answer
+    end
+
+  end
+
+end