Test::Archive::Libarchive - Testing tools for Archive::Libarchive
version 0.02
use Test2::V0;
use Archive::Libarchive;
use Test::Archive::Libarchive;
use Path::Tiny qw( path );
my $w = Archive::Libarchive->new;
la_ok $w, 'add_filter_gzip';
la_ok $w, 'set_format_pax_restricted';
la_ok $w, 'open_filename' => ['foo.tar.gz'];
my $e = Archive::Libarchive::Entry->new;
$e->set_pathname(__FILE__);
$e->set_size(-s __FILE__);
$e->set_filetype('reg');
la_ok $w, 'write_header' => [$e];
is($w->write_data(path(__FILE__)->slurp_raw), -s __FILE__);
la_ok $w, 'close';
done_testing;
Error handling for libarchive and Archive::Libarchive is fairly primitive. Most methods return an int which correspond to ARCHIVE_EOF, ARCHIVE_OK, ARCHIVE_RETRY, ARCHIVE_WARN, ARCHIVE_FAILED or ARCHIVE_FATAL. Some methods will also return the number of actual bytes written on success and one of these codes on failure. It can be tedious doing the necessary checks for each method call in a test, so this module provides tools for testing Archive::Libarchive method calls that follow this pattern.
la_ok $a, $method; la_ok $a, $method, \@arguments; la_ok $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_OK. This indicates a successful method call.
la_eof $a, $method; la_eof $a, $method, \@arguments; la_eof $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_EOF. This is for when you reach the end of the archive or a file.
la_warn $a, $method; la_warn $a, $method, \@arguments; la_warn $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_WARN. This indicates a possible problem, but things are still working.
la_retry $a, $method; la_retry $a, $method, \@arguments; la_retry $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_RETRY. This indicates that a retry might succeed.
la_failed $a, $method; la_failed $a, $method, \@arguments; la_failed $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_RETRY. Operation failed.
la_failed $a, $method; la_failed $a, $method, \@arguments; la_failed $a, $method, \@arguments, $test_name;
Tests that calling the method $method on the archive object $a returns ARCHIVE_RETRY. Operation failed so badly that the archive object is no longer usable.
my $content = la_read_data_ok $a; my $content = la_read_data_ok $a, $test_name;
Tests that the data can be read from the archive. The entire content section will be read and returned on success. If there is a failure during the read then the test will fail.
Not all methods in Archive::Libarchive return a result code like this. Some like write_data return the number of bytes on success.
Graham Ollis <plicease@cpan.org>
This software is copyright (c) 2021 by Graham Ollis.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.