contrib/libarchive/libarchive/test/test_compat_perl_archive_tar.c

   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 }