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 27 /* 28 * Verify our ability to read sample files created by Perl module Archive::Tar 29 */ 30 31 DEFINE_TEST(test_compat_perl_archive_tar) 32 { 33 char name[] = "test_compat_perl_archive_tar.tar"; 34 struct archive_entry *ae; 35 struct archive *a; 36 int r; 37 38 assert((a = archive_read_new()) != NULL); 39 assertEqualIntA(a, ARCHIVE_OK, archive_read_support_filter_all(a)); 40 assertEqualIntA(a, ARCHIVE_OK, archive_read_support_format_all(a)); 41 extract_reference_file(name); 42 assertEqualIntA(a, ARCHIVE_OK, archive_read_open_filename(a, name, 43 10240)); 44 45 /* Read first entry. */ 46 assertEqualIntA(a, ARCHIVE_OK, r = archive_read_next_header(a, &ae)); 47 if (r != ARCHIVE_OK) { 48 archive_read_free(a); 49 return; 50 } 51 assertEqualString("file1", archive_entry_pathname(ae)); 52 assertEqualInt(1480603099, archive_entry_mtime(ae)); 53 assertEqualInt(1000, archive_entry_uid(ae)); 54 assertEqualString("john", archive_entry_uname(ae)); 55 assertEqualInt(1000, archive_entry_gid(ae)); 56 assertEqualString("john", archive_entry_gname(ae)); 57 assertEqualInt(0100644, archive_entry_mode(ae)); 58 59 /* Verify that the format detection worked. */ 60 assertEqualInt(archive_filter_code(a, 0), ARCHIVE_FILTER_NONE); 61 assertEqualInt(archive_format(a), ARCHIVE_FORMAT_TAR_USTAR); 62 63 assertEqualInt(ARCHIVE_OK, archive_read_close(a)); 64 assertEqualInt(ARCHIVE_OK, archive_read_free(a)); 65 } 66