Make Archive::Tar::Builder optional
Change-Id: I557617b0884b0b30d70c54003a3afda8c1a6b0e3
diff --git a/t/corpus/artificial/header.xml b/t/corpus/artificial/header.xml
index 589e75e..10e14f8 100644
--- a/t/corpus/artificial/header.xml
+++ b/t/corpus/artificial/header.xml
@@ -4,7 +4,7 @@
<idsHeader type="text" pattern="text" status="new" version="1.1" TEIform="teiHeader">
<fileDesc>
<titleStmt>
- <textSigle>ART/ABC.0001</textSigle>
+ <textSigle>ART/ABC.00001</textSigle>
<t.title assemblage="regular"/>
</titleStmt>
<publicationStmt>
diff --git a/t/tar_builder.t b/t/tar_builder.t
new file mode 100644
index 0000000..9413440
--- /dev/null
+++ b/t/tar_builder.t
@@ -0,0 +1,87 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use File::Basename 'dirname';
+use File::Spec::Functions qw/catfile catdir/;
+use File::Temp qw/tempdir tempfile/;
+
+use_ok('Archive::Tar');
+
+my ($out_tar, $out_tar_fn) = tempfile();
+
+use_ok('KorAP::XML::TarBuilder');
+
+ok(my $tar = KorAP::XML::TarBuilder->new($out_tar), 'Create new tar');
+
+is(ref $tar, 'KorAP::XML::TarBuilder');
+
+my $file = catfile(dirname(__FILE__), 'corpus','artificial', 'data.xml');
+ok($tar->archive_as($file, 'example1.xml'));
+
+$file = catfile(dirname(__FILE__), 'corpus','artificial', 'header.xml');
+ok($tar->archive_as($file, 'example2.xml'));
+
+ok($tar->finish, 'Finish tar');
+
+use_ok('Archive::Tar');
+
+my $tar_read = Archive::Tar->new($out_tar_fn);
+
+ok($tar_read->contains_file('example1.xml'), 'File exists');
+ok($tar_read->contains_file('example2.xml'), 'File exists');
+
+my $content = $tar_read->get_content('example1.xml');
+like($content, qr!ART_ABC\.00001!, 'Content is correct');
+
+$content = $tar_read->get_content('example2.xml');
+like($content, qr!ART\/ABC\.00001!, 'Content is correct');
+
+
+
+
+# Now test for equivalence to Archive::Tar::Builder
+if (eval("use Archive::Tar::Builder; 1;")) {
+
+ use_ok('Archive::Tar::Builder');
+
+ # Reset
+ ($out_tar, $out_tar_fn) = tempfile();
+
+ $tar = Archive::Tar::Builder->new(
+ ignore_errors => 1
+ );
+
+ # Set handle
+ $tar->set_handle($out_tar);
+
+ is(ref $tar, 'Archive::Tar::Builder');
+
+ $file = catfile(dirname(__FILE__), 'corpus','artificial', 'data.xml');
+ ok($tar->archive_as($file, 'example1.xml'));
+
+ $file = catfile(dirname(__FILE__), 'corpus','artificial', 'header.xml');
+ ok($tar->archive_as($file, 'example2.xml'));
+
+ ok($tar->finish, 'Finish tar');
+
+ use_ok('Archive::Tar');
+
+ $tar_read = Archive::Tar->new($out_tar_fn);
+
+ ok($tar_read->contains_file('example1.xml'), 'File exists');
+ ok($tar_read->contains_file('example2.xml'), 'File exists');
+
+ $content = $tar_read->get_content('example1.xml');
+ like($content, qr!ART_ABC\.00001!, 'Content is correct');
+
+ $content = $tar_read->get_content('example2.xml');
+ like($content, qr!ART\/ABC\.00001!, 'Content is correct');
+}
+else {
+ diag 'Archive::Tar::Builder not installed.';
+};
+
+done_testing;
+