Added processing tests for example corpus
Change-Id: Ie160fcae3e222f592cbfa776baefa255635158af
diff --git a/Makefile.PL b/Makefile.PL
index e8f74a2..7f5083d 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -12,7 +12,9 @@
LICENSE => 'freebsd',
BUILD_REQUIRES => {
'Test::More' => 0,
- 'Test::Output' => 0
+ 'Test::Output' => 0,
+ 'Test::XML::Simple' => 0,
+ 'IO::Compress::Unzip' => '2.091',
},
PREREQ_PM => {
'XML::CompactTree::XS' => '0.03',
diff --git a/t/script.t b/t/script.t
index 32e1267..3f9f8e9 100644
--- a/t/script.t
+++ b/t/script.t
@@ -2,10 +2,17 @@
use warnings;
use File::Basename 'dirname';
use File::Spec::Functions qw/catfile/;
+use File::Temp ':POSIX';
+use IO::Uncompress::Unzip qw(unzip $UnzipError);
use Test::More;
use Test::Output;
+# TODO:
+# This is nearly unusable slow and due to namespaces extremely verbose
+# - probably better switch to something based on Test::Mojo
+use Test::XML::Simple;
+
my $f = dirname(__FILE__);
my $script = catfile($f, '..', 'script', 'tei2korapxml');
ok(-f $script, 'Script found');
@@ -16,5 +23,88 @@
'Help'
);
+# Load example file
+my $file = catfile($f, 'data', 'goe_sample.i5.xml');
+my $outzip = tmpnam();
+
+# Generate zip file (unportable!)
+stderr_like(
+ sub { `cat '$file' | perl '$script' > '$outzip'` },
+ qr!tei2korapxml: .*? text_id=GOE_AGA\.00000!,
+ 'Processing'
+);
+
+# Uncompress GOE/header.xml from zip file
+my $zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/header.xml');
+
+ok($zip, 'Zip-File is created');
+
+# Read GOE/header.xml
+my $header_xml = '';
+$header_xml .= $zip->getline while !$zip->eof;
+ok($zip->close, 'Closed');
+
+xml_is($header_xml, '//korpusSigle', 'GOE', 'korpusSigle');
+xml_is($header_xml, '//h.title[@type="main"]', 'Goethes Werke', 'h.title');
+xml_is($header_xml, '//h.author', 'Goethe, Johann Wolfgang von', 'h.author');
+xml_is($header_xml, '//pubDate[@type="year"]', '1982', 'pubDate');
+
+
+# Uncompress GOE/AGA/header.xml from zip file
+$zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/AGA/header.xml');
+
+ok($zip, 'Zip-File is found');
+
+# Read GOE/AGA/header.xml
+$header_xml = '';
+$header_xml .= $zip->getline while !$zip->eof;
+ok($zip->close, 'Closed');
+
+xml_is($header_xml, '//dokumentSigle', 'GOE/AGA', 'dokumentSigle');
+xml_is($header_xml, '//d.title', 'Goethe: Autobiographische Schriften II, (1817-1825, 1832)', 'd.title');
+xml_is($header_xml, '//creatDate', '1820-1822', 'creatDate');
+
+
+# Uncompress GOE/AGA/00000/header.xml from zip file
+$zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/AGA/00000/header.xml');
+
+ok($zip, 'Zip-File is found');
+
+# Read GOE/AGA/00000/header.xml
+$header_xml = '';
+$header_xml .= $zip->getline while !$zip->eof;
+ok($zip->close, 'Closed');
+
+# This is slow - should be improved for more tests
+xml_is($header_xml, '//textSigle', 'GOE/AGA.00000', 'textSigle');
+xml_is($header_xml, '//analytic/h.title[@type="main"]', 'Campagne in Frankreich', 'h.title');
+
+
+# Uncompress GOE/AGA/00000/data.xml from zip file
+$zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/AGA/00000/data.xml');
+
+ok($zip, 'Zip-File is found');
+
+# Read GOE/AGA/00000/data.xml
+my $data_xml = '';
+$data_xml .= $zip->getline while !$zip->eof;
+ok($zip->close, 'Closed');
+
+xml_node($data_xml, '/*[name()="raw_text" and @docid="GOE_AGA.00000"]', 'text id');
+xml_like($data_xml, '/*[local-name()="raw_text"]/*[local-name()="text"]', qr!^Campagne in Frankreich 1792.*?uns allein begl.cke\.$!, 'text content');
+
+# Uncompress GOE/AGA/00000/struct/structure.xml from zip file
+$zip = IO::Uncompress::Unzip->new($outzip, Name => 'GOE/AGA/00000/struct/structure.xml');
+
+ok($zip, 'Zip-File is found');
+
+# Read GOE/AGA/00000/struct/structure.xml
+my $struct_xml = '';
+$struct_xml .= $zip->getline while !$zip->eof;
+ok($zip->close, 'Closed');
+
+xml_is($struct_xml, '//*[name()="span" and @id="s3"]//*[@name="type"]', 'Autobiographie', 'text content');
+
+
done_testing;