{-# 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"