File tree Expand file tree Collapse file tree 5 files changed +32
-0
lines changed
cabal-testsuite/PackageTests/DuplicateEnvVars Expand file tree Collapse file tree 5 files changed +32
-0
lines changed Original file line number Diff line number Diff line change 1+ packages : p
Original file line number Diff line number Diff line change 1+ import Test.Cabal.Prelude
2+
3+ main = cabalTest $ recordMode DoNotRecord $ do
4+ res <- cabal' " test" [" all" ]
5+ assertOutputContains " No duplicate environment variables found" res
Original file line number Diff line number Diff line change 1+ module Main where
2+
3+ import Data.List (group , sort )
4+ import System.Environment (getEnvironment )
5+
6+ main = do
7+ env <- getEnvironment
8+ let sortedEnv = sort env
9+ duplicates = filter (\ g -> length g > 1 ) $ group $ map fst sortedEnv
10+
11+ if null duplicates
12+ then putStrLn " No duplicate environment variables found."
13+ else do
14+ putStrLn " Found duplicate environment variables:"
15+ mapM_ (\ d -> putStrLn $ " - " ++ head d) duplicates
16+ fail " Test failed due to duplicate environment variables"
Original file line number Diff line number Diff line change 1+ cabal-version : 3.0
2+ name : p
3+ version : 0.1.0.0
4+ build-type : Simple
5+
6+ test-suite env-test
7+ default-language : Haskell2010
8+ type : exitcode-stdio-1.0
9+ main-is : Main.hs
10+ build-depends : base
You can’t perform that action at this time.
0 commit comments