commit a3f74f58905ce3e628b8a0174a2826be321514ec
author Akron <nils@diewald-online.de> Wed Jul 17 17:18:17 2024 +0200
committer Akron <nils@diewald-online.de> Wed Jul 17 17:18:17 2024 +0200
tree d46dcf504e26bc58ca58899a97353ff8a7d36a47
parent 71cf2f5d87a1b37b498ab322650f6964cc499d0e

Support regex definition for virtual corpora

Change-Id: Iecf55d050f02b019c2591f100cd4d45cb90488a7

t/list2vc-def.t

diff --git a/t/list2vc-def.t b/t/list2vc-def.t
index 6a5fcec..37adadb 100644
--- a/t/list2vc-def.t
+++ b/t/list2vc-def.t
@@ -15,14 +15,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');
@@ -47,7 +47,7 @@
 
 # Check JSON
 # Only return extended area
-$json = decode_json(join('', `$script $list3`));
+$json = decode_json(join('', `$script def $list3`));
 
 is($json->{'collection'}->{'@type'}, 'koral:doc', 'type');
 
@@ -64,7 +64,7 @@
 my $list4 = catfile(dirname(__FILE__), 'data', 'list4.def');
 
 # Only contains intended area
-$json = decode_json(join('', `$script $list4`));
+$json = decode_json(join('', `$script def $list4`));
 
 is($json->{'collection'}->{'@type'}, 'koral:docGroup', 'type');
 is($json->{'collection'}->{'comment'}, 'name:"VAS N91"', 'name');