| use Test::More skip_all => 'Not yet implemented'; |
| use File::Basename 'dirname'; |
| use File::Spec::Functions 'catdir'; |
| my $path = catdir(dirname(__FILE__), 'corpus', 'doc', '0001'); |
| use_ok('KorAP::XML::Krill'); |
| ok(my $doc = KorAP::XML::Krill->new( path => $path . '/' ), 'Load Korap::Document'); |
| ->annotate('Base', 'Paragraphs') |
| ->annotate('DeReKo', 'Struct'); |
| is($doc->text_sigle, 'Corpus_Doc.0001', 'ID-text'); |
| is($doc->doc_sigle, 'Corpus_Doc', 'ID-doc'); |
| is($doc->corpus_sigle, 'Corpus', 'ID-corpus'); |
| is($doc->title, 'Beispiel Text', 'title'); |
| is($doc->sub_title, 'Beispiel Text Untertitel', 'title'); |