From 2839d6b55785f4bce40c4c2786fb708bfa82e49b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Thu, 1 May 2014 02:32:10 +0200 Subject: [PATCH] Add UtilsSpec --- test/UtilsSpec.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 test/UtilsSpec.hs diff --git a/test/UtilsSpec.hs b/test/UtilsSpec.hs new file mode 100644 index 0000000..75f61cc --- /dev/null +++ b/test/UtilsSpec.hs @@ -0,0 +1,11 @@ +module UtilsSpec where + +import Language.Haskell.GhcMod.Utils +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\")]"