commit 5401bf3bce7ed27cf0861d5a13d9ad68cb722fe7
author Akron <nils@diewald-online.de> Fri Oct 01 14:35:35 2021 +0200
committer Akron <nils@diewald-online.de> Wed Oct 06 13:55:15 2021 +0200
tree db4b10d3be5424e9dba9439804ab4d43821fa494
parent 6d2a90049b44608487871bc7288827c060deff13

Check for valid sigles to avoid broken directories

Change-Id: Ib4c9a125feda4ddb88966aff0fdbe1a39f00820f

t/header.t

diff --git a/t/header.t b/t/header.t
index 0012e75..4ee67e7 100644
--- a/t/header.t
+++ b/t/header.t
@@ -96,6 +96,24 @@
   is($h->id_esc, 'GOE_"AAA"', 'Check sigle escaped');
   is($h->dir, 'GOE/"AAA"', 'Check dir');
   is($h->type, 'document', 'Check type');
+
+
+  ($fh, $filename) = korap_tempfile('header_2');
+
+  print $fh <<'HTML';
+  <fileDesc>
+   <titleStmt>
+    <dokumentSigle>ATZ10.</dokumentSigle>
+   </titleStmt>
+</idsHeader>
+Test
+HTML
+
+  seek($fh, 0, 0);
+
+  $h = KorAP::XML::TEI::Header->new('<idsHeader type="document">');
+  eval { $h->parse($fh) };
+  is($h->sigle, '', 'Check sigle');
 };