Test inline conversion of pos and msd
Change-Id: If8d4da05082c33434ba18a0b2bc397e340f44724
diff --git a/t/inline.t b/t/inline.t
index 4e70307..14dfcab 100644
--- a/t/inline.t
+++ b/t/inline.t
@@ -93,7 +93,6 @@
->text_is('#s2 fs f[name="type"]', 'NN')
;
-
subtest 'Support dependency parsing' => sub {
$inline = KorAP::XML::TEI::Inline->new(0,{},0,1);
ok($inline->parse('Fake News Media',
@@ -255,7 +254,35 @@
->text_is('#s22 fs f[name="pos"]', 'Punct')
->text_is('#s22 fs f[name="msd"]', '_')
;
+};
+subtest 'Parse msd from inline' => sub {
+ ok($inline->parse('aaa', \'<w lemma="die" pos="det" msd="SUBCAT_Prop|CASECHANGE_Up|OTHER_UNK">Die</w> <w
+ lemma="alt" pos="ADJ" msd="SUBCAT_Prop|CASECHANGE_Up|OTHER_UNK">alte</w> <w lemma="frau" pos="NN" msd="NUM_Sg|CASE_Nom|CASECHANGE_Up">Frau</w>'), 'Parsed');
+
+ is($inline->data->data, 'Die alte Frau');
+
+ Test::XML::Loy->new($inline->tokens->to_string('aaa', 1))
+ ->attr_is('#s0', 'l', "2")
+ ->attr_is('#s0', 'to', 3)
+ ->text_is('#s0 fs f[name="lemma"]', 'die')
+ ->text_is('#s0 fs f[name="pos"]', 'det')
+ ->text_is('#s2 fs f[name="msd"]', 'NUM_Sg|CASE_Nom|CASECHANGE_Up')
+
+ ->attr_is('#s1', 'l', "2")
+ ->attr_is('#s1', 'from', 4)
+ ->attr_is('#s1', 'to', 8)
+ ->text_is('#s1 fs f[name="lemma"]', 'alt')
+ ->text_is('#s1 fs f[name="pos"]', 'ADJ')
+ ->text_is('#s2 fs f[name="msd"]', 'NUM_Sg|CASE_Nom|CASECHANGE_Up')
+
+ ->attr_is('#s2', 'l', "2")
+ ->attr_is('#s2', 'from', 9)
+ ->attr_is('#s2', 'to', 13)
+ ->text_is('#s2 fs f[name="lemma"]', 'frau')
+ ->text_is('#s2 fs f[name="pos"]', 'NN')
+ ->text_is('#s2 fs f[name="msd"]', 'NUM_Sg|CASE_Nom|CASECHANGE_Up')
+ ;
};
subtest 'Examples from documentation' => sub {