Commit 5d859987 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for trac #2962

parent 7f53870f
test('char001', normal, compile_and_run, [''])
test('char002', normal, compile_and_run, [''])
test('length001',
# This fails without -O, as it relies on a RULE being applied
expect_fail_for(['normal', 'ghci', 'threaded1']),
compile_and_run,
[''])
test('ratio001', normal, compile_and_run, [''])
test('rand001', normal, compile_and_run, [''])
......
module Main (main) where
import Data.List
main :: IO ()
main = do print (genericLength [1..10000000] :: Int)
print (genericLength [1..10000000] :: Integer)
Supports Markdown
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