Support regex definition for virtual corpora
Change-Id: Iecf55d050f02b019c2591f100cd4d45cb90488a7
diff --git a/t/list2vc-deflist.t b/t/list2vc-deflist.t
new file mode 100644
index 0000000..41c2176
--- /dev/null
+++ b/t/list2vc-deflist.t
@@ -0,0 +1,28 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use File::Basename;
+use File::Spec::Functions;
+use Data::Dumper;
+
+use Test::Output;
+use Mojo::JSON 'decode_json';
+
+my $script = catfile(dirname(__FILE__), '..', 'script', 'cosmasvc2koralquery');
+my $list1 = catfile(dirname(__FILE__), 'data', 'list-example.ls');
+
+# Check STDOUT
+stdout_like(
+ sub {
+ system($script, 'list', $list1);
+ },
+ qr!Convert!,
+ "check stdout"
+);
+
+# Check JSON
+# my $protocol = join('', `$script list $list1`);
+
+done_testing;
+__END__