diff options
| author | Martin Baulig <martin@novell.com> | 2004-08-27 19:34:13 +0400 |
|---|---|---|
| committer | Martin Baulig <martin@novell.com> | 2004-08-27 19:34:13 +0400 |
| commit | 809c569ea093795610f09283c5cde1ec9c41d58a (patch) | |
| tree | 16b55c6782430dea78a197140246f4d6bb6d4073 /mcs/errors/do-tests.pl | |
| parent | da65db07e4e3d87919e7c401fd609b305d961254 (diff) | |
2004-08-27 Martin Baulig <martin@ximian.com>
* Makefile
(run-gmcs-tests): New target to run the cs*.cs tests with gmcs.
(run-generics-tests): New target to run the gcs*.cs tests.
(run-tests-local): Run run-mcs-tests, run-gmcs-tests and
run-generics-tests.
* do-tests.pl: Don't return an error value if more tests pass than
expected.
* mcs-expect-no-error, mcs-expect-wrong-error: Updated to the
current situation, ie. make all the tests pass.
* gmcs-expect-no-error, gmcs-expect-wrong-error: New files.
* generics-expect-wrong-error: Formerly known as
gmcs-expect-wrong-error.
svn path=/trunk/mcs/; revision=32933
Diffstat (limited to 'mcs/errors/do-tests.pl')
| -rwxr-xr-x | mcs/errors/do-tests.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mcs/errors/do-tests.pl b/mcs/errors/do-tests.pl index 81b01fbb72a..a7b4419ef83 100755 --- a/mcs/errors/do-tests.pl +++ b/mcs/errors/do-tests.pl @@ -86,7 +86,11 @@ foreach (glob ($files)) { my $status; if ($exit_value > 2) { - $status = $RESULT_UNEXPECTED_CRASH; + if (exists $expecting_map {$_} and $expecting_map {$_} == $EXPECTING_WRONG_ERROR) { + $status = $RESULT_EXPECTED_INCORRECT_ERROR; + } else { + $status = $RESULT_UNEXPECTED_CRASH; + } } if ($exit_value == 0) { @@ -138,6 +142,5 @@ print scalar @{@status_items [($RESULT_UNEXPECTED_CORRECT_ERROR - 1)]}, " new exit ( scalar @{@status_items [($RESULT_UNEXPECTED_INCORRECT_ERROR - 1)]} + scalar @{@status_items [($RESULT_UNEXPECTED_NO_ERROR - 1)]} + - scalar @{@status_items [($RESULT_UNEXPECTED_CORRECT_ERROR - 1)]} + scalar @{@status_items [($RESULT_UNEXPECTED_CRASH - 1)]} ) == 0 ? 0 : 1; |