CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-11 11:37:48 +02:00
Code Issues Projects Releases Wiki Activity

Make `VERBOSE' be a little more verbose.

Browse Source
This commit is contained in:
Jim Meyering
1998-10-03 16:47:44 +00:00
parent 9ef5ce0581
commit 62ff4ae63c
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/Fetish.pm
+7 -5
View File
@@ -12,7 +12,7 @@ use FileHandle;
use File::Compare qw(compare);
@ISA = qw(Exporter);
($VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
($VERSION = '$Revision: 1.4 $ ') =~ tr/[0-9].//cd;
@EXPORT = qw (run_tests);
my @Types = qw (IN OUT ERR EXIT PRE POST);
@@ -63,9 +63,9 @@ sub _shell_quote ($)
return "'$string'";
}
sub _create_file ($$$$)
sub _create_file ($$$$$)
{
my ($program_name, $test_name, $file_name, $data) = @_;
my ($program_name, $test_name, $file_name, $data, $verbose) = @_;
my $file;
if (defined $file_name)
{
@@ -77,6 +77,8 @@ sub _create_file ($$$$)
++$Global_count;
}
warn "creating file `$file' with contents `$data'\n" if $verbose;
# The test spec gave a string.
# Write it to a temp file and return tempfile name.
my $fh = new FileHandle "> $file";
@@ -194,7 +196,7 @@ sub run_tests ($$$$$)
my $is_junk_file = (! defined $file_name
|| ($type eq 'IN' && defined $contents));
my $file = _create_file ($program_name, $test_name,
$file_name, $contents);
$file_name, $contents, $verbose);
if ($type eq 'IN')
{
push @args, _shell_quote $file;
@@ -227,7 +229,7 @@ sub run_tests ($$$$$)
if (!exists $expect->{$eo})
{
$expect->{$eo} = _create_file ($program_name, $test_name,
undef, '');
undef, '', $verbose);
push @junk_files, $expect->{$eo};
}
}