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 32 DEFINE_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