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

*** empty log message ***

Browse Source
This commit is contained in:
Jim Meyering
1998-08-15 23:43:37 +00:00
parent 2db8ef7c55
commit b07a5a108e
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
tests/ls-2/Fetish.pm
View File

@@ -1,4 +1,4 @@
package T;
package Fetish;
require 5.003;
use strict;
@@ -8,7 +8,7 @@ use FileHandle;
use File::Compare qw(compare);
@ISA = qw(Exporter);
($VERSION = '$Revision: 1.1 $ ') =~ tr/[0-9].//cd;
($VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
@EXPORT = qw (run_tests);
my @Types = qw (IN OUT ERR EXIT);
@@ -45,6 +45,13 @@ my %Zero_one_type = map {$_ => 1} qw (OUT ERR EXIT);
my $Global_count = 1;
sub _shell_quote ($)
{
my ($string) = @_;
$string =~ s/\'/\'\\\'\'/g;
return "'$string'";
}
sub _create_file ($$$$$)
{
my ($program_name, $test_name, $type, $file_name, $data) = @_;
@@ -169,7 +176,7 @@ sub run_tests ($$$$$)
$file_name, $contents);
if ($type eq 'IN')
{
push @args, $file
push @args, _shell_quote $file;
}
else
{