summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>1998-09-07 14:07:23 +0000
committerJim Meyering <jim@meyering.net>1998-09-07 14:07:23 +0000
commit1eb146483f545e0c20ac9c7582f3996b7461c3f9 (patch)
tree74ee1f85a788a3a1012f4eda4c4d3cbe2168ae35 /tests
parent1b3c2bbb063cf941c6189f4130ced144be41234a (diff)
downloadcoreutils-1eb146483f545e0c20ac9c7582f3996b7461c3f9.tar.xz
(_create_file): Don't include $$ in temp file name.
(run_tests): Use shorter suffixes for temp file names.
Diffstat (limited to 'tests')
-rw-r--r--tests/Fetish.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 9eaad9b76..038c50b9f 100644
--- a/tests/Fetish.pm
+++ b/tests/Fetish.pm
@@ -12,7 +12,7 @@ use FileHandle;
use File::Compare qw(compare);
@ISA = qw(Exporter);
-($VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
@EXPORT = qw (run_tests);
my @Types = qw (IN OUT ERR EXIT PRE POST);
@@ -73,7 +73,7 @@ sub _create_file ($$$$)
}
else
{
- $file = "$test_name-$$.$Global_count";
+ $file = "$test_name.$Global_count";
++$Global_count;
}
@@ -238,8 +238,8 @@ sub run_tests ($$$$$)
warn "$test_name...\n" if $verbose;
&{$expect->{PRE}} if $expect->{PRE};
my %tmp;
- $tmp{OUT} = "$test_name-out";
- $tmp{ERR} = "$test_name-err";
+ $tmp{OUT} = "$test_name.O";
+ $tmp{ERR} = "$test_name.E";
push @junk_files, $tmp{OUT}, $tmp{ERR};
my @cmd = ($prog, @args, "> $tmp{OUT}", "2> $tmp{ERR}");
my $cmd_str = join ' ', @cmd;