[commit: ghc] wip/mark-fragile-windows-tests: testsuite/plugins: Increase compile timeout on Windows (44229c8)

[git at git.haskell.org]

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

On branch  : wip/mark-fragile-windows-tests
Link       : http://ghc.haskell.org/trac/ghc/changeset/44229c8b1221069bbbe6a98adede5db1bd6faa07/ghc

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

commit 44229c8b1221069bbbe6a98adede5db1bd6faa07
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue Mar 5 11:30:57 2019 -0500

    testsuite/plugins: Increase compile timeout on Windows
    
    I think the linker is routinely eating through the timeout,
    leading to many spurious failures.


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

44229c8b1221069bbbe6a98adede5db1bd6faa07
 testsuite/tests/plugins/all.T | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/testsuite/tests/plugins/all.T b/testsuite/tests/plugins/all.T
index 1834e3b..f345e21 100644
--- a/testsuite/tests/plugins/all.T
+++ b/testsuite/tests/plugins/all.T
@@ -1,9 +1,15 @@
-setTestOpts([req_interp, when(opsys('mingw32'), multi_cpu_race)])
+setTestOpts([
+    req_interp,
+    # The implementation of ghc-pkg doesn't seem to be multi-concurrent process
+    # safe on windows. These tests which mutate the package db need to be run
+    # sequentially until this is fixed.  This likely means that #13194 isn't fully
+    # solved.  See also #15313.
+    when(opsys('mingw32'), multi_cpu_race),
+    # The Windows toolchain, particularly linking, is remarkably slow, give it
+    # time to do its thing
+    when(opsys('mingw32'), compile_timeout_multiplier(2))
+])
 
-# The implementation of ghc-pkg doesn't seem to be multi-concurrent process safe
-# on windows. These tests which mutate the package db need to be run
-# sequentially until this is fixed.  This likely means that #13194 isn't fully
-# solved.  See also #15313.
 
 test('plugins01',
      [extra_files(['simple-plugin/']), only_ways([config.ghc_plugin_way]),