[commit: ghc] wip/nfs-locking: Drop testModuleFilesOracle. (50663a4)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:52:47 UTC 2017


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

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

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

commit 50663a4d4e5a04653e4a30034e688bf1dbd549ec
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Fri Feb 26 03:36:31 2016 +0000

    Drop testModuleFilesOracle.
    
    See #210.


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

50663a4d4e5a04653e4a30034e688bf1dbd549ec
 src/Rules/Selftest.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/src/Rules/Selftest.hs b/src/Rules/Selftest.hs
index f4890b0..f549b0f 100644
--- a/src/Rules/Selftest.hs
+++ b/src/Rules/Selftest.hs
@@ -6,7 +6,6 @@ import Development.Shake
 import Test.QuickCheck
 
 import Base
-import Oracles.ModuleFiles
 import Settings.Builders.Ar (chunksOfSize)
 import Way
 
@@ -27,7 +26,6 @@ selftestRules =
         testMatchVersionedFilePath
         testModuleNames
         testLookupAll
-        testModuleFilesOracle
 
 testWays :: Action ()
 testWays = do
@@ -85,14 +83,3 @@ testLookupAll = do
     dicts = nubBy ((==) `on` fst) <$> vector 20
     extras :: Gen [Int]
     extras = vector 20
-
-testModuleFilesOracle :: Action ()
-testModuleFilesOracle = do
-    putBuild $ "==== moduleFilesOracle"
-    result <- findModuleFiles ["compiler/codeGen", "compiler/parser"]
-        [ "CodeGen.Platform.ARM"
-        , "Lexer"
-        , "Missing.Module"]
-    test $ result == [ Just "compiler/codeGen/CodeGen/Platform/ARM.hs"
-                     , Just "compiler/parser/Lexer.x"
-                     , Nothing]



More information about the ghc-commits mailing list