Commit af0bf03c authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #6048

parent 22028c1a
module T6048 where
import Control.Applicative
data X = X
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
(Maybe String)
mb :: (String -> Maybe a) -> String -> Maybe (Maybe a)
mb _ "" = Just Nothing
mb _ "-" = Just Nothing
mb p xs = Just <$> p xs
run :: [String] -> Maybe X
run
[ x1
, x2
, x3
, x4
, x5
, x6
, x7
, x8
, x9
] = X
<$> mb pure x1
<*> mb pure x2
<*> mb pure x3
<*> mb pure x4
<*> mb pure x5
<*> mb pure x6
<*> mb pure x7
<*> mb pure x8
<*> mb pure x9
......@@ -251,3 +251,13 @@ test('T5837',
compiler_stats_range_field('bytes allocated', 79110184, 10))
],
compile_fail,['-fcontext-stack=50'])
test('T6048',
[ only_ways(['optasm']),
if_wordsize(32, # sample from x86/Linux
compiler_stats_range_field('bytes allocated', 38000000, 10)),
if_wordsize(64,
compiler_stats_range_field('bytes allocated', 77000000, 10))
],
compile,[''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment