diff options
| author | David Terei <davidterei@gmail.com> | 2011-07-20 11:09:03 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-07-20 11:26:35 -0700 |
| commit | 16514f272fb42af6e9c7674a9bd6c9dce369231f (patch) | |
| tree | e4f332b45fe65e2a7a2451be5674f887b42bf199 /testsuite/tests/ghc-regress/lib/Numeric/num005.hs | |
| parent | ebd422aed41048476aa61dd4c520d43becd78682 (diff) | |
| download | haskell-16514f272fb42af6e9c7674a9bd6c9dce369231f.tar.gz | |
Move tests from tests/ghc-regress/* to just tests/*
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/Numeric/num005.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/lib/Numeric/num005.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/testsuite/tests/ghc-regress/lib/Numeric/num005.hs b/testsuite/tests/ghc-regress/lib/Numeric/num005.hs deleted file mode 100644 index ef647a6967..0000000000 --- a/testsuite/tests/ghc-regress/lib/Numeric/num005.hs +++ /dev/null @@ -1,23 +0,0 @@ --- 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 "" |