mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-04-11 14:44:18 +02:00
Make a racy test failure less likely to happen.
* tests/misc/tty-eof: Uncomment a debug "warn". This change happens to make this test far less likely to fail. With that statement commented out, this test would fail about 20% of the time on my desktop. Now, it's gone 100 iterations in a row with no failure.
This commit is contained in:
@@ -1,5 +1,12 @@
|
||||
2008-01-07 Jim Meyering <meyering@redhat.com>
|
||||
|
||||
Make a racy test failure less likely to happen.
|
||||
* tests/misc/tty-eof: Uncomment a debug "warn".
|
||||
This change happens to make this test far less likely to fail.
|
||||
With that statement commented out, this test would fail about
|
||||
20% of the time on my desktop. Now, it's gone 100 iterations
|
||||
in a row with no failure.
|
||||
|
||||
* NEWS: Mention the cp bug fix.
|
||||
|
||||
2008-01-07 Jan Blunck <jblunck@suse.de>
|
||||
|
||||
@@ -2,7 +2,7 @@
|
||||
# -*- perl -*-
|
||||
# Test whether programs exit upon a single EOF from a tty.
|
||||
|
||||
# Copyright (C) 2003, 2006, 2007 Free Software Foundation, Inc.
|
||||
# Copyright (C) 2003, 2006, 2007, 2008 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
|
||||
@@ -92,7 +92,7 @@ $@ and (warn "$ME: this script requires Perl's Expect package >=1.11\n"),
|
||||
$exp->send("\cD"); # This is Control-D. FIXME: what if that's not EOF?
|
||||
$exp->expect (0, '-re', "^a b\\r?\$");
|
||||
my $found = $exp->expect (1, '-re', "^.+\$");
|
||||
# $found and warn "F: $found: " . $exp->exp_match () . "\n";
|
||||
$found and warn "F: $found: " . $exp->exp_match () . "\n";
|
||||
$exp->expect(1, 'eof');
|
||||
# Expect no output from cut, since we gave it no input.
|
||||
defined $found || $cmd =~ /^cut/
|
||||
|
||||
Reference in New Issue
Block a user