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;