Enable conversion of (some) standard TEI P5
Providing an option --xmlid-to-textsigle
to convert P5 xml:id attributes to three part I5-sigles
Resolves #4
Resolves #5
Change-Id: I8fd23b7021c25cf4d80234a0570d06dea78e7813
diff --git a/t/script.t b/t/script.t
index 51f5751..e7b93f3 100644
--- a/t/script.t
+++ b/t/script.t
@@ -773,5 +773,20 @@
)->stderr_like(qr!GOE_AGA\.00000!);
};
+subtest 'Standard TEI P5 testing' => sub {
+
+ my $t = test_tei2korapxml(
+ file => catfile($f, 'data', 'icc_german_sample.p5.xml'),
+ param => '--xmlid-to-textsigle \'ICC.German\.([^.]+\.[^.]+)\.(.+)@ICCGER/$1/$2\' -s -tk',
+ tmp => 'script_utf8_enc'
+ )->stderr_like(qr!tei2korapxml:.*? text_id=ICCGER/DeReKo-WPD17\.S00-18619!);
+
+ $t->unzip_xml('ICCGER/DeReKo-WPD17/E51-96136/data.xml')
+ ->content_like(qr/Recht auf persönliches Hab und Gut/);
+
+ $t->unzip_xml('ICCGER/CCBY-LTE/MJB-00001/header.xml')
+ ->text_is('textClass > classCode[scheme=ICC]', 'Learned_Technology', 'classCode is correctly extracted');
+
+};
done_testing;