diff options
author | Jim Meyering <jim@meyering.net> | 2000-11-26 15:52:13 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-11-26 15:52:13 +0000 |
commit | 2d354c5a2e44902ffc5336199973200c3cf02861 (patch) | |
tree | 7e6077831751f928ca5a04629b7cff486495ecb5 /tests/dd | |
parent | 7f5ed2b58682cd23ba32041e813c2d3224fa3d24 (diff) | |
download | coreutils-2d354c5a2e44902ffc5336199973200c3cf02861.tar.xz |
.
Diffstat (limited to 'tests/dd')
-rwxr-xr-x | tests/dd/skip-seek | 20 |
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}]}, ], ); |