Ticket #1103: UniTest.hs

{-# OPTIONS -fglasgow-exts #-}

{-
        Three kinds of Unicode tests for our purposes.

        Note that GHC_OPTIONS instead of OPTIONS above does not work.
-}

module UniTest where

-- Working Unicode test.

(⋙) a b = a ++ b

aaa ∷ Num a ⇒ a → String
aaa x = (show x) ⋙ ".test"

test1 ∷ IO ()
test1 = do
        putStrLn $ aaa 123456789

-- Non working lambda Unicode test. We notice the page http://hackage.haskell.org/trac/haskell-prime/wiki/UnicodeInHaskellSource
-- has removed this feature.

test2 ∷ IO ()
test2 = do
        putStrLn (show $ map (λx → x + 1.223 + (-x)) [123, 456, 789])

-- Non working Japanese Unicode test.

おすず3 ∷ IO ()
おすず3 = do
        putStrLn $ show 人間虫 where
        人間虫 = "humasect"