commit 2d547bcc6c9af8a65973dae1bc804b08445abaf1
author Akron <nils@diewald-online.de> Sat Jul 04 10:34:35 2020 +0200
committer Akron <diewald@ids-mannheim.de> Sat Jul 04 11:58:23 2020 +0200
tree cdb6346a80432894224a5e420ac174afda8e70ff
parent 5ca6efc5fee7874b599841685f03c723a5fe6d32

Fix a bug in delHTMLcom where comments were left open

Change-Id: I424ac394fa7eaad9a2b62c61761d2de6720870a2

t/tei.t

diff --git a/t/tei.t b/t/tei.t
index 292ed19..fcfd32e 100644
--- a/t/tei.t
+++ b/t/tei.t
@@ -27,4 +27,19 @@
 
 is(KorAP::XML::TEI::delHTMLcom($fh, '<!--'), "Test\n");
 
+seek($fh, 0, 0);
+
+print $fh <<'HTML';
+mehrzeiliger
+Kommentar
+  --><!-- Versuch
+-->ist <!-- a --><!-- b --> ein Test
+HTML
+
+seek($fh, 0, 0);
+
+is(KorAP::XML::TEI::delHTMLcom($fh, 'Dies <!--'), "Dies ist  ein Test");
+
+close($fh);
+
 done_testing;