mockcat 0.3.0.0 → 0.3.1.0

raw patch · 3 files changed

+11/−10 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• mockcat.cabal +1/−1
• src/Test/MockCat/TH.hs +6/−5
• test/Test/MockCat/TypeClassTHSpec.hs +4/−4

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           mockcat-version:        0.3.0.0+version:        0.3.1.0 synopsis:       Mock library for test in Haskell. description:    mockcat is a mock library for testing Haskell.                 .

@@ -31,9 +31,10 @@       Extension(..) ) import Language.Haskell.TH.PprLib (Doc, hcat, parens, text) import Language.Haskell.TH.Syntax (nameBase)-import Test.MockCat.Param (Param(..))-import Test.MockCat.Cons ((:>))+import Test.MockCat.Param+import Test.MockCat.Cons import Test.MockCat.MockT+import Test.MockCat.Mock import Data.Data (Proxy(..)) import Data.List (find, nub, elemIndex) import GHC.TypeLits (KnownSymbol, symbolVal)@@ -43,9 +44,9 @@ import GHC.IO (unsafePerformIO) import Language.Haskell.TH.Lib import Data.Text (splitOn, unpack, pack)-import Test.MockCat.Mock (MockBuilder) import Control.Monad (guard, unless) import Data.Function ((&))+import Prelude as P  showExp :: Q Exp -> Q String showExp qexp = show . pprintExp <$> qexp@@ -204,7 +205,7 @@   newCxt <- createCxt monadVarName cxt   m <- appT (conT ''Monad) (varT monadVarName) -  let hasMonad = any (\(ClassName2VarNames c _) -> c == ''Monad) $ toClassInfos newCxt+  let hasMonad = P.any (\(ClassName2VarNames c _) -> c == ''Monad) $ toClassInfos newCxt    instanceDec <- instanceD     (pure $ newCxt ++ ([m | not hasMonad]))@@ -411,7 +412,7 @@ updateType ty _ = ty  hasClass :: Name -> [VarAppliedType] -> Bool-hasClass varName = any (\(VarAppliedType v c) -> (v == varName) && isJust c)+hasClass varName = P.any (\(VarAppliedType v c) -> (v == varName) && isJust c)  findClass :: Name -> [VarAppliedType] -> Maybe Name findClass varName types = do

@@ -13,10 +13,10 @@  module Test.MockCat.TypeClassTHSpec (spec) where -import Prelude hiding (readFile, writeFile)+import Prelude hiding (readFile, writeFile, any) import Data.Text (Text, pack, isInfixOf) import Test.Hspec-import Test.MockCat as M+import Test.MockCat (makeMock, makeMockWithOptions, createStubFn, options, MockOptions(..), runMockT, (|>), any, applyTimesIs, neverApply) import Control.Monad.State import Control.Monad.Reader (MonadReader, ask) import Control.Monad (unless)@@ -132,7 +132,7 @@   it "Read, and output files (contain ng word)" do     result <- runMockT do       _readFile ("input.txt" |> pack "contains ngWord")-      _writeFile ("output.txt" |> M.any |> ()) `applyTimesIs` 0+      _writeFile ("output.txt" |> any |> ()) `applyTimesIs` 0       operationProgram "input.txt" "output.txt"      result `shouldBe` ()@@ -140,7 +140,7 @@   it "Read, and output files (contain ng word)2" do     result <- runMockT do       _readFile ("input.txt" |> pack "contains ngWord")-      neverApply $ _writeFile ("output.txt" |> M.any |> ())+      neverApply $ _writeFile ("output.txt" |> any |> ())       operationProgram "input.txt" "output.txt"      result `shouldBe` ()