Commit 4a669405 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add tests from testsuite/tests/h98

parent 036830b3
# This Makefile runs the tests using GHC's testsuite framework. It
# assumes the package is part of a GHC build tree with the testsuite
# installed in ../../../testsuite.
TOP=../../../testsuite
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
test('readFloat', exit_code(1), compile_and_run, [''])
test('enumDouble', normal, compile_and_run, [''])
test('enumRatio', normal, compile_and_run, [''])
main :: IO ()
main = print (succ (1.0e20 :: Double))
import Data.Ratio
main = print [ 1, 4%(3::Int) .. 1 ]
import Numeric
main :: IO ()
main = putStrLn $ showFloat (read "" :: Float) ""
readFloat: Prelude.read: no parse
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