[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / numeric / should_run / num002.hs

diff --git a/ghc/tests/numeric/should_run/num002.hs b/ghc/tests/numeric/should_run/num002.hs
deleted file mode 100644 (file)
index 31ea76c..0000000
--- a/ghc/tests/numeric/should_run/num002.hs
+++ /dev/null
@@ -1,20 +0,0 @@
--- Testing showInt, lightly.
-
-module Main(main) where
-
-import Numeric
-
-showSignedInt :: Integral a => a -> String
-showSignedInt x = showSigned (showInt) 0 x ""
-
-main = 
-  do
-   putStrLn (showInt (343023920121::Integer) [])
-   putStrLn (showInt (3430239::Int) [])
-   putStrLn (showInt (1212 :: Int) [])
-   putStrLn (showSignedInt (591125662431 `div` (517::Int)))
-   -- showInt just works over naturals, wrap it up inside
-   -- a use of Numeric.showSigned to show negative nums.
-   putStrLn (showSignedInt (-111::Int))
-   putStrLn (showInt (232189458241::Integer) [])
-