Skip to content
Snippets Groups Projects
Commit 8056af16 authored by Simon Marlow's avatar Simon Marlow
Browse files

[project @ 2000-03-23 09:32:36 by simonmar]

Add a few more test cases.
parent e5af99b1
No related merge requests found
-- $Id: arith003.hs,v 1.4 2000/01/20 13:38:42 simonmar Exp $ -- $Id: arith003.hs,v 1.5 2000/03/23 09:32:36 simonmar Exp $
-- --
-- !!! test Int/Integer arithmetic operations from the Prelude. -- !!! test Int/Integer arithmetic operations from the Prelude.
-- --
...@@ -31,6 +31,8 @@ large_operands :: [ Integer ] ...@@ -31,6 +31,8 @@ large_operands :: [ Integer ]
large_operands = operands ++ large_operands = operands ++
[ fromIntegral minInt - 1, [ fromIntegral minInt - 1,
fromIntegral maxInt + 1, fromIntegral maxInt + 1,
fromIntegral minInt * 2,
fromIntegral maxInt * 2,
fromIntegral minInt ^ 2, fromIntegral minInt ^ 2,
fromIntegral maxInt ^ 2 fromIntegral maxInt ^ 2
] ]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment