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.t

diff --git a/t/sgbr/meta.t b/t/sgbr/meta.t
index a1c15c0..91b0d8d 100644
--- a/t/sgbr/meta.t
+++ b/t/sgbr/meta.t
@@ -20,8 +20,8 @@
 like($doc->path, qr!$path/!, 'Path');
 
 # Metdata
-is($doc->text_sigle, 'TEST_BSP.1', 'ID-text');
-is($doc->doc_sigle, 'TEST_BSP', 'ID-doc');
+is($doc->text_sigle, 'TEST/BSP/1', 'ID-text');
+is($doc->doc_sigle, 'TEST/BSP', 'ID-doc');
 is($doc->corpus_sigle, 'TEST', 'ID-corpus');
 
 my $meta = $doc->meta;

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;

t/sgbr/meta_ids.t

diff --git a/t/sgbr/meta_ids.t b/t/sgbr/meta_ids.t
index b040e09..5c9c628 100644
--- a/t/sgbr/meta_ids.t
+++ b/t/sgbr/meta_ids.t
@@ -20,9 +20,9 @@
 like($doc->path, qr!$path/!, 'Path');
 
 # Metdata
-is($doc->text_sigle, 'CMC-TSK_2014-09.2843', 'ID-text');
+is($doc->text_sigle, 'CMC-TSK/2014-09/2843', 'ID-text');
 
-is($doc->doc_sigle, 'CMC-TSK_2014-09', 'ID-doc');
+is($doc->doc_sigle, 'CMC-TSK/2014-09', 'ID-doc');
 is($doc->corpus_sigle, 'CMC-TSK', 'ID-corpus');
 
 my $meta = $doc->meta;
@@ -88,9 +88,9 @@
 like($doc->path, qr!$path/!, 'Path');
 
 # Metdata
-is($doc->text_sigle, 'CMC-TSK_2014-09.3401', 'ID-text');
+is($doc->text_sigle, 'CMC-TSK/2014-09/3401', 'ID-text');
 
-is($doc->doc_sigle, 'CMC-TSK_2014-09', 'ID-doc');
+is($doc->doc_sigle, 'CMC-TSK/2014-09', 'ID-doc');
 is($doc->corpus_sigle, 'CMC-TSK', 'ID-corpus');