Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
0bb02873
Commit
0bb02873
authored
Sep 29, 2020
by
Sylvain Henry
Committed by
Marge Bot
Oct 01, 2020
Browse files
Add test for T18574
parent
5c32655f
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/perf/should_run/T18574.hs
0 → 100644
View file @
0bb02873
import
Data.Maybe
main
::
IO
()
main
=
print
$
even
$
sum
$
catMaybes
$
map
xx
([
1
..
100000000
]
::
[
Int
])
where
xx
n
|
even
n
=
Just
n
|
otherwise
=
Nothing
testsuite/tests/perf/should_run/T18574.stdout
0 → 100644
View file @
0bb02873
True
testsuite/tests/perf/should_run/all.T
View file @
0bb02873
...
...
@@ -379,3 +379,9 @@ test('UniqLoop',
],
compile_and_run
,
['
-O -package ghc
'])
test
('
T18574
',
[
collect_stats
('
bytes allocated
',
5
),
only_ways
(['
normal
'])],
compile_and_run
,
['
-O
'])
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