blob: 11d7912cddc276763e96ce1e302096045023a5be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
import System.Environment
main = do
var0 <- getEnv "GHC_TEST"
putStrLn var0
-- The length proves that we actually decoded it properly, not just read it
-- in as latin1 or something (#3308, #3307)
putStrLn ("Test 1: " ++ show (length var0))
[arg0] <- getArgs
putStrLn arg0
putStrLn ("Test 2: " ++ show (length arg0))
[arg1] <- withArgs ["你好!"] getArgs
putStrLn arg1
putStrLn ("Test 3: " ++ show (length arg1))
|
