[commit: ghc] wip/nfs-locking: Test conditions for building win32 and unix packages (63ba250)

[git at git.haskell.org]

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

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/63ba25048c8c4ccf62f96704deb2ebfffefb2040/ghc

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

commit 63ba25048c8c4ccf62f96704deb2ebfffefb2040
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Oct 30 17:58:54 2016 +0000

    Test conditions for building win32 and unix packages
    
    See #197


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

63ba25048c8c4ccf62f96704deb2ebfffefb2040
 src/Rules/Selftest.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Rules/Selftest.hs b/src/Rules/Selftest.hs
index 58de8fb..0a63641 100644
--- a/src/Rules/Selftest.hs
+++ b/src/Rules/Selftest.hs
@@ -7,6 +7,8 @@ import Test.QuickCheck
 
 import Base
 import Expression
+import GHC
+import Oracles.Config.Setting
 import Oracles.ModuleFiles
 import Settings
 import Settings.Builders.Ar
@@ -94,9 +96,13 @@ testModuleName = do
 
 testPackages :: Action ()
 testPackages = do
-    putBuild $ "==== Packages, interpretInContext"
+    putBuild $ "==== Check system configuration"
+    win <- windowsHost -- This depends on the @boot@ and @configure@ scripts.
+    putBuild $ "==== Packages, interpretInContext, configuration flags"
     forM_ [Stage0 ..] $ \stage -> do
         pkgs <- stagePackages stage
+        when (win32 `elem` pkgs) . test $ win
+        when (unix  `elem` pkgs) . test $ not win
         test $ pkgs == nubOrd pkgs
 
 testWay :: Action ()