Rewritten testsuite in autotest

[chaz/tar] / tests / extrac05.at

diff --git a/tests/extrac05.sh b/tests/extrac05.at
old mode 100755 (executable)
new mode 100644 (file)
similarity index 75%
rename from tests/extrac05.sh
rename to tests/extrac05.at
index 26784cf..da66266
--- a/tests/extrac05.sh
+++ b/tests/extrac05.at
@@ -1,17 +1,18 @@
-#! /bin/sh
-# This file is part of GNU tar testsuite.
+# Process this file with autom4te to create testsuite. -*- Autotest -*-
+
+# Test suite for GNU tar.
 # Copyright (C) 2004 Free Software Foundation, Inc.
-#
+
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2, or (at your option)
 # any later version.
-#
+
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
-#
+
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
@@ -26,34 +27,35 @@
 # References: <3.0.6.32.20040809113727.00a30e50@localhost>
 # http://lists.gnu.org/archive/html/bug-tar/2004-08/msg00008.html
 
-. ./preset
-TAR_ARCHIVE_FORMATS="posix"
-. $srcdir/before
+AT_SETUP([extracting selected members from pax])
+AT_KEYWORDS([extract05])
 
+AT_DATA([list], 
+[jeden
+cztery
+])
+
+AT_TAR_CHECK([
 genfile --length 118 > jeden
 genfile --length 223 > dwa
 genfile --length 517 > trzy
-mksparse sparsefile 512 0 ABCD 1M EFGH 2000K IJKL
+genfile --sparse --file sparsefile 0 ABCD 1M EFGH 2000K IJKL
 genfile --length 110 > cztery
 
-tar cf archive jeden dwa trzy cztery
-
-cat > list <<EOF
-jeden
-cztery
-EOF
+tar cf archive jeden dwa trzy cztery || exit 1
 
 mkdir dir
 cd dir
 
-tar xvfT ../archive ../list
+tar xvfT ../archive ../../list || exit 1
 
 cd ..
-
-out="\
-jeden
+],
+[0],
+[jeden
 cztery
-"
-
-. $srcdir/after
+],
+[],[],[],
+[posix])
 
+AT_CLEANUP