commit 9157792eccff19f3882e066d60f632ba133b84ed
author Akron <nils@diewald-online.de> Fri Feb 19 10:32:54 2021 +0100
committer Akron <nils@diewald-online.de> Tue Feb 23 15:30:01 2021 +0100
tree 74ac0257280786f484083466d7001a2bb4000c4f
parent 26a715249095791b18136ce8523c5694b2e1f468

Remove mentioning main() (that doesn't exist anymore)

Change-Id: I1e3a2178827d254328fe5b15e6b70ffe0a01675c

t/script.t

diff --git a/t/script.t b/t/script.t
index 658cc79..8249f79 100644
--- a/t/script.t
+++ b/t/script.t
@@ -41,7 +41,7 @@
     file => $file,
     param => '-ti',
     env => 'KORAPXMLTEI_DEBUG=1'
-  )->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+  )->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
   ->stderr_like(qr!Debugging is activated!);
 };
 
@@ -51,7 +51,7 @@
     tmp => 'script_out',
     file => $file,
     param => '-ti'
-  )->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+  )->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
   ->stderr_unlike(qr!Debugging is activated!);
 
 
@@ -160,7 +160,7 @@
     param => "-tc='perl $cmd'",
     tmp => 'script_out2'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
     ->file_readable('GOE/AGA/00000/base/tokens.xml')
 
     # Uncompress GOE/AGA/00000/base/tokens.xml from zip file
@@ -191,7 +191,7 @@
     param => "-tk -s",
     tmp => 'script_bug_check'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=WDD19_H0039\.87242!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=WDD19_H0039\.87242!)
     ->file_readable('WDD19/H0039/87242/struct/structure.xml');
 };
 
@@ -209,7 +209,7 @@
       param => "-tk -s",
       tmp => 'script_sentence_split'
   )
-      ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+      ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
       ->file_readable('GOE/AGA/00000/struct/structure.xml')
       ->unzip_xml('GOE/AGA/00000/struct/structure.xml')
       ->text_is('span#s25 fs f', 's')
@@ -227,7 +227,7 @@
     file => catfile($f, 'data', 'text_with_blanks.i5.xml'),
     tmp => 'script_out3',
     param => '-ti'
-  )->stderr_like(qr!tei2korapxml: .*? text_id=CORP_DOC.00001!);
+  )->stderr_like(qr!tei2korapxml:.*? text_id=CORP_DOC.00001!);
 
   # ~ test conservative tokenization ~
   $t->unzip_xml('CORP/DOC/00001/base/tokens_conservative.xml')
@@ -304,7 +304,7 @@
     param => "-ti -tc 'perl $cmd'",
     tmp => 'script_tokflags'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
     ->file_exists('GOE/AGA/00000/base/tokens_aggressive.xml')
     ->file_exists('GOE/AGA/00000/base/tokens_conservative.xml')
     ->file_exists('GOE/AGA/00000/base/tokens.xml')
@@ -355,7 +355,7 @@
 
   stderr_like(
     sub { `cat '$tplfile' | perl '$script' -ti > '$outzip'` },
-    qr!tei2korapxml: .*? text_id=$text_sigle_esc!, # see above: print $fh encode_utf8($tpl);
+    qr!tei2korapxml:.*? text_id=$text_sigle_esc!, # see above: print $fh encode_utf8($tpl);
   );
 };
 
@@ -408,7 +408,7 @@
     env => 'KORAPXMLTEI_INLINE=1',
     tmp => 'script_tagged'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
 
     # Check zip using xml loy
     ->unzip_xml('GOE/AGA/00000/tokens/morpho.xml')
@@ -491,7 +491,7 @@
     tmp => 'script_tagged',
     param => '--inline-tokens=myfoundry#myfile'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
 
     ->file_exists_not('GOE/AGA/00000/tokens/morpho.xml', 'Morpho not generated')
 
@@ -511,7 +511,7 @@
     tmp => 'script_tagged',
     param => '--inline-tokens=myfoundry'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
 
     ->file_exists_not('GOE/AGA/00000/tokens/morpho.xml', 'Morpho not generated')
 
@@ -536,7 +536,7 @@
   # Generate zip file (unportable!)
   stderr_like(
     sub { `cat '$file' | KORAPXMLTEI_INLINE=1 perl '$script' > '$outzip'` },
-    qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!,
+    qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!,
     'Processing 1'
   );
 
@@ -572,7 +572,7 @@
     env => 'KORAPXMLTEI_INLINE=1',
     tmp => 'script_utf8_enc'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
     ->unzip_xml('GOE/AGA/00000/data.xml')
     ->content_like(qr/\Q"Kriegstheater"\E/)
     ->content_like(qr/\QTür'\E/)
@@ -583,7 +583,7 @@
     env => 'KORAPXMLTEI_INLINE=1',
     tmp => 'script_iso_enc'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!)
     ->unzip_xml('GOE/AGA/00000/data.xml')
     ->content_like(qr/\Q"Kriegstheater"\E/)
     ->content_like(qr/\QTür'\E/)
@@ -599,7 +599,7 @@
       tmp   => 'script_sigle',
       file  => $file,
       param => "-ti"
-  )->stderr_like(qr!tei2korapxml: .*? text_id=WDD19_ß0000\.10317!)
+  )->stderr_like(qr!tei2korapxml:.*? text_id=WDD19_ß0000\.10317!)
   ->stderr_unlike(qr!Debugging is activated!);
 
   $t->unzip_xml('WDD19/ß0000/10317/header.xml')
@@ -620,7 +620,7 @@
     file => catfile($f, 'data', 'text_with_entities.i5.xml'),
     tmp => 'script_entity_replacement',
     param => '-ti'
-  )->stderr_like(qr!tei2korapxml: .*? text_id=CORP_DOC.00003!);
+  )->stderr_like(qr!tei2korapxml:.*? text_id=CORP_DOC.00003!);
 
   $t->unzip_xml('CORP/DOC/00003/data.xml')
     ->content_like(qr!üüü  Aα≈„▒░▓█╗┐┌╔═─┬╦┴╩╝┘└╚│║┼╬┤╣╠├•ˇčˆ†‡ě€ƒ…‗ıι“„▄‹‘‚—–νœŒωΩ‰φπϖř”ρ›’‘šŠσ□■▪⊂˜™▀ŸžŽ!);

t/test.t

diff --git a/t/test.t b/t/test.t
index a549e1e..1ef8bf9 100644
--- a/t/test.t
+++ b/t/test.t
@@ -63,7 +63,7 @@
     },
     param => '-ti'
   )
-    ->stderr_like(qr!tei2korapxml: .*? text_id=a_b\.1!)
+    ->stderr_like(qr!tei2korapxml:.*? text_id=a_b\.1!)
     ->file_exists('a/b/1/header.xml')
     ->file_exists('a/b/header.xml')
     ->file_exists('a/header.xml')