commit 4f67cd4981c4b3c960104f2d7bd04e7ce8c084be
author Akron <nils@diewald-online.de> Thu Jul 02 12:27:58 2020 +0200
committer Akron <nils@diewald-online.de> Fri Jul 03 15:29:31 2020 +0200
tree d4c442cac73184b60a0086922ff4cbafa82cc7d8
parent 9015734b7bd4b0db912e97f4ea8df8139f802c77

Atomize and test comment stripping

Change-Id: Id798c8bac96214f29659b2764f8861539d6f5210

xt/benchmark.pl

diff --git a/xt/benchmark.pl b/xt/benchmark.pl
index d8e3b2a..35c0c65 100644
--- a/xt/benchmark.pl
+++ b/xt/benchmark.pl
@@ -12,6 +12,8 @@
   unshift @INC, "$FindBin::Bin/../lib";
 };
 
+use KorAP::XML::TEI;
+
 my $columns = 0;
 my $no_header = 0;
 GetOptions(
@@ -38,6 +40,8 @@
   verbosity => 0
 );
 
+my $result;
+
 # Add benchmark instances
 $bench->add_instances(
   Dumbbench::Instance::PerlSub->new(
@@ -45,7 +49,18 @@
     code => sub {
       `cat '$file' | perl '$script' > /dev/null 2>&1`
     }
-  )
+  ),
+  Dumbbench::Instance::PerlSub->new(
+    name => 'delHTMLcom',
+    code => sub {
+      for (1..100_000) {
+        $result = KorAP::XML::TEI::delHTMLcom(
+          \*STDIN,
+          "This <!-- comment --> is a test " . $_
+        );
+      };
+    }
+  ),
 );
 
 # Run benchmarks