Welcome to mirror list, hosted at ThFree Co, Russian Federation.

github.com/mono/mono.git - Unnamed repository; edit this file 'description' to name the repository.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarek Safar <marek.safar@gmail.com>2004-06-10 15:12:25 +0400
committerMarek Safar <marek.safar@gmail.com>2004-06-10 15:12:25 +0400
commit583660eccbdff439eeb23685763d7bc289ccdff7 (patch)
tree86f36fa98cda21b8a009efd1b02574429ccd9ca4 /mcs/errors/do-tests.pl
parentc4d8e787674fbd1aa5d48bafde870c65e66d734f (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-xmcs/errors/do-tests.pl4
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 {$_};
}