edi4r 0.9.4.1

data/test/test_basics.rb

@@ -0,0 +1,209 @@
+#!/usr/bin/env ruby
+# :include: ../AuthorCopyright
+
+# Load path magic...
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+
+require 'edi4r'
+require 'edi4r/edifact'
+
+class EDIFACT_Tests < Test::Unit::TestCase
+
+  # Utilities: Fill in just the required segments
+
+  def fill_ORDERS( msg )
+    seg = msg.new_segment('BGM')
+    msg.add seg
+    seg.d1004 = '220'
+    assert_equal(["C002", "1004", "1225", "4343"], seg.names )
+    seg = msg.new_segment('DTM')
+    msg.add seg
+    seg.cC507.d2005 = '137'
+    t = Time.edifact('20060703', 102)
+    seg.cC507.d2380 = t
+    seg.cC507.d2379 = t.format
+
+    assert_equal( ["2005", "2380", "2379"], seg.cC507.names )
+    seg = msg.new_segment('UNS')
+    seg.d0081 = 'S'
+    msg.add seg
+#    p seg.names
+  end
+
+
+  def fill_INVOIC( msg )
+    seg = msg.new_segment('BGM')
+    msg.add seg
+    seg.cC002.d1001 = '380'
+    assert_equal(["C002", "C106", "1225", "4343"], seg.names )
+    seg = msg.new_segment('DTM')
+    msg.add seg
+    seg.cC507.d2005 = '137'
+    t = Time.new
+    t.format = 204
+    seg.cC507.d2380 = t
+    seg.cC507.d2379 = t.format
+
+    assert_equal( ["2005", "2380", "2379"], seg.cC507.names )
+    seg = msg.new_segment('UNS')
+    seg.d0081 = 'S'
+    msg.add seg
+
+    seg = msg.new_segment('MOA')
+    msg.add seg
+    seg.cC516.d5025 = '86'
+    seg.cC516.d5004 = 0.0
+#    p seg.names
+  end
+
+
+  def test_interchange_creation
+    ic = nil
+
+    # All defaults working?
+    assert_nothing_raised { ic = EDI::E::Interchange.new() }
+    assert_match( /^UNA:\+\.\? 'UNB\+UNOB:3\+\+\+\d{6}:\d{4}\+1'UNZ\+0\+1'$/, ic.to_s )
+
+    # Change some parameters: Switch off UNA, try a different charset
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.new({
+                                     :show_una=>false, :charset=>'UNOC',
+                                     :interchange_control_reference=>123,
+                                     :test_indicator=>1 })
+    }
+    assert_match( /^UNB\+UNOC:3\+\+\+\d{6}:\d{4}\+(123)\+{6}1'UNZ\+0\+\1'$/, ic.to_s )
+
+
+    # Now test special separator case SV2, UNOB. Is UNA on by default?
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.new({:version=>2})
+    }
+    assert_match( /^UNA\021\022\.\? \024UNB\022UNOB\0212\022\022\022\d{6}\021\d{4}\0221\024UNZ\0220\0221\024$/, ic.to_s )
+
+    # Same again, now with a few defaults set explicitly
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.new({:show_una=>true,:version=>2, :charset=>'UNOB'})
+    }
+    assert_match( /^UNA\021\022\.\? \024UNB\022UNOB\0212\022\022\022\d{6}\021\d{4}\0221\024UNZ\0220\0221\024$/, ic.to_s )
+
+    # SV4 working?
+    assert_nothing_raised { ic = EDI::E::Interchange.new({:version=>4, :charset=>'UNOC'}) }
+    assert_match( /^UNA:\+\.\?\*'UNB\+UNOC:4\+\+\+\d{8}:\d{4}\+1'UNZ\+0\+1'$/, ic.to_s )
+
+    # SV4 & I-EDI working?
+    assert_raise( RuntimeError) {
+      ic = EDI::E::Interchange.new({:version=>4, :charset=>'UNOC', :i_edi => true})
+    }
+#    assert_match( /^UNA:\+\.\?\*'UIB\+UNOC:4\+\+\+\d{8}:\d{4}\+1'UIZ\+0\+1'$/, ic.to_s )
+  end
+
+
+  def test_group_creation
+    ic = n = nil
+    assert_nothing_raised { ic = EDI::E::Interchange.new() }
+
+    # First group: No sender/recipient there to inherit: 
+    # Expect 4 validation errors (2 x UNB, 2 x UNG)
+    grp = ic.new_msggroup
+    ic.add( grp, false )
+    assert_equal( 4, ic.validate )
+
+    # Second group: Now let's see if sender/recipient inheritance works: 
+    # Expect no more validation errors
+    grp.header.cS006.d0040 = 'sender-g'
+    grp.header.cS007.d0044 = 'recipient-g'
+
+    ic.header.cS002.d0004 = 'sender'
+    ic.header.cS003.d0010 = 'recipient'
+    grp = ic.new_msggroup
+    assert_nothing_raised{ n = ic.validate}
+    assert_equal( 0, n )
+
+    msg = grp.new_message
+    fill_ORDERS(msg)
+    grp.add( msg )
+
+    # See if reference in trailer is updated when header ref. changes:
+    grp.header.d0048 = 5
+    ic.add( grp, false )
+
+    assert_nothing_raised{ n = ic.validate}
+    assert_equal( 0, n )
+
+    grp = ic.new_msggroup(:msg_type=>'INVOIC', :version=>'D', :release=>'01B',
+                          :resp_agency=>'UN', :assigned_code=>'EAN010')
+    ic.add( grp, false )
+    msg = grp.new_message
+    fill_INVOIC(msg)
+    grp.add msg
+    assert_nothing_raised{ n = ic.validate}
+    assert_equal( 0, n )
+    assert_nothing_raised{ File.open("groups.edi",'w') {|f| f.print ic} }
+
+    msg.header.cS009.d0057 = 'EAN011' # provoke a grp/msg difference 
+    assert_nothing_raised{ n = ic.validate}
+    assert_equal( 1, n )
+#    puts ic
+  end
+
+
+  def test_message_creation
+
+    ic = nil
+    assert_nothing_raised { ic = EDI::E::Interchange.new() }
+    msg = ic.new_message
+    fill_ORDERS(msg)
+
+    ic.add msg
+    ic.add msg
+    assert_equal( 1, msg.header.first.value ) # value of DE 0062
+    assert_equal( "ORDERS:D:96A:UN", msg.header[1].to_s ) # S009
+    assert_equal( "UNH+1+ORDERS:D:96A:UN", msg.header.to_s ) # UNH
+    assert_equal( "BGM++220", msg.first.to_s ) # BGM
+
+#    puts msg
+#    puts msg.inspect
+    ic.header.d0035 = 1  # Test indicator
+#    puts ic
+  end
+
+  def test_una_changes
+    ic = nil
+    assert_nothing_raised { ic = EDI::E::Interchange.new() }
+    msg = ic.new_message
+    pri = msg.parse_segment('PRI+AAA:30,0::LIU', 'PRI')
+    assert_equal( pri.to_s, 'PRI+AAA:30::LIU')
+    pri = msg.parse_segment('PRI+AAA:30.1::LIU', 'PRI')
+    assert_equal( pri.to_s, 'PRI+AAA:30.1::LIU')
+    ic.una.decimal_sign = ?,
+    pri = msg.parse_segment('PRI+AAA:30.1::LIU', 'PRI')
+    assert_equal( 'PRI+AAA:30,1::LIU', pri.to_s)
+    ic.una.decimal_sign = ?.
+    ic.una.ce_sep = ?-
+    assert_equal( 'PRI+AAA-30.1--LIU', pri.to_s)
+    pri.cC509.d5118 = -pri.cC509.d5118
+    assert_equal( 'PRI+AAA-?-30.1--LIU', pri.to_s)
+    ic.una.esc_char = ?#
+    assert_equal( 'PRI+AAA-#-30.1--LIU', pri.to_s)
+    ic.una.esc_char = ?\\
+    assert_equal( 'PRI+AAA-\\-30.1--LIU', pri.to_s)
+  end
+
+begin
+  def test_interchange_parsing
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.parse( File.open( './O0002248720','r' ), false )
+      ic.output_mode = :indented
+      File.open("invoic.out", "w") {|hnd| hnd.print ic}
+    }
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.parse( File.open( './remadv101.edi', 'r' ) )
+      ic.output_mode = :indented
+      File.open("remadv.out", "w") {|hnd| hnd.print ic}
+#      $stdout.write ic
+    }
+  end
+end
+end 

data/test/test_edi_split.rb

@@ -0,0 +1,53 @@
+#!/usr/bin/env ruby
+# :include: ../AuthorCopyright
+
+=begin
+  E = ??	# ESC char
+  C = ?:	# CDE separator char
+  D = ?+	# DE separator char
+  S = ?'	# Segment terminator
+=end
+
+# Load path magic...
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+
+require 'edi4r'
+require 'edi4r/edifact'
+include EDI::E
+
+class TestClass < Test::Unit::TestCase
+
+  def test_cde_sep
+    assert_equal(['a','b'], edi_split('a:b', ?:, ??) ) 
+    assert_equal(['a:b'],   edi_split('a?:b', ?:, ??) ) 
+    assert_equal(['a?','b'],edi_split('a??:b', ?:, ??) ) 
+    assert_equal(['a?:b'],  edi_split('a???:b', ?:, ??) ) 
+    assert_raise( EDISyntaxError) { edi_split('a:b?', ?:, ??)}
+
+    assert_equal(['a','', 'b'],     edi_split('a::b', ?:, ??) ) 
+    assert_equal(['a','', '', 'b'], edi_split('a:::b', ?:, ??) ) 
+    assert_equal(['a','b'],         edi_split('a:b:', ?:, ??) ) 
+    assert_equal(['a','', 'b'],     edi_split('a::b::', ?:, ??) ) 
+
+    assert_equal(['','a','b'],            edi_split(':a:b', ?:, ??) ) 
+    assert_equal(['','','', 'a','', 'b'], edi_split(':::a::b::', ?:, ??) ) 
+
+    assert_equal( ['123456780', 'A + B LTD' ], edi_split('123456780:A + B LTD', ?:, ??) )
+    assert_equal( ['', '', '', '10010099', '25', '131' ], edi_split(':::10010099:25:131', ?:, ??) )
+  end
+
+  def test_de_sep
+    assert_equal( ['IMD', 'A','', ':::JEANS'], edi_split('IMD+A++:::JEANS', ?+, ??))
+    assert_equal( ['FII', 'OR','123456780:A + B LTD', ':::10010099:25:131' ], edi_split('FII+OR+123456780:A ?+ B LTD+:::10010099:25:131', ?+, ??) )
+    assert_raise(EDISyntaxError){edi_split('TAG+SOME TEXT??+MORE TEXT+PENDING ESC! ?', ?+, ??)}
+    assert_equal( ['TAG','SOME TEXT?', 'MORE TEXT', 'PENDING ESC ?'], edi_split('TAG+SOME TEXT??+MORE TEXT+PENDING ESC ??', ?+, ??) )
+    assert_raise(EDISyntaxError){edi_split('TAG+SOME TEXT??+MORE TEXT+PENDING ESC! ???', ?+, ??)}
+  end
+
+  def test_seg_term
+    assert_equal( ['RFF+ACK:12345/678', 'FII+BF+000000000:::EUR+:::10010099:25:131', 'SEQ++1', 'FII+OR+123456780:A ?+ B LTD+:::10010099:25:131', 'RFF+RA:YOUR ACCOUNT 1234-5678 9'], edi_split('RFF+ACK:12345/678\'FII+BF+000000000:::EUR+:::10010099:25:131\'SEQ++1\'FII+OR+123456780:A ?+ B LTD+:::10010099:25:131\'RFF+RA:YOUR ACCOUNT 1234-5678 9\'', ?', ??))
+  end
+
+end

data/test/test_loopback.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# :include: ../AuthorCopyright
+
+require 'test/unit'
+
+#######################################################################
+# Test the accompanying standalone mapping tools
+#
+# Mapping to EANCOM and back should yield the original inhouse data.
+
+class EDIFACT_Tests < Test::Unit::TestCase
+
+  def test_loopback
+    s1 = nil
+    File.open('in1.inh') {|hnd| hnd.binmode; s1 = hnd.read}
+    s2 = `ruby ./webedi2eancom.rb -a in1.inh | ruby ./eancom2webedi.rb`
+    assert_equal( 0, $? )
+    assert_match( s1, s2 )
+  end
+
+end

data/test/test_minidemo.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/env ruby
+# :include: ../AuthorCopyright
+
+# Load path magic...
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+#require "rubygems"
+#require_gem "edi4r"
+require "edi4r"
+require "edi4r/edifact"
+require 'tempfile'
+
+
+class EDIFACT_Minitests < Test::Unit::TestCase
+
+  def setup
+    @ic = EDI::E::Interchange.new({
+                                    :show_una	=> true,
+                                    :charset	=> 'UNOC',
+                                    :version	=> 3,
+                                    :interchange_control_reference => '12345',
+                                    :output_mode	=> :verbatim})
+
+    cde = @ic.header.cS002
+    cde.d0004 = '2965197000005'
+    cde.d0007 = '14'
+    cde = @ic.header.cS003
+    cde.d0010 = '2165197000009'
+    cde.d0007 = '14'
+
+    # ic.write $stdout
+
+    params = {
+      :msg_type	=> 'ORDERS',
+      :version	=> 'D',
+      :release	=> '01B',
+      :resp_agency	=> 'UN',
+      :assigned_code	=> 'EAN010'
+    }
+
+    msg = @ic.new_message params
+
+    # print msg
+
+    seg = msg.new_segment('BGM')
+    seg.cC002.d1001 = '220'
+    seg.cC106.d1004 = '1234567'
+    seg.d1225 = '9'
+    msg.add seg
+
+    seg = msg.new_segment('DTM')
+    cde = seg.cC507
+    cde.d2005 = '137'
+    cde.d2380 = '20050603'
+    cde.d2379 = '102'
+    msg.add seg
+
+    seg = msg.new_segment('UNS')
+    seg.d0081='S'
+
+    msg.add seg
+
+    @ic.add msg
+  end
+
+  def test_validation
+    rc = 0
+    assert_nothing_raised { rc=@ic.validate }
+    assert_equal( 0, rc)
+  end
+
+  def test_write_parse_validate
+    tf = Tempfile.new("minitest_edi")
+    tf.print @ic
+    tf.close
+    rc = 0
+    ic2 = EDI::E::Interchange.parse(tf.open)
+    assert_nothing_raised { rc=ic2.validate }
+    assert_equal( 0, rc)
+    assert_equal( @ic.to_s, ic2.to_s)
+    tf.close(true) unless tf.closed?
+  end
+end

data/test/test_rexml.rb

@@ -0,0 +1,98 @@
+#!/usr/bin/env ruby
+# :include: ../AuthorCopyright
+
+#######################################################################
+# Test conversion to and from XML representation
+#
+# Mapping to XML and back should yield the original UN/EDIFACT data.
+# Mapping to UN/EDIFACT and back should yield the original XML data.
+
+# Include statement during test setup:
+
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'edi4r'
+require 'edi4r/edifact'
+require 'edi4r/rexml'
+
+# Regular include statements:
+
+#require "rubygems"
+#require_gem "edi4r"
+#require "edi4r/edifact"
+#require 'edi4r/rexml'
+
+require 'stringio'
+require 'test/unit'
+
+
+class EDIFACT_REXML_Tests < Test::Unit::TestCase
+
+  def setup
+    @ice = EDI::Interchange.parse(File.open("in2.edi"))
+    @se  = @ice.to_s
+    @icg = EDI::Interchange.parse(File.open("groups.edi"))
+  end
+
+  def test_rexml
+    @icx = nil
+    assert_nothing_raised do
+      @icx = EDI::Interchange.parse(File.open("in2.xml"))
+      assert_equal( 0, @icx.validate )
+    end
+
+    assert_equal( @se, @icx.to_s )  # EDIFACT representations equal?
+    
+    sx = File.open('in2.edi') { |hnd| hnd.read }.chop
+    se = @se.sub(/PRI\+AAA:30::LIU\'PRI\+AAE:99::/,
+                 'PRI+AAA:30.0::LIU\'PRI+AAE:99,0::')
+    assert_equal( se, sx )  # EDIFACT representations equal file content?
+
+    se = StringIO.new
+    xdoc_e = REXML::Document.new
+    @ice.to_xml(xdoc_e)
+    xdoc_e.write( se, 0 )
+#    xdoc_e.write( File.open('in2a.xml','w'), 0 )
+
+    sx = StringIO.new
+    xdoc_x = REXML::Document.new
+    @ice.to_xml(xdoc_x)
+    xdoc_x.write( sx, 0 )
+
+    assert_equal( se.string, sx.string ) # XML representations equal?
+  end
+
+
+  def test_groups
+
+    xdoc = REXML::Document.new
+    assert_nothing_raised{ @icg.to_xml( xdoc ) }
+
+    sg = StringIO.new
+    xdoc.write( sg, 0 )
+#    xdoc.write( File.open("groups2.xml",'w'), 0 )
+
+    ic = nil
+    assert_nothing_raised do
+      ic = EDI::E::Interchange.parse_xml( REXML::Document.new( sg.string )) 
+    end
+    assert_equal( @icg.to_s, ic.to_s ) 
+  end
+
+
+  def test_din16557_4
+    xdoc = nil
+    assert_nothing_raised{ xdoc = @ice.to_din16557_4 }
+
+    sg = StringIO.new
+#    sg = $stdout
+    xdoc.write( sg, 0 )
+
+    xdoc = nil
+    assert_nothing_raised{ xdoc = @icg.to_din16557_4 }
+
+#    sg = $stdout
+    sg = StringIO.new
+    xdoc.write( sg, 0 )
+#    xdoc.write( File.open("groups2.xml",'w'), 0 )
+  end
+end