From 56b1e14219088caf30ea25cbb9ef8bd609a5e6d5 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 8 May 2013 16:47:57 +0900 Subject: [PATCH] test case for #118. --- test/CabalApiSpec.hs | 4 ++++ test/data/broken-cabal/broken.cabal | 1 + 2 files changed, 5 insertions(+) create mode 100644 test/data/broken-cabal/broken.cabal diff --git a/test/CabalApiSpec.hs b/test/CabalApiSpec.hs index e17d62f..5830615 100644 --- a/test/CabalApiSpec.hs +++ b/test/CabalApiSpec.hs @@ -21,3 +21,7 @@ spec = do info <- cabalBuildInfo <$> cabalParseFile "test/data/cabalapi.cabal" let infoStr = show info infoStr `shouldBe` "Just (BuildInfo {buildable = True, buildTools = [], cppOptions = [], ccOptions = [], ldOptions = [], pkgconfigDepends = [], frameworks = [], cSources = [], hsSourceDirs = [], otherModules = [ModuleName [\"Browse\"],ModuleName [\"CabalApi\"],ModuleName [\"Cabal\"],ModuleName [\"CabalDev\"],ModuleName [\"Check\"],ModuleName [\"ErrMsg\"],ModuleName [\"Flag\"],ModuleName [\"GHCApi\"],ModuleName [\"GHCChoice\"],ModuleName [\"Gap\"],ModuleName [\"Info\"],ModuleName [\"Lang\"],ModuleName [\"Lint\"],ModuleName [\"List\"],ModuleName [\"Paths_ghc_mod\"],ModuleName [\"Types\"]], defaultLanguage = Nothing, otherLanguages = [], defaultExtensions = [], otherExtensions = [], oldExtensions = [], extraLibs = [], extraLibDirs = [], includeDirs = [], includes = [], installIncludes = [], options = [(GHC,[\"-Wall\"])], ghcProfOptions = [], ghcSharedOptions = [], customFieldsBI = [], targetBuildDepends = []})" + + it "returns Nothing if the cabal file is broken" $ do + info <- cabalBuildInfo <$> cabalParseFile "test/data/broken-cabal/broken.cabal" + info `shouldBe` Nothing diff --git a/test/data/broken-cabal/broken.cabal b/test/data/broken-cabal/broken.cabal new file mode 100644 index 0000000..9b14fce --- /dev/null +++ b/test/data/broken-cabal/broken.cabal @@ -0,0 +1 @@ +broken cabal