summaryrefslogtreecommitdiff
path: root/testsuite/tests
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2011-06-24 01:49:45 +0100
committerIan Lynagh <igloo@earth.li>2011-06-24 01:49:45 +0100
commit8a1d08338fb5d006cd8daa6606722636d0f76fed (patch)
treebd5479d0f017ac5b61165ce87d88eeaca4e596cd /testsuite/tests
parent53f7e4a7fdf1916c5a73154fb6fff42eab4df3a9 (diff)
downloadhaskell-8a1d08338fb5d006cd8daa6606722636d0f76fed.tar.gz
Tweak environment001
Diffstat (limited to 'testsuite/tests')
-rw-r--r--testsuite/tests/ghc-regress/lib/IO/environment001.hs10
-rw-r--r--testsuite/tests/ghc-regress/lib/IO/environment001.stdout6
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