From: simonmar <unknown>
Date: Thu, 23 Mar 2000 09:32:36 +0000 (+0000)
Subject: [project @ 2000-03-23 09:32:36 by simonmar]
X-Git-Tag: Approximately_9120_patches~4924
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8056af1630ae8f6556103db3b18690f5464a455c;p=ghc-hetmet.git

[project @ 2000-03-23 09:32:36 by simonmar]
Add a few more test cases.
---

diff --git a/ghc/tests/numeric/should_run/arith003.hs b/ghc/tests/numeric/should_run/arith003.hs
index c2162ba..ff7e833 100644
--- a/ghc/tests/numeric/should_run/arith003.hs
+++ b/ghc/tests/numeric/should_run/arith003.hs
@@ -1,4 +1,4 @@
--- $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.
 --
@@ -31,6 +31,8 @@ large_operands :: [ Integer ]
 large_operands = operands ++ 
    [ fromIntegral minInt - 1,
      fromIntegral maxInt + 1,
+     fromIntegral minInt * 2,
+     fromIntegral maxInt * 2,
      fromIntegral minInt ^ 2, 
      fromIntegral maxInt ^ 2
    ]