Support single dash for STDIN
Change-Id: Idaa8ab3632f5787b06193892b583763276ea0fb8
diff --git a/t/script.t b/t/script.t
index bd3f28d..f311db0 100644
--- a/t/script.t
+++ b/t/script.t
@@ -377,7 +377,7 @@
binmode STDERR;
stderr_like(
- sub { `cat '$tplfile' | perl '$script' -ti > '$outzip'` },
+ sub { `cat '$tplfile' | perl '$script' -ti - > '$outzip'` },
qr!tei2korapxml:.*? text_id=$text_sigle_esc!, # see above: print $fh encode_utf8($tpl);
);
};
@@ -632,14 +632,14 @@
# Generate zip file (unportable!)
stderr_like(
- sub { `cat '$file' | perl '$script' --skip-token-inline-annotations=0 > '$outzip'` },
+ sub { `cat '$file' | perl '$script' --skip-token-inline-annotations=0 - > '$outzip'` },
qr!tei2korapxml:.*? text_id=GOE_AGA\.00000!,
'Processing 1'
);
# TODO: there should be a better way to test this
stderr_unlike(
- sub { `cat '$file' | perl '$script' --skip-token-inline-annotations=0 > '$outzip'` },
+ sub { `cat '$file' | perl '$script' --skip-token-inline-annotations=0 - > '$outzip'` },
qr!.*undefined value.*!,
'Processing 2'
);
@@ -748,5 +748,4 @@
};
-
done_testing;