More relaxed handling of document siglen
Change-Id: Ibb1fb8abb43126b7bf7791753211ea18bf802e72
diff --git a/t/real/drukola.t b/t/real/drukola.t
index 1eb4587..084ccef 100644
--- a/t/real/drukola.t
+++ b/t/real/drukola.t
@@ -20,7 +20,7 @@
# New
# BBU/BLOG/83709_a_82384
-my $path = catdir(dirname(__FILE__), '../corpus/BBU/BLOG/83709_a_82384');
+my $path = catdir(dirname(__FILE__), '../corpus/CoRoLa/BBU/BLOG/83709_a_82384');
ok(my $doc = KorAP::XML::Krill->new( path => $path . '/' ), 'Load Korap::Document');
ok($doc->parse, 'Parse document');
@@ -109,9 +109,7 @@
# New
# BBU2/BLOG/83709_a_82384
-$path = catdir(dirname(__FILE__), '../corpus/BBU2/Blog/83701_a_82376');
-
-
+$path = catdir(dirname(__FILE__), '../corpus/CoRoLa/BBU2/Blog/83701_a_82376');
ok($doc = KorAP::XML::Krill->new( path => $path . '/' ), 'Load Korap::Document');
ok($doc->parse, 'Parse document');
@@ -124,5 +122,27 @@
ok(!exists $meta->{text_class}, 'No translator');
+
+$path = catdir(dirname(__FILE__), '../corpus/CoRoLa/Corola-Journal/-/247_a_537');
+ok($doc = KorAP::XML::Krill->new( path => $path . '/' ), 'Load Korap::Document');
+ok($doc->parse, 'Parse document');
+
+$meta = $doc->meta;
+is($meta->text_sigle, 'Corola-Journal/-/247_a_537', 'Text Sigle');
+is($meta->doc_sigle, 'Corola-Journal/-', 'Doc Sigle');
+is($meta->corpus_sigle, 'Corola-Journal', 'Corpus Sigle');
+is($meta->{text_class}->[0], 'Sport', 'Text class');
+
+
+$path = catdir(dirname(__FILE__), '../corpus/CoRoLa/Corola-Journal/COLEGIUL NATIONAL „OCTAV BANCILA“ - IASI/326_a_562');
+ok($doc = KorAP::XML::Krill->new( path => $path . '/' ), 'Load Korap::Document');
+ok($doc->parse, 'Parse document');
+
+$meta = $doc->meta;
+is($meta->text_sigle, 'Corola-Journal/COLEGIUL NATIONAL „OCTAV BANCILA“ - IASI/326_a_562', 'Text Sigle');
+is($meta->doc_sigle, 'Corola-Journal/COLEGIUL NATIONAL „OCTAV BANCILA“ - IASI', 'Doc Sigle');
+is($meta->corpus_sigle, 'Corola-Journal', 'Corpus Sigle');
+is($meta->{title}, 'APOGEUL ARHITECTURĂ ȘI DESIGN', 'Title');
+
done_testing;
__END__