Commit d7d45de5 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Move Data.List tests to base/tests

parent 1303b938
......@@ -20,4 +20,6 @@ test('data-fixed-show-read', normal, compile_and_run, [''])
test('showDouble', normal, compile_and_run, [''])
test('hash001', normal, compile_and_run, [''])
test('lexNum', normal, compile_and_run, [''])
test('take001', extra_run_opts('1'), compile_and_run, [''])
test('genericNegative001', extra_run_opts('-1'), compile_and_run, [''])
-- Test for
import System.Environment
import Data.List
main = do
(n:_) <- getArgs
print (genericTake (read n) "none taken")
print (genericDrop (read n) "none dropped")
print (genericSplitAt (read n) "none split")
"none dropped"
("","none split")
-- Test for bug #1219, F/B rule for take was too strict
import System.Environment
main = do
(n:_) <- getArgs
print (map (const 'x') (take (read n) (undefined:undefined)))
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