2014-05-01 00:32:10 +00:00
|
|
|
module UtilsSpec where
|
|
|
|
|
|
|
|
|
|
import Language.Haskell.GhcMod.Utils
|
2014-08-18 06:06:36 +00:00
|
|
|
import System.IO.Error
|
|
|
|
|
import Control.Exception
|
|
|
|
|
import TestUtils
|
2014-05-01 00:32:10 +00:00
|
|
|
import Test.Hspec
|
|
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
|
|
|
|
describe "extractParens" $ do
|
|
|
|
|
it "extracts the part of a string surrounded by parentheses" $ do
|
|
|
|
|
extractParens "asdasdasd ( hello [ world ] )()() kljlkjlkjlk" `shouldBe` "( hello [ world ] )"
|
|
|
|
|
extractParens "[(PackageName \"template-haskell\",InstalledPackageId \"template-haskell-2.9.0.0-8e2a49468f3b663b671c437d8579cd28\"),(PackageName \"base\",InstalledPackageId \"base-4.7.0.0-e4567cc9a8ef85f78696b03f3547b6d5\"),(PackageName \"Cabal\",InstalledPackageId \"Cabal-1.18.1.3-b9a44a5b15a8bce47d40128ac326e369\")][][]" `shouldBe` "[(PackageName \"template-haskell\",InstalledPackageId \"template-haskell-2.9.0.0-8e2a49468f3b663b671c437d8579cd28\"),(PackageName \"base\",InstalledPackageId \"base-4.7.0.0-e4567cc9a8ef85f78696b03f3547b6d5\"),(PackageName \"Cabal\",InstalledPackageId \"Cabal-1.18.1.3-b9a44a5b15a8bce47d40128ac326e369\")]"
|
2014-08-18 06:06:36 +00:00
|
|
|
|
|
|
|
|
describe "liftMonadError" $ do
|
|
|
|
|
it "converts IOErrors to GhcModError" $ do
|
|
|
|
|
shouldReturnError $
|
|
|
|
|
runD' $ liftMonadError $ throw (userError "hello") >> return ""
|
|
|
|
|
|
|
|
|
|
shouldReturnError $
|
|
|
|
|
runD' $ liftMonadError $ readFile "/DOES_NOT_EXIST" >> return ""
|
