Commit cd834771 authored by twanvl's avatar twanvl

teseting: print full warning/error messages, windows detection without $^O.

parent 8f604dda
...@@ -14,7 +14,7 @@ use File::Basename; ...@@ -14,7 +14,7 @@ use File::Basename;
# Find magicseteditor executable # Find magicseteditor executable
our $MAGICSETEDITOR; our $MAGICSETEDITOR;
my $is_windows = $^O =~ /win/i; my $is_windows = $^O =~ /win/i || -e "C:";
if ($is_windows) { if ($is_windows) {
$MAGICSETEDITOR = "\"../../build/Release Unicode/mse.exe\""; $MAGICSETEDITOR = "\"../../build/Release Unicode/mse.exe\"";
} else { } else {
...@@ -32,9 +32,17 @@ sub run_script_test { ...@@ -32,9 +32,17 @@ sub run_script_test {
# Check for errors / warnings # Check for errors / warnings
open FILE,"< $outfile"; open FILE,"< $outfile";
my $in_error = 0;
foreach (<FILE>) { foreach (<FILE>) {
if (/^(WARNING|ERROR)/) { if (/^(WARNING|ERROR)/) {
print $_; print $_;
$in_error = 1;
} elsif ($in_error) {
if (/^ /) {
print $_;
} else {
$in_error = 0;
}
} }
} }
close FILE; close FILE;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment