Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/45d1350a06ec81c736f6fdd40f05a8be26d327e6 >--------------------------------------------------------------- commit 45d1350a06ec81c736f6fdd40f05a8be26d327e6 Author: Ian Lynagh <[email protected]> Date: Fri Jun 24 01:49:45 2011 +0100 Tweak environment001 >--------------------------------------------------------------- tests/ghc-regress/lib/IO/environment001.hs | 6 +++--- tests/ghc-regress/lib/IO/environment001.stdout | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/ghc-regress/lib/IO/environment001.hs b/tests/ghc-regress/lib/IO/environment001.hs index dbdaa23..11d7912 100644 --- a/tests/ghc-regress/lib/IO/environment001.hs +++ b/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/tests/ghc-regress/lib/IO/environment001.stdout b/tests/ghc-regress/lib/IO/environment001.stdout index 16299db..2434d0c 100644 --- a/tests/ghc-regress/lib/IO/environment001.stdout +++ b/tests/ghc-regress/lib/IO/environment001.stdout @@ -1,6 +1,6 @@ 马å æ¯ -3 +Test 1: 3 说 -1 +Test 2: 1 ä½ å¥½! -3 +Test 3: 3
_______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
