Fix cache command line parameter handling
Change-Id: I72fcaa6f2d25f79282b141daf50b1d3a4caf0188
diff --git a/t/script/single.t b/t/script/single.t
index 4772c1c..54ae7a1 100644
--- a/t/script/single.t
+++ b/t/script/single.t
@@ -25,7 +25,6 @@
my $output = tmpnam();
my $cache = tmpnam();
-
ok(!-f $output, 'Output does not exist');
my $call = join(
@@ -34,6 +33,7 @@
'--input' => $input,
'--output' => $output,
'--cache' => $cache,
+ '--no-cache-delete',
'-k' => 0.03,
'-t' => 'OpenNLP#Tokens',
'-l' => 'INFO'
@@ -48,6 +48,7 @@
$call
);
+ok(-f $cache, 'Cache does exist');
ok(-f $output, 'Output does exist');
ok((my $file = Mojo::File->new($output)->slurp), 'Slurp data');
ok((my $json = decode_json $file), 'decode json');
@@ -61,6 +62,7 @@
# Delete output
unlink $output;
+unlink $cache;
ok(!-f $output, 'Output does not exist');
$call .= ' -z';