Added test for quotes in archives for archiving
Change-Id: I43345681c1f2bc7a2ae09d0b55a434a6d5ec2c8d
diff --git a/t/script/archive.t b/t/script/archive.t
index be959a2..d3853f4 100644
--- a/t/script/archive.t
+++ b/t/script/archive.t
@@ -145,6 +145,25 @@
like($out, qr!no base tokenization!s, $call);
};
+my $input_quotes = catfile($f, '..', 'corpus', 'archive_quotes.zip');
+$call = join(
+ ' ',
+ 'perl', $script,
+ 'archive',
+ '--input' => $input_quotes,
+ '--output' => $output,
+ '-t' => 'Base#tokens_aggr'
+);
+
+# Test without parameters
+stdout_like(
+ sub {
+ system($call);
+ },
+ qr!Done\.!is,
+ $call
+);
+
unlink($output);