Convert metadata for ICC
Change-Id: I337749d89983e9dd91e10f6ea5166b466054bb9e
diff --git a/t/real/icc.t b/t/real/icc.t
new file mode 100644
index 0000000..9e24c9e
--- /dev/null
+++ b/t/real/icc.t
@@ -0,0 +1,123 @@
+use strict;
+use warnings;
+use Test::More;
+use Data::Dumper;
+use JSON::XS;
+
+if ($ENV{SKIP_REAL}) {
+ plan skip_all => 'Skip real tests';
+};
+
+use Benchmark qw/:hireswallclock/;
+
+my $t = Benchmark->new;
+
+use utf8;
+use lib 'lib', '../lib';
+
+use File::Basename 'dirname';
+use File::Spec::Functions 'catdir';
+
+use_ok('KorAP::XML::Krill');
+
+# This will check preliminary HNC-Files
+
+# HNC/DOC00001/00001
+my $path = catdir(dirname(__FILE__), 'corpus','ICCGER','CCBY-LTE','WMA-00005');
+
+ok(my $doc = KorAP::XML::Krill->new(
+ path => $path . '/',
+ meta_type => 'ICC'
+), 'Load Korap::Document');
+ok($doc->parse, 'Parse document');
+
+is($doc->text_sigle, 'ICCGER/CCBY-LTE/WMA-00005', 'Correct text sigle');
+is($doc->doc_sigle, 'ICCGER/CCBY-LTE', 'Correct document sigle');
+is($doc->corpus_sigle, 'ICCGER', 'Correct corpus sigle');
+
+my $meta = $doc->meta;
+like($meta->{T_title}, qr!Affinit.tschromatografie!, 'Title');
+is($meta->{S_pub_place}, 'Zug', 'PubPlace');
+
+is($meta->{T_author}, 'Wilke, Marco; Weller, Michael G.', 'Author');
+
+is($meta->{D_pub_date}, '20190000', 'Publication date');
+
+ok(!$meta->{T_sub_title}, 'SubTitle');
+
+is($meta->{A_publisher}, 'Sigwerb Sigwerb', 'Publisher');
+
+is($meta->{S_license}, 'Lizenz (Deutsch): License LogoCreative Commons - CC BY - Namensnennung 4.0 International', 'Licence');
+
+is($meta->{S_iccGenre}, 'Learned_Technology', 'Editor');
+
+is($meta->{A_source}, 'German Reference Corpus DeReKo', 'Editor');
+
+
+# Norwegian
+$path = catdir(dirname(__FILE__), 'corpus','ICCNOR','199', '00002');
+
+ok($doc = KorAP::XML::Krill->new(
+ path => $path . '/',
+ meta_type => 'ICC'
+), 'Load Korap::Document');
+ok($doc->parse, 'Parse document');
+
+is($doc->text_sigle, 'NO/199/00002', 'Correct text sigle');
+is($doc->doc_sigle, 'NO/199', 'Correct document sigle');
+is($doc->corpus_sigle, 'NO', 'Correct corpus sigle');
+
+$meta = $doc->meta;
+like($meta->{T_title}, qr!Pengesnakk!, 'Title');
+is($meta->{S_pub_place}, 'https://www.pengesnakk.no/', 'PubPlace');
+
+is($meta->{T_author}, 'Kristoffersen, Lise Vermelid', 'Author');
+
+is($meta->{D_pub_date}, '20190000', 'Publication date');
+
+ok(!$meta->{T_sub_title}, 'SubTitle');
+
+ok(!$meta->{A_publisher}, 'Publisher');
+
+ok(!$meta->{S_license}, 'Licence');
+
+is($meta->{S_iccGenre}, 'blog', 'Editor');
+
+ok(!$meta->{A_source}, 'Editor');
+
+# English
+$path = catdir(dirname(__FILE__), 'corpus','ICCENG','144', '00005');
+
+ok($doc = KorAP::XML::Krill->new(
+ path => $path . '/',
+ meta_type => 'ICC'
+), 'Load Korap::Document');
+ok($doc->parse, 'Parse document');
+
+is($doc->text_sigle, 'EN/144/00005', 'Correct text sigle');
+is($doc->doc_sigle, 'EN/144', 'Correct document sigle');
+is($doc->corpus_sigle, 'EN', 'Correct corpus sigle');
+
+$meta = $doc->meta;
+like($meta->{T_title}, qr!Irish News!, 'Title');
+ok(!$meta->{S_pub_place}, 'PubPlace');
+
+ok(!$meta->{T_author}, 'Author');
+
+is($meta->{D_pub_date}, '19940000', 'Publication date');
+
+ok(!$meta->{T_sub_title}, 'SubTitle');
+
+ok(!$meta->{A_publisher}, 'Publisher');
+
+ok(!$meta->{S_license}, 'Licence');
+
+is($meta->{S_iccGenre}, 'PreEdi', 'Editor');
+
+ok(!$meta->{A_source}, 'Editor');
+
+
+
+
+done_testing;
+__END__