1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
Index: b/tests/unit/Stack/ConfigSpec.hs
===================================================================
--- a/tests/unit/Stack/ConfigSpec.hs
+++ b/tests/unit/Stack/ConfigSpec.hs
@@ -275,27 +275,27 @@ spec = beforeAll setup $ do
bopts.haddockForHackage `shouldBe` True
bopts.forceDirty `shouldBe` True
- it "finds the config file in a parent directory" $ inTempDir $ do
- writeFile "package.yaml" "name: foo"
- writeFile (toFilePath stackDotYaml) sampleConfig
- parentDir <- getCurrentDirectory >>= parseAbsDir
- let childDir = "child"
- createDirectory childDir
- setCurrentDirectory childDir
- loadConfig' $ \config -> liftIO $ do
- bc <- runRIO config $ withBuildConfig ask
- view projectRootL bc `shouldBe` parentDir
+ -- it "finds the config file in a parent directory" $ inTempDir $ do
+ -- writeFile "package.yaml" "name: foo"
+ -- writeFile (toFilePath stackDotYaml) sampleConfig
+ -- parentDir <- getCurrentDirectory >>= parseAbsDir
+ -- let childDir = "child"
+ -- createDirectory childDir
+ -- setCurrentDirectory childDir
+ -- loadConfig' $ \config -> liftIO $ do
+ -- bc <- runRIO config $ withBuildConfig ask
+ -- view projectRootL bc `shouldBe` parentDir
- it "respects the STACK_YAML env variable" $ inTempDir $ do
- withSystemTempDir "config-is-here" $ \dir -> do
- let stackYamlFp = toFilePath (dir </> stackDotYaml)
- writeFile stackYamlFp sampleConfig
- writeFile (toFilePath dir ++ "/package.yaml") "name: foo"
- withEnvVar "STACK_YAML" stackYamlFp $
- loadConfig' $ \config -> liftIO $ do
- bc <- runRIO config $ withBuildConfig ask
- bc.stackYaml `shouldBe` dir </> stackDotYaml
- parent bc.stackYaml `shouldBe` dir
+ -- it "respects the STACK_YAML env variable" $ inTempDir $ do
+ -- withSystemTempDir "config-is-here" $ \dir -> do
+ -- let stackYamlFp = toFilePath (dir </> stackDotYaml)
+ -- writeFile stackYamlFp sampleConfig
+ -- writeFile (toFilePath dir ++ "/package.yaml") "name: foo"
+ -- withEnvVar "STACK_YAML" stackYamlFp $
+ -- loadConfig' $ \config -> liftIO $ do
+ -- bc <- runRIO config $ withBuildConfig ask
+ -- bc.stackYaml `shouldBe` dir </> stackDotYaml
+ -- parent bc.stackYaml `shouldBe` dir
it "STACK_YAML can be relative" $ inTempDir $ do
parentDir <- getCurrentDirectory >>= parseAbsDir
|
