[commit: ghc] wip/users-guide-forall-keyword, wip/users-guide-kind-inference: Testsuite: opt-in to symlinks on Windows (48aafc2)

[git at git.haskell.org]

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

On branches: wip/users-guide-forall-keyword,wip/users-guide-kind-inference
Link       : http://ghc.haskell.org/trac/ghc/changeset/48aafc247316a15f2fe412d5dcf07c0bc6e5cbbf/ghc

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

commit 48aafc247316a15f2fe412d5dcf07c0bc6e5cbbf
Author: Tamar Christina <tamar at zhox.com>
Date:   Tue Feb 12 20:51:41 2019 +0000

    Testsuite: opt-in to symlinks on Windows


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

48aafc247316a15f2fe412d5dcf07c0bc6e5cbbf
 testsuite/driver/testutil.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/driver/testutil.py b/testsuite/driver/testutil.py
index b73204f..09c50b4 100644
--- a/testsuite/driver/testutil.py
+++ b/testsuite/driver/testutil.py
@@ -64,7 +64,7 @@ def lndir(srcdir, dstdir):
 #
 # We define the following function to make this magic more
 # explicit/discoverable. You are enouraged to use it instead of os.symlink.
-if platform.system() == 'Windows':
+if platform.system() == 'Windows' and os.getenv('FORCE_SYMLINKS') == None:
     link_or_copy_file = shutil.copyfile
 else:
     link_or_copy_file = os.symlink