--cfg arg : add parameter --cfg=arg to each command line
--log arg : add parameter --log=arg to each command line
--enable-coverage : ignore output lines starting with "profiling:"
+ --enable-sanitizers : ignore output lines starting with containing warnings
=head1 TEST SUITE FILE SYTAX
}
my $enable_coverage = 0;
+my $enable_sanitizers = 0;
my $diff_tool = 0;
my $diff_tool_tmp_fh = 0;
my $diff_tool_tmp_filename = 0;
'cfg=s' => sub { $opts{'cfg'} .= " --cfg=$_[1]" },
'log=s' => sub { $opts{'log'} .= " --log=$_[1]" },
'enable-coverage+' => \$enable_coverage,
+ 'enable-sanitizers+' => \$enable_sanitizers,
);
$tesh_file = pop @ARGV;
$tesh_name =~ s|^.*?/([^/]*)$|$1|;
print "Enable coverage\n" if ($enable_coverage);
+print "Enable sanitizers\n" if ($enable_sanitizers);
if ($diff_tool) {
use File::Temp qw/ tempfile /;
}
if ( $tesh_file =~ m/(.*)\.tesh/ ) {
- print "Test suite `$tesh_file'\n";
+ my $fullname = $tesh_file;
+ if (not ($fullname =~ m|^/|)) { # not absolute path
+ my $dir = qx,pwd,;
+ chomp($dir);
+ $fullname = "$dir/$fullname"
+ }
+ print "Test suite '$tesh_file'\n";
} else {
$tesh_name = "(stdin)";
print "Test suite from stdin\n";
chomp $got;
print $diff_tool_tmp_fh "> $got\n" if ($diff_tool);
- unless ( $enable_coverage and $got =~ /^profiling:/ ) {
+ unless (( $enable_coverage and $got =~ /^profiling:/ ) or
+ ( $enable_sanitizers and $got =~ m/WARNING: ASan doesn't fully support/) or
+ ( $got =~ m/Unable to clean temporary file C:/)) # Crude hack to ignore cruft from Java on Windows
+ {
push @got, $got;
- }
+ }
}
# How did the child process terminate?