diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/lib/should_run/char001.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/lib/should_run/char001.hs | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/testsuite/tests/ghc-regress/lib/should_run/char001.hs b/testsuite/tests/ghc-regress/lib/should_run/char001.hs deleted file mode 100644 index 2fb0edce0f..0000000000 --- a/testsuite/tests/ghc-regress/lib/should_run/char001.hs +++ /dev/null @@ -1,43 +0,0 @@ --- !!! Testing the behaviour of Char.lexLitChar a little.. - --- [March 2003] We now allow \X and \O as escapes although the --- spec only permits \x and \o. Seems more consistent. - -module Main where - -import Data.Char - -lex' str = do - putStr ("lex " ++ str ++ " = ") - print (lex str) - -hexes = do - lex' "'\\X00'" - lex' "'\\x0f2'" - lex' "'\\xf2'" - lex' "'\\xf2t'" - lex' "'\\X24'" - lex' "'\\x24b'" - lex' "'\\Xa4b'" - lex' "'\\xa4bg'" - -octs = do - lex' "'\\o00'" - lex' "'\\o05'" - lex' "'\\o50'" - lex' "'\\o72'" - lex' "'\\o82'" - lex' "'\\O24'" - lex' "'\\O000024'" - lex' "'\\024b'" - lex' "'\\o14b'" - lex' "'\\0a4bg'" - -main = do - hexes - octs - - - - - |