tests/testsuite.at

   1 # Process this file with autom4te to create testsuite. -*- Autotest -*-
   2
   3 # Test suite for GNU tar.
   4 # Copyright 2004-2024 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 # We need a recent Autotest.
  22 m4_version_prereq([2.52g])
  23
  24 m4_define([AT_TAR_CHECK_HOOK])
  25 m4_define([AT_TAR_CHECK],[
  26   AT_XFAIL_IF(test -f $[]XFAILFILE)
  27   m4_foreach([FMT],
  28              [m4_if([$7],[],[v7,oldgnu,ustar,posix,gnu],[$7])],
  29              [AT_CHECK([
  30 mkdir FMT
  31 (cd FMT
  32 TEST_TAR_FORMAT=FMT
  33 export TEST_TAR_FORMAT
  34 TAR_OPTIONS="-H FMT"
  35 export TAR_OPTIONS
  36 rm -rf *
  37 $1)],$2,$3,$4,$5,$6)
  38               AT_TAR_CHECK_HOOK])
  39 ])
  40
  41 m4_define([AT_TAR_WITH_HOOK],[
  42   m4_pushdef([AT_TAR_CHECK_HOOK],[$1])
  43   $2
  44
  45   m4_popdef([AT_TAR_CHECK_HOOK])])
  46
  47 m4_define([TAR_IGNREC_HOOK],[
  48   AT_CHECK([grep -v '^.*tar: Record size = ' stderr; exit 0])
  49 ])
  50
  51 m4_define([RE_CHECK],[
  52 AT_DATA([$1.re],[$2])
  53 awk '{print NR " " $[]0}' $1 > $[]$.1
  54 awk '{print NR " " $[]0}' $1.re | join - $[]$.1 |
  55 while read NUM RE LINE
  56 do
  57   echo "$LINE" | grep -- "$RE" >/dev/null || exit 1
  58 done
  59 ])
  60
  61 m4_define([AT_SKIP_TEST],[exit 77])
  62
  63 m4_define([AT_SKIP_LARGE_FILES],[test "${TARTEST_SKIP_LARGE_FILES:-0}" != 0 && AT_SKIP_TEST])
  64
  65 dnl AT_TARBALL_PREREQ(tarball, md5sum) - Check if test tarball exists
  66 dnl in $TEST_DATA_DIR. If it does not, try to download it from
  67 dnl $TEST_DATA_URL. If download fails, or it the file's md5 sum does not
  68 dnl match second argument, skip the test.
  69
  70 m4_define([AT_TARBALL_PREREQ],[
  71 test -z "$[]TEST_DATA_DIR" && AT_SKIP_TEST
  72 tarball_prereq $1 $2 $[]TEST_DATA_DIR $[]TEST_DATA_URL || AT_SKIP_TEST])
  73
  74 dnl AT_STAR_PREREQ(tarball, md5sum) - Same for star testfiles
  75 m4_define([AT_STAR_PREREQ],[
  76 test -z "$STAR_TESTSCRIPTS" && AT_SKIP_TEST
  77 tarball_prereq $1 $2 $[]STAR_TESTSCRIPTS $[]STAR_DATA_URL || AT_SKIP_TEST
  78 ])
  79
  80 dnl AT_GZIP_PREREQ - Skip test unless gzip (or $1) is available
  81 m4_define([AT_GZIP_PREREQ],[
  82 cat /dev/null | m4_if([$1],[],gzip,[$1]) - > /dev/null 2>&1 || AT_SKIP_TEST
  83 ])
  84
  85 dnl AT_SIGPIPE_PREREQ - Skip test unless SIGPIPE handling is the default
  86 m4_define([AT_SIGPIPE_PREREQ],[
  87 case `(cat "$at_myself" 2>&3 | :) 3>&1 >/dev/null` in #(
  88 ?*) AT_SKIP_TEST;;
  89 esac
  90 ])
  91
  92 dnl AT_SORT_PREREQ - Skip test if sort utility outputs unwanted data on stderr
  93 m4_define([AT_SORT_PREREQ],[
  94 test -z "`sort < /dev/null 2>&1`" || AT_SKIP_TEST
  95 ])
  96
  97 dnl AT_UNPRIVILEGED_PREREQ - Skip test if running at root privileges
  98 m4_define([AT_UNPRIVILEGED_PREREQ],[
  99 echo "test" > $[]$
 100 chmod 0 $[]$
 101 cat $[]$ > /dev/null 2>&1
 102 result=$?
 103 rm -f $[]$
 104 test $result -eq 0 && AT_SKIP_TEST
 105 ])
 106
 107 dnl AT_PRIVILEGED_PREREQ - Skip test if not running at root privileges
 108 m4_define([AT_PRIVILEGED_PREREQ],[
 109 echo "test" > $[]$
 110 chmod 0 $[]$
 111 cat $[]$ > /dev/null 2>&1
 112 result=$?
 113 rm -f $[]$
 114 test $result -eq 0 || AT_SKIP_TEST
 115 ])
 116
 117 dnl AT_SEEKHOLE_PREREQ
 118 m4_define([AT_SEEKHOLE_PREREQ],[
 119 checkseekhole || AT_SKIP_TEST
 120 ])
 121
 122 m4_define([AT_TIMEOUT_PREREQ],[
 123 timeout 100 true
 124 if test $? -ne 0; then
 125     echo >&2 "the 'timeout' utility not found"
 126     AT_SKIP_TEST
 127 fi
 128 ])
 129
 130 m4_define([AT_TAR_MKHIER],[
 131 install-sh -d $1 >/dev/null dnl
 132 m4_if([$2],,,&& genfile --file [$1]/[$2]) || AT_SKIP_TEST])
 133
 134 dnl Skip test when utility does not return expected return value
 135 m4_define([AT_CHECK_UTIL],[
 136   $1 > /dev/null 2>&1
 137   if test "$?" != $2; then
 138     AT_SKIP_TEST
 139   fi
 140 ])
 141
 142 m4_define([AT_XATTRS_UTILS_PREREQ],[
 143   file=$(TMPDIR=. mktemp fiXXXXXX)
 144   AT_CHECK_UTIL(setfattr -n user.test -v test $file,0)
 145   AT_CHECK_UTIL(getfattr $file,0)
 146 ])
 147 m4_define([AT_SELINUX_UTILS_PREREQ],[
 148   file=$(TMPDIR=. mktemp fiXXXXXX)
 149   AT_CHECK_UTIL(restorecon $file, 0)
 150   AT_CHECK_UTIL(chcon -h --user=unconfined_u $file,0)
 151   rm -rf $file
 152 ])
 153 m4_define([AT_ACLS_UTILS_PREREQ],[
 154   file=$(TMPDIR=. mktemp fiXXXXXX)
 155   AT_CHECK_UTIL(setfacl -m u:$UID:rwx $file,0)
 156   AT_CHECK_UTIL(getfacl $file,0)
 157   rm -rf $file
 158 ])
 159 m4_define([AT_CAPABILITIES_UTILS_PREREQ],[
 160   file=$(TMPDIR=. mktemp fiXXXXXX)
 161   AT_CHECK_UTIL(setcap "= cap_chown=ei" $file,0)
 162   AT_CHECK_UTIL(getcap $file,0)
 163   rm -rf $file
 164 ])
 165 m4_define([AT_XATTRS_PREREQ],[
 166   AT_XATTRS_UTILS_PREREQ
 167   file=$(TMPDIR=. mktemp fiXXXXXX)
 168   setfattr -n user.test -v ahoj $file
 169   # check whether tar fails to store xattrs
 170   err=$( tar --xattrs -cf /dev/null $file 2>&1 >/dev/null | wc -l )
 171   if test "$err" != "0"; then
 172     AT_SKIP_TEST
 173   fi
 174 ])
 175 m4_define([AT_SELINUX_PREREQ],[
 176   AT_SELINUX_UTILS_PREREQ
 177   file=$(TMPDIR=. mktemp fiXXXXXX)
 178   err=$( tar --selinux -cf /dev/null $file 2>&1 >/dev/null | wc -l )
 179   if test "$err" != "0"; then
 180     AT_SKIP_TEST
 181   fi
 182 ])
 183 m4_define([AT_ACLS_PREREQ],[
 184   AT_ACLS_UTILS_PREREQ
 185   file=$(TMPDIR=. mktemp fiXXXXXX)
 186   setfacl -m u:$UID:rwx $file
 187   err=$( tar --acls -cf /dev/null $file 2>&1 >/dev/null | wc -l )
 188   if test "$err" != "0"; then
 189     AT_SKIP_TEST
 190   fi
 191 ])
 192
 193 dnl Check whether a newly created file has timestamp consistent with the
 194 dnl local time.  Skip the test if not.
 195 m4_define([AT_CHECK_TIMESTAMP],[ckmtime || AT_SKIP_TEST])
 196
 197 m4_include([sparsemvp.at])
 198
 199 AT_INIT
 200
 201 AT_TESTED([tar])
 202
 203 m4_include([version.at])
 204
 205 m4_include([pipe.at])
 206
 207 AT_BANNER([Options])
 208 m4_include([options.at])
 209 m4_include([options02.at])
 210 m4_include([options03.at])
 211
 212 AT_BANNER([Option compatibility])
 213 m4_include([opcomp01.at])
 214 m4_include([opcomp02.at])
 215 m4_include([opcomp03.at])
 216 m4_include([opcomp04.at])
 217 m4_include([opcomp05.at])
 218 m4_include([opcomp06.at])
 219
 220 AT_BANNER([Checkpoints])
 221 m4_pushdef([CPT_CHECK],
 222 [AT_CHECK([
 223 mkdir t
 224 cd t
 225 for i in 0 1 2 3 4 5 6 7 8 9
 226 do
 227   genfile --length 10240 --file $i
 228 done
 229 TAR_OPTIONS=-Hgnu
 230 export TAR_OPTIONS
 231 $1
 232 ],m4_shift($@))])
 233 m4_include([checkpoint/defaults.at])
 234 m4_include([checkpoint/interval.at])
 235 m4_include([checkpoint/dot.at])
 236 m4_include([checkpoint/dot-compat.at])
 237 m4_include([checkpoint/dot-int.at])
 238 m4_popdef([CPT_CHECK])
 239
 240 AT_BANNER([Compression])
 241 m4_include([compress.m4])
 242 TAR_CHECK_COMPRESS(gzip, gz, tgz)
 243 TAR_CHECK_COMPRESS(bzip2, bz2, tbz2)
 244 TAR_CHECK_COMPRESS(xz, xz, txz)
 245 dnl: omit lzma, because it would fail due to magic number mismatch
 246 TAR_CHECK_COMPRESS(lzip, lz)
 247 TAR_CHECK_COMPRESS(lzop, lzo)
 248 TAR_CHECK_COMPRESS(zstd, zst, tzst)
 249
 250 AT_BANNER([Positional options])
 251 m4_include([positional01.at])
 252 m4_include([positional02.at])
 253 m4_include([positional03.at])
 254 m4_include([add-file.at])
 255
 256 AT_BANNER([The -T option])
 257 m4_include([T-mult.at])
 258 m4_include([T-nest.at])
 259 m4_include([T-rec.at])
 260 m4_include([T-recurse.at])
 261 m4_include([T-cd.at])
 262 m4_include([T-empty.at])
 263 m4_include([T-null.at])
 264 m4_include([T-null2.at])
 265 m4_include([T-zfile.at])
 266 m4_include([T-nonl.at])
 267 m4_include([T-dir00.at])
 268 m4_include([T-dir01.at])
 269
 270 AT_BANNER([Various options])
 271 m4_include([indexfile.at])
 272 m4_include([verbose.at])
 273 m4_include([gzip.at])
 274 m4_include([recurse.at])
 275 m4_include([recurs02.at])
 276 m4_include([shortrec.at])
 277 m4_include([numeric.at])
 278
 279 AT_BANNER([The --same-order option])
 280 m4_include([same-order01.at])
 281 m4_include([same-order02.at])
 282
 283 AT_BANNER([Append])
 284 m4_include([append.at])
 285 m4_include([append01.at])
 286 m4_include([append02.at])
 287 m4_include([append03.at])
 288 m4_include([append04.at])
 289 m4_include([append05.at])
 290
 291 AT_BANNER([Transforms])
 292 m4_include([xform-h.at])
 293 m4_include([xform01.at])
 294 m4_include([xform02.at])
 295 m4_include([xform03.at])
 296 m4_include([xform04.at])
 297
 298 AT_BANNER([Exclude])
 299 m4_include([exclude.at])
 300 m4_include([exclude01.at])
 301 m4_include([exclude02.at])
 302 m4_include([exclude03.at])
 303 m4_include([exclude04.at])
 304 m4_include([exclude05.at])
 305 m4_include([exclude06.at])
 306 m4_include([exclude07.at])
 307 m4_include([exclude08.at])
 308 m4_include([exclude09.at])
 309 m4_include([exclude10.at])
 310 m4_include([exclude11.at])
 311 m4_include([exclude12.at])
 312 m4_include([exclude13.at])
 313 m4_include([exclude14.at])
 314 m4_include([exclude15.at])
 315 m4_include([exclude16.at])
 316 m4_include([exclude17.at])
 317 m4_include([exclude18.at])
 318 m4_include([exclude19.at])
 319 m4_include([exclude20.at])
 320
 321 AT_BANNER([Deletions])
 322 m4_include([delete01.at])
 323 m4_include([delete02.at])
 324 m4_include([delete03.at])
 325 m4_include([delete04.at])
 326 m4_include([delete05.at])
 327 m4_include([delete06.at])
 328
 329 AT_BANNER([Extracting])
 330 m4_include([extrac01.at])
 331 m4_include([extrac02.at])
 332 m4_include([extrac03.at])
 333 m4_include([extrac04.at])
 334 m4_include([extrac05.at])
 335 m4_include([extrac06.at])
 336 m4_include([extrac07.at])
 337 m4_include([extrac08.at])
 338 m4_include([extrac09.at])
 339 m4_include([extrac10.at])
 340 m4_include([extrac11.at])
 341 m4_include([extrac12.at])
 342 m4_include([extrac13.at])
 343 m4_include([extrac14.at])
 344 m4_include([extrac15.at])
 345 m4_include([extrac16.at])
 346 m4_include([extrac17.at])
 347 m4_include([extrac18.at])
 348 m4_include([extrac19.at])
 349 m4_include([extrac20.at])
 350 m4_include([extrac21.at])
 351 m4_include([extrac22.at])
 352 m4_include([extrac23.at])
 353 m4_include([extrac24.at])
 354 m4_include([extrac25.at])
 355 m4_include([extrac26.at])
 356
 357 m4_include([backup01.at])
 358
 359 AT_BANNER([Comparing])
 360 m4_include([difflink.at])
 361
 362 AT_BANNER([Volume label operations])
 363 m4_include([label01.at])
 364 m4_include([label02.at])
 365 m4_include([label03.at])
 366 m4_include([label04.at])
 367 m4_include([label05.at])
 368
 369 AT_BANNER([Incremental archives])
 370 m4_include([incremental.at])
 371 m4_include([incr01.at])
 372 m4_include([incr02.at])
 373 m4_include([listed01.at])
 374 m4_include([listed02.at])
 375 m4_include([listed03.at])
 376 m4_include([listed04.at])
 377 m4_include([listed05.at])
 378 m4_include([incr03.at])
 379 m4_include([incr04.at])
 380 m4_include([incr05.at])
 381 m4_include([incr06.at])
 382 m4_include([incr07.at])
 383 m4_include([incr08.at])
 384 m4_include([incr09.at])
 385 m4_include([incr10.at])
 386 m4_include([incr11.at])
 387
 388 AT_BANNER([Files removed while archiving])
 389 m4_include([filerem01.at])
 390 m4_include([filerem02.at])
 391
 392 AT_BANNER([Directories removed while archiving])
 393 m4_include([dirrem01.at])
 394 m4_include([dirrem02.at])
 395
 396 AT_BANNER([Renames])
 397 m4_include([rename01.at])
 398 m4_include([rename02.at])
 399 m4_include([rename03.at])
 400 m4_include([rename04.at])
 401 m4_include([rename05.at])
 402 m4_include([rename06.at])
 403 m4_include([chtype.at])
 404
 405 AT_BANNER([Ignore failing reads])
 406 m4_include([ignfail.at])
 407
 408 AT_BANNER([Link handling])
 409 m4_include([link01.at])
 410 m4_include([link02.at])
 411 m4_include([link03.at])
 412 m4_include([link04.at])
 413
 414 AT_BANNER([Specific archive formats])
 415 m4_include([longv7.at])
 416 m4_include([long01.at])
 417 m4_include([lustar01.at])
 418 m4_include([lustar02.at])
 419 m4_include([lustar03.at])
 420 m4_include([old.at])
 421
 422 m4_include([time01.at])
 423 m4_include([time02.at])
 424
 425 AT_BANNER([Multivolume archives])
 426 m4_include([multiv01.at])
 427 m4_include([multiv02.at])
 428 m4_include([multiv03.at])
 429 m4_include([multiv04.at])
 430 m4_include([multiv05.at])
 431 m4_include([multiv06.at])
 432 m4_include([multiv07.at])
 433 m4_include([multiv08.at])
 434 m4_include([multiv09.at])
 435 m4_include([multiv10.at])
 436
 437 AT_BANNER([Owner and Groups])
 438 m4_include([owner.at])
 439 m4_include([map.at])
 440
 441 AT_BANNER([Sparse files])
 442 m4_include([sparse01.at])
 443 m4_include([sparse02.at])
 444 m4_include([sparse03.at])
 445 m4_include([sparse04.at])
 446 m4_include([sparse05.at])
 447 m4_include([sparse06.at])
 448 m4_include([sparse07.at])
 449 m4_include([sparsemv.at])
 450 m4_include([spmvp00.at])
 451 m4_include([spmvp01.at])
 452 m4_include([spmvp10.at])
 453 m4_include([sptrcreat.at])
 454 m4_include([sptrdiff00.at])
 455 m4_include([sptrdiff01.at])
 456
 457 AT_BANNER([Updates])
 458 m4_include([update.at])
 459 m4_include([update01.at])
 460 m4_include([update02.at])
 461 m4_include([update03.at])
 462 m4_include([update04.at])
 463
 464 AT_BANNER([Verifying the archive])
 465 m4_include([verify.at])
 466
 467 AT_BANNER([Volume operations])
 468 m4_include([volume.at])
 469 m4_include([volsize.at])
 470
 471 AT_BANNER()
 472 m4_include([comprec.at])
 473 m4_include([shortfile.at])
 474 m4_include([shortupd.at])
 475
 476 m4_include([truncate.at])
 477 m4_include([grow.at])
 478 m4_include([sigpipe.at])
 479 m4_include([comperr.at])
 480
 481 AT_BANNER([Removing files after archiving])
 482 m4_include([remfiles01.at])
 483 m4_include([remfiles02.at])
 484 m4_include([remfiles03.at])
 485 m4_include([remfiles04a.at])
 486 m4_include([remfiles04b.at])
 487 m4_include([remfiles04c.at])
 488 m4_include([remfiles05a.at])
 489 m4_include([remfiles05b.at])
 490 m4_include([remfiles05c.at])
 491 m4_include([remfiles06a.at])
 492 m4_include([remfiles06b.at])
 493 m4_include([remfiles06c.at])
 494 m4_include([remfiles07a.at])
 495 m4_include([remfiles07b.at])
 496 m4_include([remfiles07c.at])
 497 m4_include([remfiles08a.at])
 498 m4_include([remfiles08b.at])
 499 m4_include([remfiles08c.at])
 500 m4_include([remfiles09a.at])
 501 m4_include([remfiles09b.at])
 502 m4_include([remfiles09c.at])
 503 m4_include([remfiles10.at])
 504
 505 AT_BANNER([Extended attributes])
 506 m4_include([xattr01.at])
 507 m4_include([xattr02.at])
 508 m4_include([xattr03.at])
 509 m4_include([xattr04.at])
 510 m4_include([xattr05.at])
 511 m4_include([xattr06.at])
 512 m4_include([xattr07.at])
 513 m4_include([xattr08.at])
 514
 515 m4_include([acls01.at])
 516 m4_include([acls02.at])
 517 m4_include([acls03.at])
 518
 519 m4_include([selnx01.at])
 520 m4_include([selacl01.at])
 521
 522 m4_include([capabs_raw01.at])
 523
 524 AT_BANNER([One top level])
 525 m4_include([onetop01.at])
 526 m4_include([onetop02.at])
 527 m4_include([onetop03.at])
 528 m4_include([onetop04.at])
 529 m4_include([onetop05.at])
 530
 531 AT_BANNER([Star tests])
 532 m4_include([star/gtarfail.at])
 533 m4_include([star/gtarfail2.at])
 534
 535 m4_include([star/multi-fail.at])
 536
 537 m4_include([star/ustar-big-2g.at])
 538 m4_include([star/ustar-big-8g.at])
 539
 540 m4_include([star/pax-big-10g.at])