parametrize internal tokenization
Change-Id: I19df6812cb39f5e48ae6aa5fd16951e18aef82a5
diff --git a/t/script.t b/t/script.t
index 2bb00bb..401d76b 100644
--- a/t/script.t
+++ b/t/script.t
@@ -39,7 +39,7 @@
# Generate zip file (unportable!)
stderr_like(
- sub { `cat '$file' | perl '$script' > '$outzip'` },
+ sub { `cat '$file' | perl '$script' -ti > '$outzip'` },
# approaches for working with $fh (also better use OO interface then)
# sub { open STDOUT, '>&', $fh; system("cat '$file' | perl '$script'") },
# sub { open(my $pipe, "cat '$file' | perl '$script'|"); while(<$pipe>){$fh->print($_)}; $fh->close },
@@ -226,7 +226,7 @@
$file = catfile($f, 'data', 'text_with_blanks.i5.xml');
stderr_like(
- sub { `cat '$file' | perl '$script' > '$outzip3'` },
+ sub { `cat '$file' | perl '$script' --ti > '$outzip3'` },
qr!tei2korapxml: .*? text_id=CORP_DOC.00001!,
'Processing'
);