/t/002a-Spec-for-Segment_group.t

http://github.com/atz/Business-EDI · Perl · 96 lines · 73 code · 20 blank · 3 comment · 1 complexity · dc5917e65852fb5e7f9927388ecc5638 MD5 · raw file 

    

  1. #!/usr/bin/perl
    2. 

  2. #
    3. 

  3. 

  4. use strict; use warnings;
    5. 

  5. 

  6. use Test::More tests => 21;
    7. 

  7. 

  8. BEGIN {
    9. 

  9.     use_ok('Data::Dumper');
    10. 

  10.     use_ok('UNIVERSAL::require');
    11. 

  11. 

  12.     use_ok('Business::EDI');
    13. 

  13.     use_ok('Business::EDI::Spec');
    14. 

  14.     use_ok('Business::EDI::Test', qw/ordrsp_data/);
    15. 

  15. }
    16. 

  16. 

  17. use vars qw/$perl/;
    18. 

  18. 

  19. my $debug = $Business::EDI::debug = $Business::EDI::Spec::debug = @ARGV ? shift : 0;
    20. 

  20. 

  21. my $edi = Business::EDI->new('d08a') or die "Business::EDI->new('d08a') failed";
    22. 

  22. 

  23. ok($perl = ordrsp_data, "DATA handle read and decode" );
    24. 

  24. $perl or die "DATA handle not decoded successfully";
    25. 

  25. 

  26. $Data::Dumper::Indent = 1;
    27. 

  27. 

  28. is(scalar(@{$perl->{body}}), 3, "EDI interchange body has 3 messages");
    29. 

  29. 

  30. my $msgcode = 'ORDRSP';
    31. 

  31. my $spec = $edi->spec->get_spec('message');
    32. 

  32. ok($spec,"\$edi->spec->get_spec('message')");
    33. 

  33. ok($spec->{$msgcode}, "\$edi->spec->get_spec('message')->{$msgcode}");
    34. 

  34. #print "Dump of ORDRSP spec: ", Dumper($spec->{ORDRSP});
    35. 

  35. 

  36. my $sg_spec = $edi->spec->get_spec('segment_group');
    37. 

  37. ok($sg_spec,"\$edi->spec->get_spec('segment_group')");
    38. 

  38. ok($sg_spec->{$msgcode}, "\$edi->spec->get_spec('segment_group')->{$msgcode}");
    39. 

  39. 

  40. is_deeply($sg_spec->{$msgcode}->{SG26}, $spec->{"$msgcode/SG26"}, "SG_SPECS->{$msgcode}->{SG26} === MSG_SPECS->{'$msgcode/SG26'}");
    41. 

  41. 

  42. my $i=0;
    43. 

  43. foreach my $part (@{$perl->{body}}) {
    44. 

  44.     $i++;
    45. 

  45.     next unless ok((ref $part and scalar keys %$part), "EDI interchange message $i has structure.");
    46. 

  46.     foreach my $key (keys %$part) {
    47. 

  47.         next unless ok($key eq 'ORDRSP', "EDI interchange message $i type == ORDRSP");
    48. 

  48.         my $ordrsp;
    49. 

  49.         ok($ordrsp = $edi->detect_version($part->{$key}), "EDI $key object via \$edi->detect_version(...)");
    50. 

  50.     }
    51. 

  51. }
    52. 

  52. 

  53. note("done");
    54. 

  54. 

  55. __END__
    56. 

  56. 

  57. ORDRSP SG26 (different versions)
    58. 

  58. Notice that the content changes completely at d94b and d06a, because the SG26 designation is just the relative position of the
    59. 

  59. segment group, not a name for it.  This makes parsing rather difficult.
    60. 

  60. 

  61. 

  62. 1911   PRI;M;1;API;C;1;RNG;C;1;DTM;C;5
    63. 

  63. 1921   PAT;M;1;DTM;C;5;PCD;C;1;MOA;C;1
    64. 

  64. d93a   PAT;M;1;DTM;C;5;PCD;C;1;MOA;C;1
    65. 

  65. s93a   PAT;M;1;DTM;C;5;PCD;C;1;MOA;C;1
    66. 

  66. d94a   PAT;M;1;DTM;C;5;PCD;C;1;MOA;C;1
    67. 

  67. d94b   PAT;M;1;DTM;C;5;PCD;C;1;MOA;C;1
    68. 

  68. d95a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;5;QTY;C;10;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;5;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;5;PAI;C;1;FTX;C;5;SG27;C;10;SG28;C;1;SG29;C;25;SG30;C;10;SG31;C;10;SG34;C;9999;SG35;C;5;SG36;C;10;SG40;C;15;SG46;C;10;SG48;C;5;SG49;C;10;SG50;C;100;SG52;C;100;SG53;C;10
    69. 

  69. d95b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;5;QTY;C;10;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;5;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;5;PAI;C;1;FTX;C;5;SG27;C;10;SG28;C;1;SG29;C;25;SG30;C;10;SG31;C;10;SG34;C;9999;SG35;C;5;SG36;C;10;SG40;C;15;SG46;C;10;SG48;C;5;SG49;C;10;SG50;C;100;SG52;C;100;SG53;C;10
    70. 

  70. d96a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;5;QTY;C;10;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;5;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;999;SG32;C;10;SG35;C;9999;SG36;C;10;SG37;C;99;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;100;SG54;C;10
    71. 

  71. d96b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;10;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;5;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;999;SG32;C;10;SG35;C;9999;SG36;C;10;SG37;C;99;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;100;SG54;C;10
    72. 

  72. d97a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;10;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;5;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;999;SG32;C;10;SG35;C;9999;SG36;C;10;SG37;C;99;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;100;SG54;C;10
    73. 

  73. d97b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;10;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    74. 

  74. d98a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    75. 

  75. d98b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    76. 

  76. d99a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    77. 

  77. d99b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    78. 

  78. d00a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    79. 

  79. d00b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    80. 

  80. d01a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    81. 

  81. d01b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    82. 

  82. d01c   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    83. 

  83. d02a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GIS;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    84. 

  84. d02b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    85. 

  85. d03a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    86. 

  86. d03b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    87. 

  87. d04a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    88. 

  88. d04b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    89. 

  89. d05a   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    90. 

  90. d05b   LIN;M;1;PIA;C;25;IMD;C;99;MEA;C;99;QTY;C;99;PCD;C;5;ALI;C;5;DTM;C;35;MOA;C;10;GEI;C;99;GIN;C;1000;GIR;C;1000;QVR;C;1;DOC;C;99;PAI;C;1;MTD;C;99;FTX;C;99;SG27;C;999;SG28;C;10;SG29;C;1;SG30;C;25;SG31;C;9999;SG32;C;99;SG35;C;9999;SG36;C;10;SG37;C;999;SG41;C;99;SG47;C;10;SG49;C;5;SG50;C;10;SG51;C;100;SG53;C;999;SG54;C;10
    91. 

  91. d06a   EFI;M;1;CED;C;99;COM;C;9;RFF;C;9;DTM;C;9;QTY;C;9
    92. 

  92. d06b   EFI;M;1;CED;C;99;COM;C;9;RFF;C;9;DTM;C;9;QTY;C;9
    93. 

  93. d07a   EFI;M;1;CED;C;99;COM;C;9;RFF;C;9;DTM;C;9;QTY;C;9
    94. 

  94. d07b   EFI;M;1;CED;C;99;COM;C;9;RFF;C;9;DTM;C;9;QTY;C;9
    95. 

  95. d08a   EFI;M;1;CED;C;99;COM;C;9;RFF;C;9;DTM;C;9;QTY;C;9
    96.