summaryrefslogtreecommitdiff
path: root/tests/dd
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2000-11-26 15:52:13 +0000
committerJim Meyering <jim@meyering.net>2000-11-26 15:52:13 +0000
commit2d354c5a2e44902ffc5336199973200c3cf02861 (patch)
tree7e6077831751f928ca5a04629b7cff486495ecb5 /tests/dd
parent7f5ed2b58682cd23ba32041e813c2d3224fa3d24 (diff)
downloadcoreutils-2d354c5a2e44902ffc5336199973200c3cf02861.tar.xz
.
Diffstat (limited to 'tests/dd')
-rwxr-xr-xtests/dd/skip-seek20
1 files changed, 7 insertions, 13 deletions
diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek
index 7ff3f5898..72bae548a 100755
--- a/tests/dd/skip-seek
+++ b/tests/dd/skip-seek
@@ -26,19 +26,13 @@ my $script_name = $ENV{SCRIPT_NAME};
my @Tests =
(
- ['1', (qw (bs=1 skip=1 seek=2 conv=notrunc count=3), "of=$out", '<'),
- {PRE => sub {my $ignore=`echo zyxwvutsrqponmlkji > $out`}},
- {IN=> '0123456789abcdef'},
- {OUT=> ''},
- {ERR=> "3+0 records in\n3+0 records out\n"},
- {POST=> sub { my $expected = "exp-$$";
- my $t=`echo zy123utsrqponmlkji > $expected`;
- compare_files ($script_name, undef, undef, $out, $expected)
- and die "the file `$out' does not have the expected"
- . " contents\n (should be same as `$expected')\n";
- unlink $out;
- unlink $expected;
- }},
+ [
+ '1', qw (bs=1 skip=1 seek=2 conv=notrunc count=3 of=@AUX@ < ),
+ {IN=> '0123456789abcdef'},
+ {AUX=> 'zyxwvutsrqponmlkji'},
+ {OUT=> ''},
+ {ERR=> "3+0 records in\n3+0 records out\n"},
+ {CMP=> ['zy123utsrqponmlkji', {'@AUX@'=> undef}]},
],
);