Improve robustness on errors
Change-Id: I352f02cd1ac0e59eb84f21ced86d70aea40add1c
diff --git a/t/list2vc-def.t b/t/list2vc-def.t
index 17bece0..d5a0e57 100644
--- a/t/list2vc-def.t
+++ b/t/list2vc-def.t
@@ -98,6 +98,15 @@
is($json->{'collection'}->{'value'}, 'A', 'type');
is($json->{'collection'}->{'comment'}, 'name:"Korpora aus Österreich"', 'type');
+my $corpw = catfile(dirname(__FILE__), 'data', 'corp-w-vas-n91-kor17');
+
+$json = decode_json(encode('utf-8',join('', `$script def $corpw`)));
+
+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');
+
done_testing;
__END__