commit 58c6c72ba6585bf2fce748f97c470540eefe6af0
author Akron <nils@diewald-online.de> Fri Feb 28 10:48:26 2025 +0100
committer Akron <nils@diewald-online.de> Fri Feb 28 12:34:36 2025 +0100
tree 897b166385524f6e27b4f002d604b3f5d27ea187
parent fc1c9ea00dd741a6776d3c3dea603f87f177f686

Change comment to _comment

Change-Id: I82d8ef28e01d99717df63ab6fa8c4ad9d98aa095

t/list2vc-def.t

diff --git a/t/list2vc-def.t b/t/list2vc-def.t
index 0a707d1..e9e1cc1 100644
--- a/t/list2vc-def.t
+++ b/t/list2vc-def.t
@@ -54,7 +54,7 @@
 is($json->{'collection'}->{'@type'}, 'koral:doc', 'type');
 
 
-is($json->{'collection'}->{'comment'}, 'name:"VAS-N91 (Stand \"2013\", korr. 2017)"', 'type');
+is($json->{'collection'}->{'_comment'}, 'name:"VAS-N91 (Stand \"2013\", korr. 2017)"', 'type');
 
 $op1 = $json->{'collection'};
 is($op1->{'@type'}, 'koral:doc', 'type');
@@ -69,8 +69,8 @@
 $json = decode_json(join('', `$script def $list4`));
 
 is($json->{'collection'}->{'@type'}, 'koral:docGroup', 'type');
-is($json->{'collection'}->{'comment'}, 'name:"VAS N91"', 'name');
-like($json->{'collection'}->{'comment'}, qr!^name:"VAS N91"!, 'name');
+is($json->{'collection'}->{'_comment'}, 'name:"VAS N91"', 'name');
+like($json->{'collection'}->{'_comment'}, qr!^name:"VAS N91"!, 'name');
 
 
 my $bz = $json->{'collection'}->{operands}->[0]->{operands}->[0];
@@ -96,7 +96,7 @@
 is($json->{'collection'}->{'@type'}, 'koral:doc', 'type');
 is($json->{'collection'}->{'key'}, 'pubPlaceKey', 'type');
 is($json->{'collection'}->{'value'}, 'AT', 'type');
-is($json->{'collection'}->{'comment'}, 'name:"Korpora aus Österreich"', 'type');
+is($json->{'collection'}->{'_comment'}, 'name:"Korpora aus Österreich"', 'type');
 
 my $corpw = catfile(dirname(__FILE__), 'data', 'corp-w-vas-n91-kor17');
 
@@ -105,7 +105,7 @@
 is($json->{'collection'}->{'@type'}, 'koral:doc', 'type');
 is($json->{'collection'}->{'key'}, 'textSigle', 'type');
 is($json->{'collection'}->{'value'}->[0], 'A00/APR/23232', 'type');
-is($json->{'collection'}->{'comment'}, 'name:"VAS-N91 (Stand 2013, korr. 2017)"', 'type');
+is($json->{'collection'}->{'_comment'}, 'name:"VAS-N91 (Stand 2013, korr. 2017)"', 'type');
 
 my $corpw2 = catfile(dirname(__FILE__), 'data', 'corp-w-cultwar.beziehung.def');
 $json = decode_json(encode('utf-8',join('', `$script def $corpw2`)));
@@ -113,7 +113,7 @@
 is($json->{'collection'}->{'@type'}, 'koral:doc', 'type');
 is($json->{'collection'}->{'key'}, 'docSigle', 'type');
 is($json->{'collection'}->{'value'}->[0], 'FSP/SCP', 'type');
-is($json->{'collection'}->{'comment'}, 'name:"Culture War: Beziehung"', 'type');
+is($json->{'collection'}->{'_comment'}, 'name:"Culture War: Beziehung"', 'type');
 
 
 

t/regex2vc.t

diff --git a/t/regex2vc.t b/t/regex2vc.t
index fbdb721..a7df7ed 100644
--- a/t/regex2vc.t
+++ b/t/regex2vc.t
@@ -15,7 +15,7 @@
 is($doc->{key},'corpusSigle');
 is($doc->{value},'x');
 is($doc->{type},'type:string');
-is($doc->{comment},'name:"Name",desc:"Beschreibung"');
+is($doc->{_comment},'name:"Name",desc:"Beschreibung"');
 
 $doc = _collection("x/");
 is($doc->{key},'corpusSigle');
@@ -26,7 +26,7 @@
 is($doc->{key},'corpusSigle');
 is($doc->{value},'x[0-3]');
 is($doc->{type},'type:regex');
-is($doc->{comment},'name:"Na\"me",desc:"Besch\"re\'ibung"');
+is($doc->{_comment},'name:"Na\"me",desc:"Besch\"re\'ibung"');
 
 $doc = _collection('x[0-3]/');
 is($doc->{key},'corpusSigle');