libraries/base/tests/T4006.hs


1
2
3
4
5
6
7
8

import System.Process

testUnicode :: String -> IO String
testUnicode str = readProcess "printf" ["%s", str] ""

main = do
    testUnicode "It works here" >>= putStrLn
    testUnicode "А здесь сломалось" >>= putStrLn