summaryrefslogtreecommitdiff
path: root/tests/misc
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2003-02-19 12:58:07 +0000
committerJim Meyering <jim@meyering.net>2003-02-19 12:58:07 +0000
commit4b26d67f5809d0ef8e994e80d85fc8f9c07dcaee (patch)
tree258eac1498b880a6c06bb2e9bc84c0ec58affcc9 /tests/misc
parentf60bd3f4c8d14e6a83e7669e1419bc373b9e2ce0 (diff)
downloadcoreutils-4b26d67f5809d0ef8e994e80d85fc8f9c07dcaee.tar.xz
Remove file. Rename to tty-eof.
Diffstat (limited to 'tests/misc')
-rwxr-xr-xtests/misc/cat-tty-eof46
1 files changed, 0 insertions, 46 deletions
diff --git a/tests/misc/cat-tty-eof b/tests/misc/cat-tty-eof
deleted file mode 100755
index f2121818d..000000000
--- a/tests/misc/cat-tty-eof
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/bin/sh
-
-: ${PERL=perl}
-
-case "$PERL" in
- *'missing perl')
- echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run thi
-s test"
- exit 77
- ;;
-esac
-
-exec $PERL -w -- - <<\EOF
-
-# Ensure that cat exits upon a single EOF (^D) from a tty.
-use strict;
-
-(my $ME = $0) =~ s|.*/||;
-
-eval { require Expect };
-$@ and (warn "$ME: this script requires Perl's Expect package\n"), exit 77;
-
-{
- my $fail = 0;
- foreach my $cmd (qw(md5sum sha1sum cksum cat))
- {
- my $exp = new Expect;
- $exp->log_user(0);
- $exp->spawn($cmd)
- or (warn "$ME: cannot run `$cmd': $!\n"), $fail=1, next;
- $exp->send("foo\n");
- $exp->send(''); # FIXME: it'd be better not to hard-code ^D here
- $exp->expect (0, '-re', "^foo\\r?\$");
- my $found = $exp->expect (1, '-re', "^.+\$");
- # $found and warn "F: $found: " . $exp->exp_match () . "\n";
- $exp->expect(0, 'eof');
- # defined $exp->exitstatus and warn "E: " . $exp->exitstatus . "\n";
- defined $found && defined $exp->exitstatus && $exp->exitstatus == 0
- or (warn "$ME: $cmd didn't exit after ^D from standard input\n"),
- $fail=1;
- $exp->hard_close();
- }
-
- exit $fail
-}
-EOF