diff options
Diffstat (limited to 'testsuite/tests/lib/Numeric/num005.hs')
| -rw-r--r-- | testsuite/tests/lib/Numeric/num005.hs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/testsuite/tests/lib/Numeric/num005.hs b/testsuite/tests/lib/Numeric/num005.hs new file mode 100644 index 0000000000..ef647a6967 --- /dev/null +++ b/testsuite/tests/lib/Numeric/num005.hs @@ -0,0 +1,23 @@ +-- Exercising Numeric.readSigned a bit +-- +module Main(main) where + +import Numeric + +main = + let + ls = ["3489348394032498320438240938403","0","-1","1","34323","2L","012","0x23","3243ab"] + present str f ls = + sequence (map (\ v -> putStr ('\n':str ++ + ' ': v ++ + " = " ++ + (show (f v)))) ls) + in + do + present "(readDec::ReadS Integer)" (readDec::ReadS Integer) ls + present "(readDec::ReadS Int)" (readDec::ReadS Int) ls + present "(readOct::ReadS Integer)" (readOct::ReadS Integer) ls + present "(readOct::ReadS Int)" (readOct::ReadS Int) ls + present "(readHex::ReadS Integer)" (readHex::ReadS Integer) ls + present "(readHex::ReadS Int)" (readHex::ReadS Int) ls + putStrLn "" |