test_compat_perl_archive_tar.c revision 311041 
1/*-
2 * Copyright (c) 2016 Martin Matuska
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR(S) ``AS IS'' AND ANY EXPRESS OR
15 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
16 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
17 * IN NO EVENT SHALL THE AUTHOR(S) BE LIABLE FOR ANY DIRECT, INDIRECT,
18 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
19 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
20 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
21 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
22 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
23 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24 */
25#include "test.h"
26__FBSDID("$FreeBSD");
27
28/*
29 * Verify our ability to read sample files created by Perl module Archive::Tar
30 */
31
32DEFINE_TEST(test_compat_perl_archive_tar)
33{
34	char name[] = "test_compat_perl_archive_tar.tar";
35	struct archive_entry *ae;
36	struct archive *a;
37	int r;
38
39	assert((a = archive_read_new()) != NULL);
40	assertEqualIntA(a, ARCHIVE_OK, archive_read_support_filter_all(a));
41	assertEqualIntA(a, ARCHIVE_OK, archive_read_support_format_all(a));
42	extract_reference_file(name);
43	assertEqualIntA(a, ARCHIVE_OK, archive_read_open_filename(a, name,
44	    10240));
45
46	/* Read first entry. */
47	assertEqualIntA(a, ARCHIVE_OK, r = archive_read_next_header(a, &ae));
48	if (r != ARCHIVE_OK) {
49		archive_read_free(a);
50		return;
51	}
52	assertEqualString("file1", archive_entry_pathname(ae));
53	assertEqualInt(1480603099, archive_entry_mtime(ae));
54	assertEqualInt(1000, archive_entry_uid(ae));
55	assertEqualString("john", archive_entry_uname(ae));
56	assertEqualInt(1000, archive_entry_gid(ae));
57	assertEqualString("john", archive_entry_gname(ae));
58	assertEqualInt(0100644, archive_entry_mode(ae));
59
60	/* Verify that the format detection worked. */
61	assertEqualInt(archive_filter_code(a, 0), ARCHIVE_FILTER_NONE);
62	assertEqualInt(archive_format(a), ARCHIVE_FORMAT_TAR_USTAR);
63
64	assertEqualInt(ARCHIVE_OK, archive_read_close(a));
65	assertEqualInt(ARCHIVE_OK, archive_read_free(a));
66}
67