diff options
Diffstat (limited to 'tests/dd/skip-seek')
-rwxr-xr-x | tests/dd/skip-seek | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek new file mode 100755 index 0000000..e6123cf --- /dev/null +++ b/tests/dd/skip-seek @@ -0,0 +1,98 @@ +#!/bin/sh +# -*- perl -*- +# Test dd's skip and seek options. + +# Copyright (C) 2000, 2001, 2003, 2004, 2005 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 of the License, 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., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301, USA. + +: ${PERL=perl} +: ${srcdir=.} + +$PERL -e 1 > /dev/null 2>&1 || { + echo 1>&2 "$0: configure didn't find a usable version of Perl," \ + "so can't run this test" + exit 77 +} + +SCRIPT_NAME=$0 +export SCRIPT_NAME + +exec $PERL -w -I$srcdir/.. -MCoreutils -- - <<\EOF +require 5.003; +use strict; + +(my $program_name = $0) =~ s|.*/||; + +# Turn off localisation of executable's ouput. +@ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3; +my $out = 'out'; +my $script_name = $ENV{SCRIPT_NAME}; + +my @Tests = + ( + [ + 'sk-seek1', + qw (bs=1 skip=1 seek=2 conv=notrunc count=3 status=noxfer of=@AUX@ < ), + {IN=> '0123456789abcdef'}, + {AUX=> 'zyxwvutsrqponmlkji'}, + {OUT=> ''}, + {ERR=> "3+0 records in\n3+0 records out\n"}, + {CMP=> ['zy123utsrqponmlkji', {'@AUX@'=> undef}]}, + ], + [ + 'sk-seek2', + qw (bs=5 skip=1 seek=1 conv=notrunc count=1 status=noxfer of=@AUX@ < ), + {IN=> '0123456789abcdef'}, + {AUX=> 'zyxwvutsrqponmlkji'}, + {OUT=> ''}, + {ERR=> "1+0 records in\n1+0 records out\n"}, + {CMP=> ['zyxwv56789ponmlkji', {'@AUX@'=> undef}]}, + ], + [ + 'sk-seek3', + qw (bs=5 skip=1 seek=1 count=1 status=noxfer of=@AUX@ < ), + {IN=> '0123456789abcdef'}, + {AUX=> 'zyxwvutsrqponmlkji'}, + {OUT=> ''}, + {ERR=> "1+0 records in\n1+0 records out\n"}, + {CMP=> ['zyxwv56789', {'@AUX@'=> undef}]}, + ], + [ + # Before fileutils-4.0.45, the last 10 bytes of output + # were these "\0\0\0\0\0\0\0\0 ". + 'block-sync-1', qw(ibs=10 cbs=10 status=noxfer), 'conv=block,sync', '<', + {IN=> "01234567\nabcdefghijkl\n"}, + {OUT=> "01234567 abcdefghij "}, + {ERR=> "2+1 records in\n0+1 records out\n1 truncated record\n"}, + ], + [ + # Before coreutils-5.93, this would output just "c\n". + 'sk-seek4', qw(bs=1 skip=1 status=noxfer), + {IN_PIPE=> "abc\n"}, + {OUT=> "bc\n"}, + {ERR=> "3+0 records in\n3+0 records out\n"}, + ], + ); + +my $save_temps = $ENV{DEBUG}; +my $verbose = $ENV{VERBOSE}; + +my $prog = $ENV{PROG} || die "$0: \$PROG not specified in environment\n"; +my $fail = run_tests ($program_name, $prog, \@Tests, $save_temps, $verbose); +exit $fail; +EOF |