diff options
author | Ian Lynagh <igloo@earth.li> | 2011-06-24 01:49:45 +0100 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2011-06-24 01:49:45 +0100 |
commit | 8a1d08338fb5d006cd8daa6606722636d0f76fed (patch) | |
tree | bd5479d0f017ac5b61165ce87d88eeaca4e596cd /testsuite/tests | |
parent | 53f7e4a7fdf1916c5a73154fb6fff42eab4df3a9 (diff) | |
download | haskell-8a1d08338fb5d006cd8daa6606722636d0f76fed.tar.gz |
Tweak environment001
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/ghc-regress/lib/IO/environment001.hs | 10 | ||||
-rw-r--r-- | testsuite/tests/ghc-regress/lib/IO/environment001.stdout | 6 |
2 files changed, 8 insertions, 8 deletions
diff --git a/testsuite/tests/ghc-regress/lib/IO/environment001.hs b/testsuite/tests/ghc-regress/lib/IO/environment001.hs index dbdaa2306b..11d7912cdd 100644 --- a/testsuite/tests/ghc-regress/lib/IO/environment001.hs +++ b/testsuite/tests/ghc-regress/lib/IO/environment001.hs @@ -5,12 +5,12 @@ main = do putStrLn var0 -- The length proves that we actually decoded it properly, not just read it -- in as latin1 or something (#3308, #3307) - print (length var0) - + putStrLn ("Test 1: " ++ show (length var0)) + [arg0] <- getArgs putStrLn arg0 - print (length arg0) - + putStrLn ("Test 2: " ++ show (length arg0)) + [arg1] <- withArgs ["你好!"] getArgs putStrLn arg1 - print (length arg1) + putStrLn ("Test 3: " ++ show (length arg1)) diff --git a/testsuite/tests/ghc-regress/lib/IO/environment001.stdout b/testsuite/tests/ghc-regress/lib/IO/environment001.stdout index 16299db556..2434d0c14d 100644 --- a/testsuite/tests/ghc-regress/lib/IO/environment001.stdout +++ b/testsuite/tests/ghc-regress/lib/IO/environment001.stdout @@ -1,6 +1,6 @@ 马克斯 -3 +Test 1: 3 说 -1 +Test 2: 1 你好! -3 +Test 3: 3 |