diff options
Diffstat (limited to 'testsuite/tests/lib/Numeric/num002.hs')
| -rw-r--r-- | testsuite/tests/lib/Numeric/num002.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Numeric/num002.hs b/testsuite/tests/lib/Numeric/num002.hs new file mode 100644 index 0000000000..31ea76ced9 --- /dev/null +++ b/testsuite/tests/lib/Numeric/num002.hs @@ -0,0 +1,20 @@ +-- 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) []) + |