commit fd0e6a9515ec8eb6a8fc2f4a9dbe8a476fa29519
author Marc Kupietz <kupietz@ids-mannheim.de> Wed Sep 09 18:07:29 2020 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Thu Sep 24 20:20:48 2020 +0200
tree f3fbd3e61901c2d8d3a263415f29e76fc46d561b
parent 1e882fb0d540f28f88576c61d200ad60ddc7bc88

Do not escape double quoutes inside raw_text elements

This is not necessary and breaks tokenization compatibility.

Change-Id: Ib43733cf7264ee07b010a3478e8c4b728f7bd708

t/tei.t

diff --git a/t/tei.t b/t/tei.t
index 94f7577..69b4ee1 100644
--- a/t/tei.t
+++ b/t/tei.t
@@ -9,7 +9,7 @@
 
 use Test::KorAP::XML::TEI qw!korap_tempfile test_tei2korapxml!;
 
-use_ok('KorAP::XML::TEI', 'remove_xml_comments', 'escape_xml');
+use_ok('KorAP::XML::TEI', 'remove_xml_comments', 'escape_xml', 'escape_xml_minimal');
 
 subtest 'remove_xml_comments' => sub {
   my ($fh, $filename) = korap_tempfile('tei');
@@ -87,5 +87,31 @@
   );
 };
 
+subtest 'escape_xml_minimal' => sub {
+  is(
+      escape_xml_minimal('"""'),
+      '"""'
+  );
+
+  is(
+      escape_xml_minimal('&&&'),
+      '&&&'
+  );
+
+  is(
+      escape_xml_minimal('<<<'),
+      '&lt;&lt;&lt;'
+  );
+
+  is(
+      escape_xml_minimal('>>>'),
+      '&gt;&gt;&gt;'
+  );
+
+  is(
+      escape_xml_minimal('<tag att1="foo" att2="bar">C&A</tag>'),
+      '&lt;tag att1="foo" att2="bar"&gt;C&amp;A&lt;/tag&gt;'
+  );
+};
 
 done_testing;