Started meta parsing for Schreibgebrauch
Change-Id: Ib0f58cfaceff691bc237dfee8a5f957fb3b3391c
diff --git a/t/sgbr/sgbr_meta.t b/t/sgbr/sgbr_meta.t
new file mode 100644
index 0000000..8ab6414
--- /dev/null
+++ b/t/sgbr/sgbr_meta.t
@@ -0,0 +1,28 @@
+use strict;
+use warnings;
+use Test::More;
+use File::Basename 'dirname';
+use File::Spec::Functions 'catdir';
+use Data::Dumper;
+use KorAP::Tokenizer;
+use KorAP::Document;
+use utf8;
+
+my $path = catdir(dirname(__FILE__), 'TEST', 'BSP', 1);
+
+ok(my $doc = KorAP::Document->new(
+ path => $path . '/'
+), 'Create Document');
+
+ok($doc->parse, 'Parse document');
+
+like($doc->path, qr!$path/!, 'Path');
+
+# Metdata
+is($doc->text_sigle, 'TEST_BSP.1', 'ID-text');
+is($doc->doc_sigle, 'TEST_BSP', 'ID-doc');
+is($doc->corpus_sigle, 'TEST', 'ID-corpus');
+
+diag 'TODO: Parse meta';
+
+done_testing;