Implement --no-test

restyled-io · Sep 13, 2024 · b5cdaf6 · b5cdaf6
1 parent 9e98fe5
commit b5cdaf6
Show file tree

Hide file tree

Showing 5 changed files with 13 additions and 23 deletions.
diff --git a/_tools/restylers/app/Main.hs b/_tools/restylers/app/Main.hs
@@ -37,7 +37,8 @@ main = do
       image <- tagRestylerImage info
       pure $ toRestyler info image
 
-    testRestylers opts.pull restylers $ fromMaybe [] opts.hspecArgs
+    when opts.test $ do
+      testRestylers opts.pull restylers $ fromMaybe [] opts.hspecArgs
 
     when opts.push $ for_ restylers $ \restyler -> do
       exists <- doesRestylerImageExist restyler.image

diff --git a/_tools/restylers/restylers.cabal b/_tools/restylers/restylers.cabal
@@ -4,7 +4,7 @@ cabal-version: 1.12
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 7da616867866bdc30137187009623800895e2db0077b4692bac412de68ef276a
+-- hash: 4a06e0f858191752112cac20e142a00cf45b6b32f8c2135c0fa3df4e2ef7b9d5
 
 name:           restylers
 version:        0.0.0.0
@@ -18,7 +18,6 @@ library
       Restylers.Env
       Restylers.Image
       Restylers.Image.Parse
-      Restylers.ImagePrefix
       Restylers.Info
       Restylers.Info.Build
       Restylers.Info.Metadata

diff --git a/_tools/restylers/src/Restylers/ImagePrefix.hs b/_tools/restylers/src/Restylers/ImagePrefix.hs
diff --git a/_tools/restylers/src/Restylers/Options.hs b/_tools/restylers/src/Restylers/Options.hs
@@ -23,6 +23,7 @@ data Options = Options
   , sha :: Text
   , debug :: Bool
   , build :: Bool
+  , test :: Bool
   , pull :: Bool
   , push :: Bool
   , write :: Maybe FilePath
@@ -68,7 +69,14 @@ options =
             <$> switch
               ( short 'B'
                   <> long "no-build"
-                  <> help "Skip build before testing"
+                  <> help "Skip building"
+              )
+        )
+    <*> ( not
+            <$> switch
+              ( short 'T'
+                  <> long "no-test"
+                  <> help "Skip testing"
               )
         )
     <*> ( not

diff --git a/_tools/restylers/test/Restylers/Info/ResolvedSpec.hs b/_tools/restylers/test/Restylers/Info/ResolvedSpec.hs
@@ -34,6 +34,7 @@ testOptions _ =
     , sha = "dev"
     , debug = False
     , build = False
+    , test = False
     , pull = False
     , push = False
     , write = Nothing