Skip to content

Commit 968b034

Browse files
committed
add test for cabal/config
1 parent 6372ec2 commit 968b034

3 files changed

Lines changed: 21 additions & 0 deletions

File tree

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
# cabal user-config
2+
Writing default configuration to <ROOT>/cabal.dist/cabal-config
Lines changed: 18 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,18 @@
1+
import Test.Cabal.Prelude
2+
import Data.List (isInfixOf, groupBy)
3+
import Data.Function (on)
4+
5+
main = cabalTest $ do
6+
workdir <- fmap testWorkDir getTestEnv
7+
let conf = workdir </> "cabal-config"
8+
9+
cabalG ["--config-file", conf] "user-config" ["init"]
10+
confContents <- liftIO $ readFile conf
11+
12+
let ls = lines confContents
13+
sections = groupBy ((==) `on` (== "")) ls
14+
[initLs] = filter ((== "-- full-version: False") . head) sections
15+
init = unlines initLs
16+
17+
assertBool "init section of config should contain debug-info: 0" ("debug-info: 0" `isInfixOf` init)
18+
assertBool "init section of config should contain optimization: 1" ("optimization: 1" `isInfixOf` init)

cabal-testsuite/PackageTests/ProjectConfig/FlagsBools/cabal.project

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@ packages: .
22

33
build-info: true
44
optimization: tRuE
5+
debug-info: fALSe
56

67
package test
78
flags: -bar

0 commit comments

Comments
 (0)