[commit: ghc] master: testsuite: Add test for #12971 (8f0546b)

git at git.haskell.org git at git.haskell.org
Thu Dec 15 23:17:28 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8f0546bfaf47ec865bb0c6dc2cb0ac451367f65a/ghc

>---------------------------------------------------------------

commit 8f0546bfaf47ec865bb0c6dc2cb0ac451367f65a
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Thu Dec 15 15:26:11 2016 -0500

    testsuite: Add test for #12971
    
    Test Plan: Validate
    
    Reviewers: austin
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D2855
    
    GHC Trac Issues: #12971


>---------------------------------------------------------------

8f0546bfaf47ec865bb0c6dc2cb0ac451367f65a
 testsuite/tests/driver/Makefile  | 5 +++++
 testsuite/tests/driver/T12971.hs | 4 ++++
 testsuite/tests/driver/all.T     | 2 ++
 3 files changed, 11 insertions(+)

diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile
index 2dfb41f..d3f78ef 100644
--- a/testsuite/tests/driver/Makefile
+++ b/testsuite/tests/driver/Makefile
@@ -641,3 +641,8 @@ T10923:
 T12955:
 	! "$(TEST_HC)" $(TEST_HC_OPTS) --make T12955
 	! "$(TEST_HC)" $(TEST_HC_OPTS) --make T12955 -fbuilding-cabal-package
+
+.PHONY: T12971
+T12971:
+	mkdir -p ä
+	! TMP=ä "$(TEST_HC)" $(TEST_HC_OPTS) --make T12971
diff --git a/testsuite/tests/driver/T12971.hs b/testsuite/tests/driver/T12971.hs
new file mode 100644
index 0000000..7b83609
--- /dev/null
+++ b/testsuite/tests/driver/T12971.hs
@@ -0,0 +1,4 @@
+-- Test that setting the TMP environment variable to a path with non-ASCII
+-- characters works.
+main :: IO ()
+main = putStrLn "hello world"
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 9119c71..d327ac5 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -501,3 +501,5 @@ test('T10923',
 test('T12752pass', normal, compile, ['-DSHOULD_PASS=1 -Wcpp-undef'])
 
 test('T12955', normal, run_command, ['$MAKE -s --no-print-directory T12955'])
+
+test('T12971', expect_broken(12971), run_command, ['$MAKE -s --no-print-directory T12971'])
\ No newline at end of file



More information about the ghc-commits mailing list