edi4r-tdid 0.6.3.1

data/data/edifact/untdid/IDSD.d99a.csv

@@ -0,0 +1,52 @@
+AAI;ACCOMMODATION ALLOCATION INFORMATION;010;E997;M;20;
+ADS;ADDRESS;010;E817;C;1;020;E001;C;1;030;3164;C;1;040;3251;C;1;050;3207;C;1;060;E819;C;1;070;E517;C;1;
+ALS;ADDITIONAL LOCATION INFORMATION;010;3227;M;1;020;E975;M;99;
+APD;ADDITIONAL TRANSPORT DETAILS;010;E961;C;1;020;E962;C;2;030;E963;C;1;040;E964;C;1;050;E965;C;10;
+ASD;SERVICE DETAILS;010;E959;M;9;
+ATI;TOUR INFORMATION;010;E993;C;1;020;E994;C;99;
+ATR;ATTRIBUTE;010;9017;M;1;020;E003;M;1;
+CLT;CLEAR TERMINATE INFORMATION;010;1229;M;1;020;1225;C;2;030;4440;C;1;
+CMN;COMMISSION INFORMATION;010;E002;M;9;
+CNX;CONNECTION DETAILS;010;E999;C;9;
+CON;CONTACT INFORMATION;010;E966;C;20;
+CRI;CONSUMER REFERENCE INFORMATION;010;E967;M;20;
+CUR;CURRENCIES;010;E504;C;1;020;E504;C;1;030;5402;C;1;040;6341;C;1;
+DAV;DAILY AVAILABILITY;010;7037;M;1;020;E009;M;31;
+DIS;DISCOUNT INFORMATION;010;E998;M;20;
+DTI;DATE AND TIME INFORMATION;010;E013;M;9;020;E014;C;99;
+ERI;APPLICATION ERROR INFORMATION;010;E901;M;1;
+FTI;FREQUENT TRAVELLER INFORMATION;010;E970;M;9;
+HDI;HARDWARE DEVICE INFORMATION;010;3148;C;1;020;3413;C;1;030;1511;C;1;040;E003;C;9;
+ICI;INSURANCE COVER INFORMATION;010;E016;M;1;020;E017;C;5;
+IFT;INTERACTIVE FREE TEXT;010;E971;C;1;020;4440;C;99;
+ITD;INFORMATION TYPE DATA;010;9601;C;1;020;3453;C;1;030;9603;C;10;040;1503;C;1;
+ITM;ITEM NUMBER;010;E212;M;99;
+LKP;LEVEL INDICATION;010;E778;M;1;
+MOV;CAR DELIVERY INSTRUCTION;010;E995;C;1;020;6350;C;1;030;3453;C;1;
+MSD;MESSAGE ACTION DETAILS;010;E972;C;1;020;4343;C;5;
+NAM;PARTY NAME;010;3035;M;1;020;E206;C;1;030;E082;C;1;040;3403;C;1;050;3397;C;1;060;E816;C;5;
+NME;NAME;010;E012;M;9;
+NUN;NUMBER OF UNITS;010;E523;M;9;
+ODI;ORIGIN AND DESTINATION DETAILS;010;3225;C;2;
+ODS;ADDITIONAL PRODUCT DETAILS;010;9605;M;1;020;E015;M;999;
+ORG;ORIGINATOR OF REQUEST DETAILS;010;E973;C;1;020;E974;C;1;030;E975;C;1;040;3036;C;1;050;3457;C;1;060;E976;C;1;070;3503;C;1;
+PDT;PRODUCT INFORMATION;010;7133;C;1;020;E996;C;26;
+PLI;PRODUCT LOCATION INFORMATION;010;E008;M;99;
+PMT;PAYMENT INFORMATION;010;E977;C;99;020;E978;C;10;
+PRD;PRODUCT IDENTIFICATION;010;E989;C;9;020;3036;C;6;
+PRE;PRICE DETAILS;010;E018;C;20;020;5213;C;1;
+PRO;PROMOTIONS;010;E019;M;20;
+RCI;RESERVATION CONTROL INFORMATION;010;E979;C;99;
+RPI;QUANTITY AND ACTION DETAILS;010;E958;M;9;
+RTC;RATE TYPES;010;5263;M;99;
+RTI;RATE DETAILS;010;E011;M;99;
+RUL;RULE INFORMATION;010;E004;C;99;020;E005;C;9;030;E006;C;9;
+SDT;SELECTION DETAILS;010;E010;M;99;
+SSR;SPECIAL REQUIREMENT DETAILS;010;E980;M;1;020;E981;C;999;
+TDI;TRAVELLER DOCUMENT INFORMATION;010;E968;M;1;020;E969;C;1;030;3500;C;1;040;3460;C;99;
+TFF;TARIFF INFORMATION;010;E982;C;99;020;E983;C;1;030;E984;C;99;
+TIF;TRAVELLER INFORMATION;010;E985;M;1;020;E986;C;99;
+TRF;TRAFFIC RESTRICTION DETAILS;010;E007;M;5;
+TVL;TRAVEL PRODUCT INFORMATION;010;E987;C;1;020;E975;C;2;030;E988;C;1;040;E989;C;1;050;E990;C;1;060;1082;C;1;070;7365;C;1;
+TXS;TAXES;010;E020;M;99;
+VEH;VEHICLE;010;8053;C;1;020;E991;C;1;030;E211;C;1;040;6314;C;1;050;E992;C;1;060;1145;C;1;

data/data/edifact/untdid/IDSD.d99b.csv

@@ -0,0 +1,63 @@
+AAI;ACCOMMODATION ALLOCATION INFORMATION;010;E997;M;20;
+ADI;HEALTH CARE CLAIM ADJUDICATION INFORMATION;010;E206;M;3;020;E021;C;3;030;1229;C;1;040;E017;C;15;050;6060;C;3;060;E030;C;15;070;9620;C;4;080;5389;C;1;090;E507;C;1;100;9639;C;1;110;5482;C;1;
+ADS;ADDRESS;010;E817;C;1;020;E001;C;1;030;3164;C;1;040;3251;C;1;050;3207;C;1;060;E819;C;1;070;E517;C;1;
+ALS;ADDITIONAL LOCATION INFORMATION;010;3227;M;1;020;E975;M;99;
+APD;ADDITIONAL TRANSPORT DETAILS;010;E961;C;1;020;E962;C;2;030;E963;C;1;040;E964;C;1;050;E965;C;10;
+ASD;SERVICE DETAILS;010;E959;M;9;
+ATI;TOUR INFORMATION;010;E993;C;1;020;E994;C;99;
+ATR;ATTRIBUTE;010;9017;M;1;020;E003;M;1;
+BLI;BILLABLE INFORMATION;010;5004;C;3;020;E029;C;9;030;E507;C;9;040;7402;C;5;050;9607;C;3;060;E028;C;9;
+CLT;CLEAR TERMINATE INFORMATION;010;1229;M;1;020;1225;C;2;030;4440;C;1;
+CMN;COMMISSION INFORMATION;010;E002;M;9;
+CNX;CONNECTION DETAILS;010;E999;C;9;
+CON;CONTACT INFORMATION;010;E966;C;20;
+CRI;CONSUMER REFERENCE INFORMATION;010;E967;M;20;
+CUR;CURRENCIES;010;E504;C;1;020;E504;C;1;030;5402;C;1;040;6341;C;1;
+DAV;DAILY AVAILABILITY;010;7037;M;1;020;E009;M;31;
+DIS;DISCOUNT INFORMATION;010;E998;M;20;
+DNT;DENTAL INFORMATION;010;7402;C;1;020;7383;C;5;030;9647;C;5;040;6060;C;6;050;4405;C;1;
+DTI;DATE AND TIME INFORMATION;010;E013;M;9;020;E014;C;99;
+ERI;APPLICATION ERROR INFORMATION;010;E901;M;1;
+FRM;FOLLOW-UP ACTION;010;7402;M;1;020;9013;M;7;030;1229;C;1;
+FTI;FREQUENT TRAVELLER INFORMATION;010;E970;M;9;
+HDI;HARDWARE DEVICE INFORMATION;010;3148;C;1;020;3413;C;1;030;1511;C;1;040;E003;C;9;
+ICI;INSURANCE COVER INFORMATION;010;E016;M;1;020;E017;C;5;
+IFT;INTERACTIVE FREE TEXT;010;E971;C;1;020;4440;C;99;
+ITC;INSTITUTIONAL CLAIM;010;E027;M;1;020;6060;M;4;030;E026;M;1;040;9447;M;1;050;E025;C;9;
+ITD;INFORMATION TYPE DATA;010;9601;C;1;020;3453;C;1;030;9603;C;10;040;1503;C;1;
+ITM;ITEM NUMBER;010;E212;M;99;
+LKP;LEVEL INDICATION;010;E778;M;1;
+MAP;MESSAGE APPLICATION PRODUCT INFORMATION;010;E022;C;1;020;3036;C;1;030;E031;C;1;
+MOV;CAR DELIVERY INSTRUCTION;010;E995;C;1;020;6350;C;1;030;3453;C;1;
+MSD;MESSAGE ACTION DETAILS;010;E972;C;1;020;4343;C;5;030;E206;C;5;
+NAA;NAME AND ADDRESS;010;3035;M;1;020;E082;C;1;030;3124;C;5;040;E080;C;1;050;3042;C;1;060;3164;C;1;070;3229;C;1;080;3251;C;1;090;3207;C;1;
+NAM;PARTY NAME;010;3035;M;1;020;E206;C;1;030;E082;C;1;040;3403;C;1;050;3397;C;1;060;E816;C;5;
+NME;NAME;010;E012;M;9;
+NUN;NUMBER OF UNITS;010;E523;M;9;
+ODI;ORIGIN AND DESTINATION DETAILS;010;3225;C;2;
+ODS;ADDITIONAL PRODUCT DETAILS;010;9605;M;1;020;E015;M;999;
+ORG;ORIGINATOR OF REQUEST DETAILS;010;E973;C;1;020;E974;C;1;030;E975;C;1;040;3036;C;1;050;3457;C;1;060;E976;C;1;070;3503;C;1;
+OTI;OTHER INSURANCE;010;E206;M;5;020;9645;M;1;030;E507;C;2;040;5267;C;10;050;5004;C;4;060;E030;C;15;070;4497;C;1;080;9143;C;1;090;9607;C;1;
+PDT;PRODUCT INFORMATION;010;7133;C;1;020;E996;C;26;
+PLI;PRODUCT LOCATION INFORMATION;010;E008;M;99;
+PMT;PAYMENT INFORMATION;010;E977;C;99;020;E978;C;10;
+POS;POINT OF SALE INFORMATION;010;E032;C;999;020;E975;C;999;
+PRD;PRODUCT IDENTIFICATION;010;E989;C;9;020;3036;C;6;
+PRE;PRICE DETAILS;010;E018;C;20;020;5213;C;1;
+PRO;PROMOTIONS;010;E019;M;20;
+PRT;PARTY INFORMATION;010;3035;M;1;020;E206;C;9;030;2000;C;3;040;E023;C;1;
+PSI;SERVICE INFORMATION;010;7402;M;4;020;E507;C;5;030;E021;C;1;040;6060;C;2;050;5004;C;5;060;5030;C;4;070;9039;C;1;080;5267;C;1;090;4183;C;9;100;E024;C;1;
+RCI;RESERVATION CONTROL INFORMATION;010;E979;C;99;
+RPI;QUANTITY AND ACTION DETAILS;010;E958;M;9;
+RTC;RATE TYPES;010;5263;M;99;
+RTI;RATE DETAILS;010;E011;M;99;
+RUL;RULE INFORMATION;010;E004;C;99;020;E005;C;9;030;E006;C;9;
+SDT;SELECTION DETAILS;010;E010;M;99;
+SSR;SPECIAL REQUIREMENT DETAILS;010;E980;M;1;020;E981;C;999;
+TDI;TRAVELLER DOCUMENT INFORMATION;010;E968;M;1;020;E969;C;1;030;3500;C;1;040;3460;C;99;
+TFF;TARIFF INFORMATION;010;E982;C;99;020;E983;C;1;030;E984;C;99;
+TIF;TRAVELLER INFORMATION;010;E985;M;1;020;E986;C;99;
+TRF;TRAFFIC RESTRICTION DETAILS;010;E007;M;5;
+TVL;TRAVEL PRODUCT INFORMATION;010;E987;C;1;020;E975;C;2;030;E988;C;1;040;E989;C;1;050;E990;C;1;060;1082;C;1;070;7365;C;1;
+TXS;TAXES;010;E020;M;99;
+VEH;VEHICLE;010;8053;C;1;020;E991;C;1;030;E211;C;1;040;6314;C;1;050;E992;C;1;060;1145;C;1;

data/lib/edi4r-tdid.rb

@@ -0,0 +1,52 @@
+#!/usr/bin/env ruby
+#
+# :main:README
+# :title:edi4r-tdid
+#
+# UN/EDIFACT add-on module: UN/TDIDs - UN Trade Data Interchange directories
+#
+# == Synopsis
+#
+#  Prepend this gem's data directory to the global
+#  searchpath for "normdatabases" in EDI_NDB_PATH
+#
+# == Usage
+#
+#   require_gem 'edi4r-tdid'
+#
+#
+# == Description
+#
+#  The edi4r base gem comes with only a few samples of UN/EDIFACT
+#  normdata. This add-on provides the full collection of
+#  UN Trade Data Interchange Directories (TDIDs), including those
+#  distributed with the base gem.
+#
+#  We put this gem's data directory in front of the searchpath,
+#  because it is usually the most frequently used one.
+#
+# == Environment
+#
+#  EDI_NDB_PATH
+#
+# :include:../AuthorCopyright
+#--
+# $Id: edi4r-tdid.rb,v 1.1 2006/08/01 10:56:04 werntges Exp $
+#
+
+BEGIN {
+
+  require 'pathname'
+
+# 'realpath' fails on Windows platforms!
+#  path_to_add = Pathname.new(__FILE__).dirname.parent.realpath + 'data'
+  pdir = Pathname.new(__FILE__).dirname.parent
+  path_to_add =  File.expand_path(pdir) + File::Separator + 'data'
+
+  paths = (ENV['EDI_NDB_PATH'] or '').split /#{File::PATH_SEPARATOR}/
+  unless paths.include? path_to_add
+    paths.unshift path_to_add
+    ENV['EDI_NDB_PATH'] = paths.join File::PATH_SEPARATOR
+  end
+
+}

data/test/dirlist

@@ -0,0 +1,32 @@
+1:901:UN
+1:902:UN
+1:911:UN
+1:921:UN
+2:932:UN
+S:93A:UN
+D:93A:UN
+D:94A:UN
+D:94B:UN
+D:95A:UN
+D:95B:UN
+D:96A:UN
+D:96B:UN
+D:97A:UN
+D:97B:UN
+D:98A:UN
+D:98B:UN
+D:99A:UN
+D:99B:UN
+D:00A:UN
+D:00B:UN
+D:01A:UN
+D:01B:UN
+D:01C:UN
+D:02A:UN
+D:02B:UN
+D:03A:UN
+D:03B:UN
+D:04A:UN
+D:04B:UN
+D:05A:UN
+D:05B:UN

data/test/dirlist_iedi

@@ -0,0 +1,19 @@
+D:97A:UN
+D:97B:UN
+D:98A:UN
+D:98B:UN
+D:99A:UN
+D:99B:UN
+D:00A:UN
+D:00B:UN
+D:01A:UN
+D:01B:UN
+D:01C:UN
+D:02B:UN
+D:03A:UN
+# D:03A:UN
+D:03B:UN
+D:04A:UN
+D:04B:UN
+D:05A:UN
+D:05B:UN

data/test/test_diags.rb

@@ -0,0 +1,160 @@
+#!/usr/bin/env ruby
+#
+# $Id: test_diags.rb,v 1.1 2006/03/28 16:31:10 werntges Exp werntges $
+#
+# Copyright (c) 2006 Heinz W. Werntges, FH Wiesbaden
+# Licensed under the same terms as Ruby. No warranty provided
+
+# Load path magic...
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'main', 'lib')
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+
+require 'edi4r'
+require 'edi4r/edifact'
+require 'edi4r-tdid'
+
+class EDIFACT_Tests < Test::Unit::TestCase
+
+=begin
+  def test_interchange
+    puts "Path is: " + ENV['EDI_NDB_PATH']
+    ic = nil
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.new({})
+
+      msg = ic.new_message({:name=> 'ORDERS',
+                            :version=> 'S', 
+                            :release=> '93A', 
+                            :resp_agency=> 'UN', 
+                            # :d0057=> @subset, 
+			   })
+      seg = msg.new_segment('BGM')
+      msg.add seg
+      seg.d1004 = '220'
+      p seg.names
+      seg = msg.new_segment('DTM')
+      msg.add seg
+      seg.cC507.d2005 = '137'
+      p seg.cC507.names
+      seg = msg.new_segment('UNS')
+      seg.d0081 = 'S'
+      msg.add seg
+      p seg.names
+      ic.add msg
+
+      print ic
+      puts
+    }
+    assert_nothing_raised {
+      ic = EDI::E::Interchange.new({:show_una => false})
+      ic.write $stdout
+      puts
+    }
+    assert_equal( '0.9.1', ic.version )
+  end
+=end
+
+
+  def test_Diagrams
+    puts "Testing all TDID diagrams - this may take a while."
+    IO.foreach('dirlist') do |line|
+      next if line =~ /^#/
+      version, release, agency = line.chomp.split(/:/)  # e.g.: D, 96A, UN
+
+      msglist = {}
+      EDI::Dir::Directory.flush_cache # or else you'll run out of memory ...
+      EDI::Diagram::Diagram.flush_cache
+
+      params = {:d0052=>version, :d0054=>release, :d0051=>agency, :is_iedi=>false}
+      assert_nothing_raised {
+        EDI::Dir::Directory.create('E', params).message_names.each do |name|
+          msglist[$1]=true if name =~ /^([A-Z]{6}):/
+        end
+      }
+      puts diag_key = [version, release, agency].join(':')
+      msglist.keys.sort.each do |msgname|
+#        puts "message #{msgname} in #{diag_key}:"
+        params[:d0065] = msgname
+        assert_nothing_raised {
+          diag = EDI::Diagram::Diagram.create('E', params)
+#          diag.each {|node| puts node.name}
+        }
+        print '.'; $stdout.sync
+      end
+      puts
+    end
+    puts "SV4 not used for testing yet!"
+  end
+
+
+  def test_Diagrams_I_EDI
+    puts "Testing all I-EDI TDID diagrams - this may take a while."
+    IO.foreach('dirlist_iedi') do |line|
+      next if line =~ /^#/
+      version, release, agency = line.chomp.split(/:/)  # e.g.: D, 96A, UN
+
+      msglist = {}
+      EDI::Dir::Directory.flush_cache # or else you'll run out of memory ...
+      EDI::Diagram::Diagram.flush_cache
+
+      params = {:d0052=>version, :d0054=>release, :d0051=>agency, :is_iedi=>true}
+      assert_nothing_raised {
+        EDI::Dir::Directory.create('E', params).message_names.each do |name|
+          msglist[$1]=true if name =~ /^([A-Z]{6}):/
+        end
+      }
+      puts diag_key = [version, release, agency].join(':')
+      msglist.keys.sort.each do |msgname|
+#        puts "message #{msgname} in #{diag_key}:"
+        params[:d0065] = msgname
+        assert_nothing_raised { EDI::Diagram::Diagram.create('E', params) }
+        print '.'; $stdout.sync
+      end
+      puts
+    end
+    puts "SV4 not used for testing yet!"
+  end
+
+
+=begin
+# Testing the lower-level DirObjects is probably outdated
+# since we are able to test whole Diagrams.
+
+  def test_DirObjects
+    puts "Path is: " + ENV['EDI_NDB_PATH']
+    puts "Testing all TDIDs - this may take a while."
+    IO.foreach('dirlist') do |line|
+      next if line =~ /^#/
+      version, release, agency = line.chomp.split(/:/)  # e.g.: D, 96A, UN
+
+      msglist = {}
+      EDI::Dir::DirObject.caching_off   # or else you'll run out of memory ...
+
+      assert_nothing_raised {
+        d = EDI::Dir::DirObject.create('E',
+                                       :d0052=>version,
+                                       :d0054=>release,
+                                       :d0051=>agency)
+        d.message_names.each {|name| msglist[$1]=true if name =~ /^([A-Z]{6}):/}
+      }
+      puts [version, release, agency].join(':')
+      msglist.keys.each do |msgname|
+        assert_nothing_raised {
+          d = EDI::Dir::DirObject.create('E',
+                                       :d0065=>msgname,
+                                       :d0052=>version,
+                                       :d0054=>release,
+                                       :d0051=>agency)
+          print '.'; $stdout.sync
+#          puts msgname +" in #{dir[0]}:#{dir[1]}"
+        }
+      end
+      puts
+    end
+    puts "I_EDI directories not tested yet!"
+    puts "SV4 not used for testing yet!"
+  end
+=end
+end

data/test/test_segments.rb

@@ -0,0 +1,109 @@
+#!/usr/bin/env ruby
+#
+# $Id$
+#
+# Copyright (c) 2006 Heinz W. Werntges, FH Wiesbaden
+# Licensed under the same terms as Ruby. No warranty provided
+
+# Load path magic...
+$:.unshift File.join(File.dirname(__FILE__), '..', '..', 'main', 'lib')
+$:.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+
+require 'test/unit'
+
+require 'edi4r'
+require 'edi4r/edifact'
+require 'edi4r-tdid'
+
+# Are there multiple DE of the same name in a CDE which
+# do not form a sequence?
+# Likewise, are there (C)DE in a segment with the same property?
+#
+def search_for_distant_duplicates( name_list, seg )
+  (0...name_list.size-2).each do |i|
+    left = name_list[i]
+    next if name_list[i+1] == left
+    name_list[i+1..-1].each do |right|
+      puts "Distant duplicates found: #{left} in #{seg}/#{name_list.join(',')}" if left == right
+    end
+  end
+end
+
+class EDIFACT_2_Tests < Test::Unit::TestCase
+
+  def test_Messages
+    puts "Testing all messages in all TDID diagrams - this may take a while."
+
+    IO.foreach('dirlist') do |line|
+      next if line =~ /^#/
+      version, release, agency = line.chomp.split(/:/)  # e.g.: D, 96A, UN
+
+      # SV4 from D.00A on required!
+      ic = EDI::E::Interchange.new( :version=> (release[0] == ?0 ? 4 : 3) )
+
+      msglist = {}
+      EDI::Dir::Directory.flush_cache # or you'll run out of memory ...
+      EDI::Diagram::Diagram.flush_cache
+
+      params={:d0052=>version, :d0054=>release, :d0051=>agency,:is_iedi=>false}
+      m_params = {:version=>version, :release=>release, :resp_agency=>agency}
+      assert_nothing_raised {
+        EDI::Dir::Directory.create('E', params).message_names.each do |name|
+          msglist[$1]=true if name =~ /^([A-Z]{6}):/
+        end
+      }
+      puts diag_key = [version, release, agency].join(':')
+      msglist.keys.sort.each do |msgname|
+#        puts "message #{msgname} in #{diag_key}:"
+        params[:d0065] = m_params[:msg_type] = msgname
+        diag = msg = nil 
+        assert_nothing_raised {diag = EDI::Diagram::Diagram.create('E',params)}
+        assert_nothing_raised {msg = ic.new_message( m_params )}
+        assert_nothing_raised do
+          diag.each do |node| 
+            seg = msg.new_segment( node.name )
+            names = seg.names
+            search_for_distant_duplicates( names, seg.name )
+#            seg.each do |cde|
+#              next unless cde.is_a? EDI::CDE
+#              search_for_distant_duplicates( cde.names, cde.name )
+#            end
+          end
+        end
+        print '.'; $stdout.sync
+      end
+      puts
+    end
+    puts "SV4 not used for testing yet!"
+  end
+
+=begin
+  def test_Diagrams_I_EDI
+    puts "Testing all I-EDI TDID diagrams - this may take a while."
+    IO.foreach('dirlist_iedi') do |line|
+      next if line =~ /^#/
+      version, release, agency = line.chomp.split(/:/)  # e.g.: D, 96A, UN
+
+      msglist = {}
+      EDI::Dir::DirObject.flush_cache # or else you'll run out of memory ...
+      EDI::Diagram::Diagram.flush_cache
+
+      params = {:d0052=>version, :d0054=>release, :d0051=>agency, :is_iedi=>true}
+      assert_nothing_raised {
+        EDI::Dir::Directory.create('E', params).message_names.each do |name|
+          msglist[$1]=true if name =~ /^([A-Z]{6}):/
+        end
+      }
+      puts diag_key = [version, release, agency].join(':')
+      msglist.keys.sort.each do |msgname|
+#        puts "message #{msgname} in #{diag_key}:"
+        params[:d0065] = msgname
+        assert_nothing_raised { EDI::Diagram::Diagram.create('E', params) }
+        print '.'; $stdout.sync
+      end
+      puts
+    end
+    puts "SV4 not used for testing yet!"
+  end
+=end
+end