tests/sparse05.at

   1 # Process this file with autom4te to create testsuite. -*- Autotest -*-
   2 #
   3 # Test suite for GNU tar.
   4 # Copyright 2014-2022 Free Software Foundation, Inc.
   5
   6 # This file is part of GNU tar.
   7
   8 # GNU tar is free software; you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 3 of the License, or
  11 # (at your option) any later version.
  12
  13 # GNU tar is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20
  21 AT_SETUP([listing sparse files bigger than 2^33 B])
  22 AT_KEYWORDS([sparse sparse05 largefile])
  23
  24 # Description: If an archive in POSIX.1-2001 archive contained a sparse file
  25 # member whose real size (excluding zero blocks) is bigger than 2^33 bytes,
  26 # tar 1.28 would incorrectly list the real member size.
  27 # Reported by: Pavel Raiskup <praiskup@redhat.com>
  28 # References: <1359119879.15037.4.camel@raiskup>,
  29 #             http://lists.gnu.org/archive/html/bug-tar/2013-01/msg00001.html
  30
  31 AT_TAR_CHECK([
  32 AT_SKIP_LARGE_FILES
  33 AT_DATA([mapfile],
  34 [0 =2560
  35 m4_for([i], 1, 999, 1, [10M =2560
  36 ])])
  37 genfile --sparse --file BIGFILE --block-size 4K - < mapfile || AT_SKIP_TEST
  38 tar -f - -c --sparse --posix BIGFILE | tar tvf - | awk '{ print $3, $(NF) }'
  39 ],
  40 [0],
  41 [20961034240 BIGFILE
  42 ],
  43 [],
  44 [],
  45 [],
  46 [pax])
  47
  48 AT_CLEANUP