[commit: ghc] wip/nfs-locking: Rename Test to Selftest. (b06bae8)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:57:35 UTC 2017


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

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

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

commit b06bae88a40b7ee645b0aecda8019a601d567dce
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Wed Jan 27 23:29:51 2016 +0000

    Rename Test to Selftest.


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

b06bae88a40b7ee645b0aecda8019a601d567dce
 shaking-up-ghc.cabal         | 2 +-
 src/Main.hs                  | 4 ++--
 src/{Test.hs => Selftest.hs} | 6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/shaking-up-ghc.cabal b/shaking-up-ghc.cabal
index 674d6f0..60f3c34 100644
--- a/shaking-up-ghc.cabal
+++ b/shaking-up-ghc.cabal
@@ -65,6 +65,7 @@ executable ghc-shake
                        , Rules.Resources
                        , Rules.Wrappers.Ghc
                        , Rules.Wrappers.GhcPkg
+                       , Selftest
                        , Settings
                        , Settings.Args
                        , Settings.Builders.Alex
@@ -104,7 +105,6 @@ executable ghc-shake
                        , Settings.Ways
                        , Stage
                        , Target
-                       , Test
                        , Way
 
     default-language:    Haskell2010
diff --git a/src/Main.hs b/src/Main.hs
index 12ec014..befb6e7 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -14,7 +14,7 @@ import qualified Rules.Gmp
 import qualified Rules.Libffi
 import qualified Rules.Oracles
 import qualified Rules.Perl
-import qualified Test
+import qualified Selftest
 
 main :: IO ()
 main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
@@ -37,7 +37,7 @@ main = shakeArgsWith options CmdLineFlag.cmdFlags $ \cmdLineFlags targets -> do
         , Rules.Perl.perlScriptRules
         , Rules.generateTargets
         , Rules.packageRules
-        , Test.testRules ]
+        , Selftest.selftestRules ]
     options = shakeOptions
         { shakeChange   = ChangeModtimeAndDigest
         , shakeFiles    = Base.shakeFilesPath
diff --git a/src/Test.hs b/src/Selftest.hs
similarity index 89%
rename from src/Test.hs
rename to src/Selftest.hs
index 3c88ed4..4800ca8 100644
--- a/src/Test.hs
+++ b/src/Selftest.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module Test (testRules) where
+module Selftest (selftestRules) where
 
 import Development.Shake
 import Settings.Builders.Ar (chunksOfSize)
@@ -13,8 +13,8 @@ instance Arbitrary Way where
 instance Arbitrary WayUnit where
     arbitrary = arbitraryBoundedEnum
 
-testRules :: Rules ()
-testRules =
+selftestRules :: Rules ()
+selftestRules =
     "selftest" ~> do
         test $ \(x :: Way) -> read (show x) == x
         test $ \n xs ->



More information about the ghc-commits mailing list