testsuite/tests/parser/unicode/T1103.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE UnicodeSyntax #-}
{-
        Three kinds of Unicode tests for our purposes.
-}

module UniTest where

-- Non working Japanese Unicode test.

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