edifact_converter 2.0.13

data/test/files/test.xsl

@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:xs="http://www.w3.org/2001/XMLSchema" exclude-result-prefixes="xs"
+    xmlns:my="http://edifact.medware.dk/converter" extension-element-prefixes="my" version="2.0">
+    <xsl:output encoding="ISO-8859-1"/>
+
+    <xsl:template match="/Edifact">
+        <Edifact>
+            <xsl:apply-templates select="*"/>
+        </Edifact>
+    </xsl:template>
+
+    <xsl:template match="*[my:is_segment(.)]">
+        <xsl:variable name="elms" select="my:valid_elms(Elm)"/>
+        <xsl:element name="{local-name()}">
+            <xsl:copy-of select="@*"/>
+            <xsl:copy-of select="$elms"/>
+        </xsl:element>
+    </xsl:template>
+
+    <xsl:template match="*[my:is_segmentgroup(.)]">
+        <xsl:if test="not(@hidden)">
+            <xsl:element name="{local-name()}">
+                <xsl:copy-of select="*[1]"/>
+            </xsl:element>
+        </xsl:if>
+        <xsl:apply-templates select="*[position() &gt; 1]"/>
+    </xsl:template>
+
+    <xsl:template match="Elm">
+        <xsl:variable name="subelms" select="my:valid_subelms(*)"/>
+        <xsl:copy-of select="$subelms"/>
+    </xsl:template>
+
+    <!-- 
+    <xsl:template match="*">
+        
+    </xsl:template>
+     -->
+
+</xsl:stylesheet>

data/test/files/text.edi

@@ -0,0 +1,50 @@
+UNA:+.? '
+UNB+UNOC:3+5790000121236:14+5790000143054:14+010426:0918+I3LPUBLS0194UL++++0'
+UNH+2468101249+MEDDIS:D:93A:UN:D1431C+DIS14'
+BGM+EPI++9+NA'
+DTM+137:20010424153020:204'
+S01+01'
+NAD+ROR+4202090:SKS:SST++Odense Universitetshospital:Medicinsk Afdeling:C4:::US'
+SEQ++1'
+S01+01'
+NAD+SOR+173:KOM:IM++Lyngby Taarbæk Kommune:::::US'
+SEQ++2'
+SPR+ORG++DIS14:SKS:SST'
+S01+01'
+NAD+BV+++omsorgsgruppe 1:Hjemmepleje aften::::US'
+CON++44601000/1234:TE'
+RFF+AHL:2'
+RFF+BUH:ma-fre 15.00-22.30'
+SEQ++3'
+S01+01'
+NAD+BV+++omsorgsgruppe 1:Hjemmepleje nat::::US'
+CON++44601000/1234:TE'
+RFF+AHL:2'
+RFF+BUH:ma-fre 23.00-7.00'
+SEQ++4'
+S01+01'
+NAD+BV+++omsorgsgruppe 2:042 Hjemmepleje dag lø::::US'
+CON++44601000/2345:TE'
+RFF+AHL:2'
+RFF+BUH:lø 7.30-15.00'
+SEQ++5'
+S01+01'
+NAD+BV+++Anne Hansen:006 Hjælpemidler::::US'
+CON++47114711/1234:TE'
+RFF+AHL:2'
+RFF+BUH:ma-fre 8.30-14.30'
+SEQ++6'
+S02+02'
+GIS+N'
+RFF+SRI:2468101249'
+DTM+182:20010424153020:204'
+S07+07'
+PNA+PAT+2505544849:::CPR:IM'
+S11+11'
+GIS+N'
+GIS+P'
+RFF+ADY:0'
+RFF+REI:2468101249'
+SEQ++1'
+UNT+47+2468101249'
+UNZ+1+I3LPUBLS0194UL'

data/test/xml/paragraph_test.rb

@@ -0,0 +1,165 @@
+require 'test/unit'
+require 'edifact_converter'
+
+module EdifactConverter::XML
+
+  class ParagraphTest < Test::Unit::TestCase
+
+    def text1
+      %{Vagttab på 10 kg/ 2mdr, trathed, hudkloe og icterus. UL-scanning har afgivet mistanke om malign galdevejssygdom. Komplikationsfrit operations- og efterforlOb i afd.}
+      #txt.encode("iso-8859-1")
+    end
+
+    def text1s
+      [
+        %{Vagttab på 10 kg/ 2mdr, trathed, hudkloe og icterus. UL-scanning har \\},
+        %{afgivet mistanke om malign galdevejssygdom. Komplikationsfrit \\},
+        %{operations- og efterforlOb i afd.}
+      ]
+    end
+
+    def text2
+      %{paravertebralmuskulatur primært på højre side. Smerterne stråler fra lænden ned i højre lår. Smerterne centraliseres ved gentagne øvelser (centraliseringsfænomenet er ifølge Mc.Kenziekonceptet tegn på }
+    end
+
+    def text2s
+      [
+        %{paravertebralmuskulatur primært på højre side. Smerterne stråler fra \\},
+        %{lænden ned i højre lår. Smerterne centraliseres ved gentagne øvelser \\},
+        %{(centraliseringsfænomenet er ifølge Mc.Kenziekonceptet tegn på }
+      ]
+    end
+
+    def paragraph
+      @paragraph ||= Paragraph.new
+    end
+
+    def setup
+      raise "hell" unless paragraph
+    end
+
+    def test_initialize
+      assert_equal Paragraph::PROPOTIONAL, paragraph.font
+      assert_equal Paragraph::NORMAL, paragraph.format
+    end
+
+    def test_remove_start_break
+      paragraph.remove_start_break
+      assert paragraph.content.empty?
+      paragraph.add_start_break Paragraph::Break.new
+      paragraph.remove_start_break
+      assert paragraph.content.empty?
+      paragraph.add_text "text"
+      paragraph.add_start_break Paragraph::Break.new
+      paragraph.remove_start_break
+      assert_equal 1, paragraph.content.size
+      paragraph.add_break
+      paragraph.remove_start_break
+      assert_equal 2, paragraph.content.size
+    end
+
+    def test_start_breaks?
+      assert not(paragraph.start_breaks?)
+      paragraph.add_start_break Paragraph::Break.new
+      assert paragraph.start_breaks?
+    end
+
+    def test_add_start_break
+      mybreak = Paragraph::Break.new
+      paragraph.add_text "text"
+      paragraph.add_start_break mybreak
+      assert_equal mybreak, paragraph.content.first
+    end
+
+    def test_add_end_break
+      mybreak = Paragraph::Break.new
+      paragraph.add_text "text"
+      paragraph.add_end_break mybreak
+      assert_equal mybreak, paragraph.content.last
+    end
+
+    def test_remove_end_break
+      mybreak = Paragraph::Break.new
+      paragraph.add_text "text"
+      paragraph.add_end_break mybreak
+      paragraph.add_break
+      assert_equal mybreak, paragraph.content.last
+    end
+
+    def test_end_breaks?
+      assert not(paragraph.end_breaks?)
+      paragraph.add_break
+      assert paragraph.end_breaks?
+    end
+
+    def test_add_text
+      mytext = "Text"
+      paragraph.add_text mytext
+      assert_equal mytext, paragraph.content.first.value
+    end
+
+    def test_add_break
+      paragraph.add_break
+      assert paragraph.content.first.break?
+    end
+
+    def test_texts?
+      assert not(paragraph.texts?)
+      paragraph.add_break
+      assert not(paragraph.texts?)
+      paragraph.add_text "Text"
+      assert paragraph.texts?
+    end
+
+    def test_empty_copy
+      paragraph.font = Paragraph::MONOSPACE
+      paragraph.format = Paragraph::CENTER
+      paragraph.add_text "text"
+      p = paragraph.empty_copy
+      assert p.content.empty?
+      assert_equal paragraph.font, p.font
+      assert_equal paragraph.format, p.format
+    end
+
+    def test_ftx_format
+      assert_equal "P00", paragraph.ftx_format
+      paragraph.font = Paragraph::MONOSPACE
+      paragraph.format = Paragraph::CENTER
+      assert_equal "F0M", paragraph.ftx_format
+    end
+
+    def test_insert_split
+      texts = {
+        "Hej Arne Bjarne" => ["Hej Arne \\", "Bjarne"],
+        "Hej Arne_Bjarne" => ["Hej \\", "Arne_Bjarne"],
+        "Hej_Arne_Bjarne" => ["Hej_Arne_Bjarne\\", ''],
+        "Hej Arne Bjarne " => ["Hej Arne Bjarne \\", '']
+      }
+      texts.each do |text, result|
+        source = StringIO.new
+        source.write text
+        line = ""
+        source.string = paragraph.insert_split(source) { |text| line = text }  
+        assert_equal result.first, line, "Wrong split for #{text}"
+        assert_equal result.last, source.string, "Wrong split for #{text}"
+      end
+    end
+
+    def test_divide_text
+      result = []
+      result << paragraph.divide_text(text1) { |txt| result << txt }      
+      assert_equal 3, result.size
+      3.times do |index|
+        assert_equal text1s[index], result[index].encode("utf-8"), "Mismatch at #{index}"
+      end
+      result = []
+      result << paragraph.divide_text(text2) { |txt| result << txt }      
+      assert_equal 3, result.size, "Result = #{result}"
+      3.times do |index|
+        assert_equal text2s[index], result[index].encode("utf-8"), "Mismatch at #{index}"
+      end
+    end
+
+  end
+
+end

data/test/xml/xftx_parser_test.rb

@@ -0,0 +1,200 @@
+require 'test/unit'
+require 'equivalent-xml'
+require 'edifact_converter'
+
+module EdifactConverter::XML
+
+  class ParagraphTest < Test::Unit::TestCase
+
+    LONG_TEXT = <<-EOS.gsub(/^ */, '')
+    1995 indlagt Køge Sygehus under mistanke om AMI, afkræftedes. Januar 98 indlagt Frederiksborg Sgh., med afd., med stenokardi. Februar 98 samme afd. amb. til EKG-belastningsus.
+      Gift fabrikant. Siden barnealderen været overvægtig., altid dårlige kostvaner spec. med overflødig fedtkalorie-tilførsel. I flere perioder beh. for addiktivt alkoholmisbrug.
+      Virker velbegavet, men trods dette dårlig sygdomsindsigt og manglende motivation for livsstilsændring.
+      Konsulterede primo sept. 98 med kraftig diffus dunkende hovedpine. BT fandtes kraftigt forhøjet - siddende 205/120 efter 15 min.s
+    Patienten angiver sig nu indstillet på den nødvendige intervention, evt. også længerevarende indl.
+      EOS
+
+    LONG_TEXT_XML_DEFAULT = Nokogiri::XML <<-EOS
+    <edifact><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>P00</SubElm></Elm><Elm/><Elm>
+    <SubElm>1995 indlagt Køge Sygehus under mistanke om AMI, afkræftedes. Januar \\</SubElm>
+    <SubElm>98 indlagt Frederiksborg Sgh., med afd., med stenokardi. Februar 98 \\</SubElm>
+    <SubElm>samme afd. amb. til EKG-belastningsus. </SubElm>
+    <SubElm>Gift fabrikant. Siden barnealderen været overvægtig., altid dårlige \\</SubElm>
+    <SubElm>kostvaner spec. med overflødig fedtkalorie-tilførsel. I flere \\</SubElm>
+    </Elm></FTX><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>P00</SubElm></Elm><Elm/><Elm>
+    <SubElm>perioder beh. for addiktivt alkoholmisbrug. </SubElm>
+    <SubElm>Virker velbegavet, men trods dette dårlig sygdomsindsigt og \\</SubElm>
+    <SubElm>manglende motivation for livsstilsændring. </SubElm>
+    <SubElm>Konsulterede primo sept. 98 med kraftig diffus dunkende hovedpine. \\</SubElm>
+    <SubElm>BT fandtes kraftigt forhøjet - siddende 205/120 efter 15 min.s </SubElm>
+    </Elm></FTX><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>P00</SubElm></Elm><Elm/><Elm>
+    <SubElm>Patienten angiver sig nu indstillet på den nødvendige intervention, \\</SubElm>
+    <SubElm>evt. også længerevarende indl.</SubElm></Elm></FTX></edifact>
+    EOS
+
+    LONG_TEXT_XML_FIXED = Nokogiri::XML <<-EOS
+    <edifact><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>F00</SubElm></Elm><Elm/><Elm>
+    <SubElm>1995 indlagt Køge Sygehus under mistanke om AMI, afkræftedes. Januar \\</SubElm>
+    <SubElm>98 indlagt Frederiksborg Sgh., med afd., med stenokardi. Februar 98 \\</SubElm>
+    <SubElm>samme afd. amb. til EKG-belastningsus. </SubElm>
+    <SubElm>Gift fabrikant. Siden barnealderen været overvægtig., altid dårlige \\</SubElm>
+    <SubElm>kostvaner spec. med overflødig fedtkalorie-tilførsel. I flere \\</SubElm>
+    </Elm></FTX><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>F00</SubElm></Elm><Elm/><Elm>
+    <SubElm>perioder beh. for addiktivt alkoholmisbrug. </SubElm>
+    <SubElm>Virker velbegavet, men trods dette dårlig sygdomsindsigt og \\</SubElm>
+    <SubElm>manglende motivation for livsstilsændring. </SubElm>
+    <SubElm>Konsulterede primo sept. 98 med kraftig diffus dunkende hovedpine. \\</SubElm>
+    <SubElm>BT fandtes kraftigt forhøjet - siddende 205/120 efter 15 min.s </SubElm>
+    </Elm></FTX><FTX><Elm><SubElm>NC</SubElm></Elm><Elm><SubElm>F00</SubElm></Elm><Elm/><Elm>
+    <SubElm>Patienten angiver sig nu indstillet på den nødvendige intervention, \\</SubElm>
+    <SubElm>evt. også længerevarende indl.</SubElm></Elm></FTX></edifact>
+    EOS
+
+
+    TWO_LINES_TEXT = <<-EOS.gsub(/^ */, '')
+    1995 indlagt Køge Sygehus under mistanke om AMI, afkræftedes. Januar 98 indlagt Frederiksborg Sgh., med afd., med stenokardi. Februar 98 samme afd. amb. til EKG-belastningsus.
+      Gift fabrikant. Siden barnealderen været overvægtig., altid dårlige kostvaner spec. med overflødig fedtkalorie-tilførsel. I flere perioder beh. for addiktivt alkoholmisbrug.
+      EOS
+
+    ONE_LINE_TEXT = <<-EOS.gsub(/^ */, '')
+    1995 indlagt Køge Sygehus under mistanke om AMI, afkræftedes. Januar 98 indlagt Frederiksborg Sgh., med afd., med stenokardi. Februar 98 samme afd. amb. til EKG-belastningsus.
+      EOS
+
+
+
+    def default_node
+      builder = Nokogiri::XML::Builder.new do |xml|
+        xml.edifact {
+          xml.xftx {
+            xml.Elm {
+              xml.SubElm "NC"
+            }
+            xml.Elm
+            xml.Elm
+            xml.Elm {
+              xml.SubElm {
+                LONG_TEXT.each_line do |text|
+                  xml.text text.gsub(/\n/, '')
+                  xml.Break
+                end
+              }
+            }
+          }
+        }
+      end
+      builder.doc.at('xftx')
+    end
+
+    def fixed_node
+      builder = Nokogiri::XML::Builder.new do |xml|
+        xml.edifact {
+          xml.xftx {
+            xml.Elm {
+              xml.SubElm "NC"
+            }
+            xml.Elm
+            xml.Elm
+            xml.Elm {
+              xml.SubElm {
+                xml.FixedFont {
+                  LONG_TEXT.each_line do |text|
+                    xml.text text
+                    xml.Break
+                  end
+                }
+              }
+            }
+          }
+        }
+      end
+      builder.doc.at('xftx')
+    end
+
+    def xftx_content
+      builder = Nokogiri::XML::Builder.new do |xml|
+        xml.edifact {
+          xml.SubElm {
+            xml.FixedFont {
+              xml.text "F00"
+              xml.Break
+              xml.Bold "FF0"
+              xml.text "F00"
+              xml.Italic "FK0"
+              xml.Right "F0H"
+              xml.Break
+              xml.Center "F0M"
+              xml.Break
+              xml.Bold
+              xml.text "F00"
+            }
+            xml.text "P00"
+          }
+        }
+      end
+      builder.doc.at('SubElm')
+    end
+
+    XFTX_CONTENT_TXT = <<-EOS
+:
+<P00:><F00:F00
+><FF0:FF0><F00:F00><FK0:FK0><F00:><F0H:
+F0H
+><F00:
+><F0M:F0M
+><F00:
+><FF0:><F00:F00><P00:P00>
+    EOS
+
+    XFTX_CONTENT_PACKED = <<-EOS
+:
+<F00:F00
+><FF0:FF0><F00:F00><FK0:FK0><F0H:
+F0H
+><F00:
+><F0M:F0M
+><F00:
+><F00:F00><P00:P00>
+    EOS
+
+    def setup
+      @xparser_default = XftxParser.new default_node
+      @xparser_fixed = XftxParser.new fixed_node
+    end
+
+    def test_transform_xftx
+      doc =  @xparser_default.xftx.document
+      @xparser_default.transform_xftx
+      text = ""
+      assert(EquivalentXml.equivalent?(doc, LONG_TEXT_XML_DEFAULT, opts = { :element_order => true, :normalize_whitespace => true}) do |generated, expected, result|
+               text << "Expected \n#{expected}\nGot \n#{generated}" unless result
+               result
+      end, text)
+      doc = @xparser_fixed.xftx.document
+      @xparser_fixed.transform_xftx
+      text = ""
+      doc.encoding = "utf-8"
+      assert(EquivalentXml.equivalent?(doc, LONG_TEXT_XML_FIXED, opts = { :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
+
+    def test_transform_content
+      @xparser_default.transform_content xftx_content
+      #puts @xparser_default
+      assert_equal XFTX_CONTENT_TXT, @xparser_default.to_s << "\n"
+    end
+
+    def test_pack_paragraphs
+      @xparser_default.transform_content xftx_content
+      @xparser_default.pack_paragraphs
+      assert_equal XFTX_CONTENT_PACKED, @xparser_default.to_s << "\n"
+    end
+
+
+  end
+
+end