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/xt/benchmark.pl b/xt/benchmark.pl
index f618717..7caa1dc 100644
--- a/xt/benchmark.pl
+++ b/xt/benchmark.pl
@@ -40,6 +40,7 @@
# Load example files
my $file = rel2abs(catfile($f, '..', 't', 'data', 'goe_sample.i5.xml'));
my $goe_tagged = rel2abs(catfile($f, '..', 't', 'data', 'goe_sample_tagged.i5.xml'));
+my $icc_german = rel2abs(catfile($f, '..', 't', 'data', 'icc_german_sample.p5.xml'));
# Create a new benchmark object
my $bench = Dumbbench->new(
@@ -96,6 +97,12 @@
}
),
Dumbbench::Instance::PerlSub->new(
+ name => 'Conversion of standard TEI',
+ code => sub {
+ `cat '$icc_german' | perl '$script' > /dev/null 2>&1`
+ }
+ ),
+ Dumbbench::Instance::PerlSub->new(
name => 'delHTMLcom',
code => sub {
for (1..100_000) {