From 2d354c5a2e44902ffc5336199973200c3cf02861 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sun, 26 Nov 2000 15:52:13 +0000 Subject: . --- tests/dd/skip-seek | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) (limited to 'tests/dd') 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}]}, ], ); -- cgit v1.2.3-70-g09d2