Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
abf55148
Commit
abf55148
authored
Apr 03, 2009
by
Ian Lynagh
Browse files
Rewrite the result testing logic in simple_run
parent
b703efce
Changes
1
Show whitespace changes
Inline
Side-by-side
testsuite/driver/testlib.py
View file @
abf55148
...
...
@@ -807,15 +807,18 @@ def simple_run( name, way, prog, args ):
check_hp
=
my_rts_flags
.
find
(
"-h"
)
!=
-
1
check_prof
=
my_rts_flags
.
find
(
"-p"
)
!=
-
1
if
opts
.
ignore_output
or
\
(
check_stderr_ok
(
name
)
and
check_stdout_ok
(
name
)
and
(
not
check_
hp
or
(
exit_code
>
127
and
exit_code
!=
251
)
or
check_hp
_ok
(
name
)
)
and
(
not
check_prof
or
check_prof_ok
(
name
))):
if
not
opts
.
ignore_output
:
if
not
check_stderr_ok
(
name
)
:
return
'fail'
if
not
check_
stdout
_ok
(
name
)
:
return
'fail'
# exit_code > 127 probably indicates a crash, so don't try to run hp2ps.
return
'pass'
else
:
if
check_hp
and
(
exit_code
<=
127
or
exit_code
==
251
)
and
not
check_hp_ok
(
name
):
return
'fail'
if
check_prof
and
not
check_prof_ok
(
name
):
return
'fail'
return
'pass'
def
rts_flags
(
way
):
if
(
way
==
''
):
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment