Improved handling of weird metadata stuff
Change-Id: If2b7258071b8b52136d166101af291ff4e55d0cd
diff --git a/t/meta.t b/t/meta.t
index 850e630..c8f580d 100644
--- a/t/meta.t
+++ b/t/meta.t
@@ -434,6 +434,22 @@
is($hash->{author}, 'Hustedt, Michaele');
is($hash->{pub_place}, 'Berlin');
+
+# UMB45/D38/00001
+$path = catdir(dirname(__FILE__), 'corpus','UMB45','D38','00001');
+ok($doc = KorAP::XML::Krill->new( path => $path), 'Load Korap::Document');
+like($doc->path, qr!\Q$path\E/!, 'Path');
+
+ok($doc->parse, 'Parse document');
+$meta = $doc->meta;
+
+is($doc->text_sigle, 'UMB45/D38/00001', 'text sigle');
+is($doc->doc_sigle, 'UMB45/D38', 'doc sigle');
+is($doc->corpus_sigle, 'UMB45', 'corpus sigle');
+
+is($meta->{title}, 'In: Über Schuld und Aufgabe der geistigen Führungsschicht im deutschen politischen Leben der Gegenwart. - Göttingen, 1955', 'title');
+
+
done_testing;
__END__