seakale-tests 0.1.0.1 → 0.1.0.2

raw patch · 3 files changed

+17/−3 lines, 3 filesdep ~seakalePVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependency ranges changed: seakale

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• seakale-tests.cabal +3/−3
• src/Database/Seakale/Tests/Store.hs +10/−0

@@ -1,5 +1,9 @@ # Revision history for seakale-tests +## 0.1.0.2  -- 2017-03-08++* Make (StoreMock a) an instance of Show so Mock (StoreMock backend) a is too.+ ## 0.1.0.0  -- 2017-01-31  * First version.

@@ -1,5 +1,5 @@ name:                  seakale-tests-version:               0.1.0.1+version:               0.1.0.2 synopsis:              Helpers to test code using Seakale description:           This package provides a way to run code written with Seakale with a fake database using mocks. license:               BSD3@@ -14,7 +14,7 @@ source-repository head   type:                darcs   location:            http://darcs.redspline.com/seakale-  tag:                 seakale-tests-0.1.0.1+  tag:                 seakale-tests-0.1.0.2  library   ghc-options:         -Wall@@ -36,7 +36,7 @@                        Database.Seakale.Tests.Store    build-depends:       base >=4.8 && <4.10-                     , seakale ==0.1.* || ==0.2.*+                     , seakale >=0.1 && <0.3                      , mtl                      , bytestring                      , free

@@ -1,5 +1,6 @@ module Database.Seakale.Tests.Store   ( StoreMock+  -- * Mocking the database   , mockSelect   , mockSelect_   , mockFailingSelect@@ -25,6 +26,7 @@   , mockDelete   , mockFailingDeleteMany   , mockFailingDelete+  -- * Running in a fake environment   , runSelect   , runSelectT   , runStore@@ -68,6 +70,14 @@                   (Either SeakaleError Integer)   | forall k l a. Storable backend k l a     => MockDelete (Condition backend a) (Either SeakaleError Integer)++instance Show (StoreMock backend) where+  show = \case+    MockSelect _ _ _ _ -> "MockSelect"+    MockCount  _ _ _   -> "MockSelect"+    MockInsert _ _     -> "MockInsert"+    MockUpdate _ _ _   -> "MockUpdate"+    MockDelete _ _     -> "MockDelete"  mockSelect :: Storable backend k l a => Condition backend a            -> SelectClauses backend a -> [Entity a]