Support regex definition for virtual corpora
Change-Id: Iecf55d050f02b019c2591f100cd4d45cb90488a7
diff --git a/t/list2vc.t b/t/list2vc.t
index fd7ea52..1dc3c4c 100644
--- a/t/list2vc.t
+++ b/t/list2vc.t
@@ -4,7 +4,6 @@
use Test::More;
use File::Basename;
use File::Spec::Functions;
-
use Test::Output;
use Mojo::JSON 'decode_json';
@@ -14,14 +13,14 @@
# Check STDOUT
stdout_like(
sub {
- system($script, $list1);
+ system($script, 'def', $list1);
},
qr!^\{\"\@context\".+?\}$!,
"check stdout"
);
# Check JSON
-my $json = decode_json(join('', `$script $list1`));
+my $json = decode_json(join('', `$script def $list1`));
is($json->{'collection'}->{'@type'}, 'koral:docGroup', 'type');
is($json->{'collection'}->{'operation'}, 'operation:or', 'operation');
@@ -46,7 +45,7 @@
# Check STDIN
-my $json2 = decode_json(join('', `cat $list1 | $script -`));
+my $json2 = decode_json(join('', `cat $list1 | $script def -`));
is_deeply($json, $json2);
done_testing;