Fix for Schreibgebrauch VC support
Change-Id: Ief7dd69a78e112e67d0daace8edd185a1b477766
diff --git a/t/sgbr/sgbr_meta.t b/t/sgbr/sgbr_meta.t
index ed64fa2..a1e2b8e 100644
--- a/t/sgbr/sgbr_meta.t
+++ b/t/sgbr/sgbr_meta.t
@@ -27,8 +27,11 @@
#is($doc->sub_title, 'Beispiel Text Untertitel', 'title');
#is($doc->pub_date, '20010402', 'Publication date');
#is($doc->pub_place, 'Mannheim', 'Publication place');
+
is($doc->author, 'TEST.BSP.Autoren.1', 'Author');
+
is($doc->store('sgbrAuthorAgeClass'), 'X', 'AgeClass');
+
is($doc->store('sgbrAuthorSex'), 'M', 'Sex');
is($doc->store('sgbrKodex'), 'M', 'Kodex');
@@ -63,6 +66,9 @@
is($hash->{title}, 'Sommerüberraschung', 'Corpus title');
is($hash->{store}->{sgbrAuthorSex}, 'M', 'store');
+# Sgbr specific keywords
+is($doc->keywords_string, 'sgbrAuthorAgeClass:X sgbrAuthorSex:M sgbrKodex:M');
+
done_testing;