diff options
author | Marek Safar <marek.safar@gmail.com> | 2004-06-10 15:12:25 +0400 |
---|---|---|
committer | Marek Safar <marek.safar@gmail.com> | 2004-06-10 15:12:25 +0400 |
commit | 583660eccbdff439eeb23685763d7bc289ccdff7 (patch) | |
tree | 86f36fa98cda21b8a009efd1b02574429ccd9ca4 /mcs/errors/do-tests.pl | |
parent | c4d8e787674fbd1aa5d48bafde870c65e66d734f (diff) |
2004-06-10 Marek Safar <marek.safar@seznam.cz>
* do-test.pl: Added simple error logging.
* Makefile (clean): Remove .dll & .log files
svn path=/trunk/mcs/; revision=29181
Diffstat (limited to 'mcs/errors/do-tests.pl')
-rwxr-xr-x | mcs/errors/do-tests.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mcs/errors/do-tests.pl b/mcs/errors/do-tests.pl index 0a13e8889f2..c13c400be7e 100755 --- a/mcs/errors/do-tests.pl +++ b/mcs/errors/do-tests.pl @@ -73,7 +73,8 @@ foreach (glob ($files)) { chomp $options; print "..."; - system "$compile $options $_ --expect-error $error_number > /dev/null"; + my $testlogfile="$_.log"; + system "$compile $options $_ --expect-error $error_number > $testlogfile 2>&1"; exit 1 if $? & 127; @@ -84,6 +85,7 @@ foreach (glob ($files)) { my $status; if ($exit_value == 0) { + system "rm -f $testlogfile"; $status = $RESULT_UNEXPECTED_CORRECT_ERROR if exists $expecting_map {$_}; $status = $RESULT_CORRECT_ERROR unless exists $expecting_map {$_}; } |