Commit b4ebf622 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Merge branch 'master' of http://darcs.haskell.org/testsuite

parents 0ac8c371 f5a5229e
......@@ -348,6 +348,18 @@ def unless_wordsize( ws, f ):
else:
return f
def if_unregisterised( f ):
if config.unregisterised:
return f
else:
return normal
def unless_unregisterised( f ):
if config.unregisterised:
return normal
else:
return f
def if_msys( f ):
if config.msys:
return f
......
{-# LANGUAGE MagicHash #-}
import GHC.Exts
main = print $ map f [1,256,65536,minBound,maxBound]
f (I# x#) =
[ I# (narrow8Int# (narrow16Int# x#))
, I# (narrow8Int# (narrow32Int# x#))
, I# (narrow16Int# (narrow8Int# x#))
, I# (narrow16Int# (narrow32Int# x#))
, I# (narrow32Int# (narrow8Int# x#))
, I# (narrow32Int# (narrow16Int# x#))]
[[1,1,1,1,1,1],[0,0,0,256,0,256],[0,0,0,0,0,0],[0,0,0,0,0,0],[-1,-1,-1,-1,-1,-1]]
......@@ -102,3 +102,5 @@ test('T7319', [ extra_ways(['prof']), only_ways(['prof']), exit_code(1),
extra_run_opts('+RTS -xc') ], compile_and_run, [''])
test('Word2Float32', unless_wordsize(32, skip), compile_and_run, [''])
test('Word2Float64', unless_wordsize(64, skip), compile_and_run, [''])
test('T7361', normal, compile_and_run, [''])
......@@ -530,3 +530,8 @@ T7060: T7060a T7060b T7060c
.PHONY: T7130
T7130:
"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -fflul-laziness
.PHONY: T7563
T7563:
-"$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -C T7563.hs
ghc: cannot compile this file to desired target: T7563.hs
Usage: For basic information, try the `--help' option.
......@@ -362,3 +362,6 @@ test('T7060',
run_command,
['$MAKE -s --no-print-directory T7060'])
test('T7130', normal, compile_fail, ['-fflul-laziness'])
test('T7563', if_unregisterised(skip), run_command,
['$MAKE -s --no-print-directory T7563'])
......@@ -21,7 +21,7 @@ class Add' x y z | x y -> z
instance Succ y z => Add' D1 y z
class (Add' x y z) => Add x y z
class (Add' x y z) => Add x y z | x y -> z
instance (Add' D1 y z) => Add D1 y z
......
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