Restructure ConfigSpec

restyled-io · Oct 21, 2024 · 14fd50a · 14fd50a
1 parent 10fdb1a
commit 14fd50a
Showing 1 changed file with 19 additions and 20 deletions.
diff --git a/test/Restyler/ConfigSpec.hs b/test/Restyler/ConfigSpec.hs
@@ -29,30 +29,29 @@ import UnliftIO.Temporary (withSystemTempFile)
 spec :: Spec
 spec = do
   context "options" $ do
-    context "flags used by actions/run" $ do
-      let checkOption name p = do
-            it ("supports --" <> name) $ do
-              config <- loadTestConfig ["--" <> name, "Foo.hs"] [] []
-              p config `shouldBe` True
+    let checkOption name p = do
+          it ("supports --" <> name) $ do
+            config <- loadTestConfig ["--" <> name, "Foo.hs"] [] []
+            p config `shouldBe` True
 
-      checkOption "debug" $ \config ->
-        let
-          settings = modLogSettings config.logSettings defaultLogSettings
-          logsLevel = shouldLogLevel settings ""
-        in
-          logsLevel LevelDebug && not (logsLevel $ LevelOther "trace")
+    checkOption "debug" $ \config ->
+      let
+        settings = modLogSettings config.logSettings defaultLogSettings
+        logsLevel = shouldLogLevel settings ""
+      in
+        logsLevel LevelDebug && not (logsLevel $ LevelOther "trace")
 
-      checkOption "fail-on-differences" (.failOnDifferences)
+    checkOption "fail-on-differences" (.failOnDifferences)
 
-      checkOption "image-cleanup" (.imageCleanup)
+    checkOption "image-cleanup" (.imageCleanup)
 
-      checkOption "no-commit" (.noCommit)
+    checkOption "no-commit" (.noCommit)
 
-      checkOption "no-pull" (.noPull)
+    checkOption "no-pull" (.noPull)
 
-  it "supports --manifest" $ do
-    config <- loadTestConfig ["--manifest", "/tmp/x.yaml", "Foo.hs"] [] []
-    config.restylersManifest `shouldBe` Just $(mkAbsFile "/tmp/x.yaml")
+    it "supports --manifest" $ do
+      config <- loadTestConfig ["--manifest", "/tmp/x.yaml", "Foo.hs"] [] []
+      config.restylersManifest `shouldBe` Just $(mkAbsFile "/tmp/x.yaml")
 
   context "configuration" $ do
     -- This test is a maintainence burden, in that when config/default.yaml
@@ -197,11 +196,11 @@ spec = do
       it "rejects path-less URLs if path is not given" $ do
         result <-
           loadTestConfigEither
+            ["Bar.hs"]
+            []
             [ "remote_files:"
             , "  - https://example.com/"
             ]
-            []
-            ["Bar.hs"]
 
         void result `shouldSatisfy` isLeft