Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0c6fa4f74dcdc34fb0a3df11acfbf98d7ad38d83 >--------------------------------------------------------------- commit 0c6fa4f74dcdc34fb0a3df11acfbf98d7ad38d83 Author: Ian Lynagh <[email protected]> Date: Thu Jun 23 15:28:49 2011 +0100 Expect 4006 to fail on msys In the 65001 codepage, we can't even cat the expected output on msys: $ cat 4006.stdout It works here cat: write error: Permission denied >--------------------------------------------------------------- driver/runtests.py | 8 ++++++++ driver/testlib.py | 12 ++++++++++++ tests/ghc-regress/lib/should_run/all.T | 7 ++++++- 3 files changed, 26 insertions(+), 1 deletions(-) diff --git a/driver/runtests.py b/driver/runtests.py index 45bdd01..a6b0da5 100644 --- a/driver/runtests.py +++ b/driver/runtests.py @@ -106,6 +106,14 @@ if config.use_threads == 1: print "Warning: Ignoring request to use threads as running on Windows" config.use_threads = 0 +config.cygwin = False +config.msys = False +if windows: + if cygwin: + config.cygwin = True + else: + config.msys = True + # Try to use UTF8 if windows: import ctypes diff --git a/driver/testlib.py b/driver/testlib.py index 0dce28c..f48b86d 100644 --- a/driver/testlib.py +++ b/driver/testlib.py @@ -278,6 +278,18 @@ def if_wordsize( ws, f ): else: return normal +def if_msys( f ): + if config.msys: + return f + else: + return normal + +def if_cygwin( f ): + if config.cygwin: + return f + else: + return normal + # --- def if_in_tree_compiler( f ): diff --git a/tests/ghc-regress/lib/should_run/all.T b/tests/ghc-regress/lib/should_run/all.T index 388ad04..c0b7384 100644 --- a/tests/ghc-regress/lib/should_run/all.T +++ b/tests/ghc-regress/lib/should_run/all.T @@ -57,4 +57,9 @@ test('stableptr005', normal, compile_and_run, ['']) test('weak001', normal, compile_and_run, ['']) -test('4006', normal, compile_and_run, ['']) +# In the 65001 codepage, we can't even cat the expected output on msys: +# $ cat 4006.stdout +# It works here +# cat: write error: Permission denied +test('4006', if_msys(expect_fail), compile_and_run, ['']) + _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
