Skip to content
GitLab
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
389fdc80
Commit
389fdc80
authored
Feb 08, 2013
by
ian@well-typed.com
Browse files
Follow testsuite changes
parent
29151951
Changes
3
Hide whitespace changes
Inline
Side-by-side
libraries/base/tests/IO/all.T
View file @
389fdc80
# -*- coding: utf-8 -*-
def
expect_fail_if_windows
(
opts
):
def
expect_fail_if_windows
(
name
,
opts
):
f
=
if_os
('
mingw32
',
expect_fail
);
return
f
(
opts
);
return
f
(
normal
,
opts
);
test
('
IOError001
',
compose
(
omit_ways
(['
ghci
']),
set_stdin
('
IOError001.hs
')),
compile_and_run
,
[''])
...
...
libraries/base/tests/Numeric/all.T
View file @
389fdc80
...
...
@@ -7,7 +7,7 @@ test('num006', normal, compile_and_run, [''])
test
('
num007
',
normal
,
compile_and_run
,
[''])
test
('
num008
',
normal
,
compile_and_run
,
[''])
test
('
num009
',
[
skip_if_fast
,
if_
platform
('
i386-apple-darwin
',
expect_broken
(
2370
))
,
when
(
platform
('
i386-apple-darwin
'
)
,
expect_broken
(
2370
))
,
if_os
('
mingw32
',
omit_ways
(['
ghci
']))
],
# We get different results at 1e20 on x86/Windows, so there is
# a special output file for that. I (SDM) don't think these are
...
...
@@ -16,6 +16,6 @@ test('num009', [ skip_if_fast
# I'm skipping that way altogether.
compile_and_run
,
[''])
test
('
num010
',
if_
platform
('
i386-apple-darwin
',
expect_broken_for
(
7043
,
'
ghci
')),
when
(
platform
('
i386-apple-darwin
'
)
,
expect_broken_for
(
7043
,
'
ghci
')),
compile_and_run
,
[''])
libraries/base/tests/all.T
View file @
389fdc80
...
...
@@ -9,11 +9,11 @@ test('assert', exit_code(1), compile_and_run, ['-fno-ignore-asserts'])
test
('
CPUTime001
',
normal
,
compile_and_run
,
[''])
test
('
readLitChar
',
normal
,
compile_and_run
,
[''])
test
('
unicode001
',
if_
platform
('
i386-unknown-openbsd
',
expect_fail
),
when
(
platform
('
i386-unknown-openbsd
'
)
,
expect_fail
),
compile_and_run
,
[''])
test
('
unicode002
',
if_
platform
('
i386-unknown-openbsd
',
expect_fail
),
when
(
platform
('
i386-unknown-openbsd
'
)
,
expect_fail
),
compile_and_run
,
[''])
test
('
data-fixed-show-read
',
normal
,
compile_and_run
,
[''])
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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