commit 1cd5b87c14a5ed41ecf10147b02199fa3c5b9152
author Akron <nils@diewald-online.de> Tue Mar 22 00:23:46 2016 +0100
committer Akron <nils@diewald-online.de> Tue Mar 22 00:23:46 2016 +0100
tree 19473b772cebece201a8e437955616679d3070d1
parent 11c8030aefc1a84405a9f922c0a6ae0b6790fb31

Use slashes as separators in siglen

Change-Id: I368a0e0be8880a0608c7fba1f13ce5688d22973a

t/sgbr/meta_duden.t

diff --git a/t/sgbr/meta_duden.t b/t/sgbr/meta_duden.t
index c808022..a375307 100644
--- a/t/sgbr/meta_duden.t
+++ b/t/sgbr/meta_duden.t
@@ -20,8 +20,8 @@
 like($doc->path, qr!$path/!, 'Path');
 
 # Metdata
-is($doc->text_sigle, 'PRO-DUD_BSP-2013-01.32', 'ID-text');
-is($doc->doc_sigle, 'PRO-DUD_BSP-2013-01', 'ID-doc');
+is($doc->text_sigle, 'PRO-DUD/BSP-2013-01/32', 'ID-text');
+is($doc->doc_sigle, 'PRO-DUD/BSP-2013-01', 'ID-doc');
 is($doc->corpus_sigle, 'PRO-DUD', 'ID-corpus');
 
 my $meta = $doc->meta;