eventsource-store-specs 1.1.0 → 1.1.1
raw patch · 4 files changed
+14/−7 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- eventsource-store-specs.cabal +2/−2
- library/Test/EventSource/Store/Specification.hs +7/−4
- package.yaml +1/−1
CHANGELOG.md view
@@ -1,3 +1,7 @@+1.1.1+=====+ * Fix aggregate specifications.+ 1.1.0 ===== * Add Aggregate API specifications.
eventsource-store-specs.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: a73245d0b01b4f489e3877e705b0ec44226d71819dfeb9e1e05bf013a17152ea+-- hash: d777dc8703aa877ee92bbe9d587eb15fc8c2b4e7e2a858fca62afb9305f35b67 name: eventsource-store-specs-version: 1.1.0+version: 1.1.1 synopsis: Provides common test specification for Store implementation. description: Provides common test specification for Store implementation. category: Eventsourcing, Testing
library/Test/EventSource/Store/Specification.hs view
@@ -221,7 +221,8 @@ got `shouldBe` events specify "API/Aggregate - submit event" $ do- agg <- Simple.newAgg (toStore store) (TestId "submit:event") (Test 0)+ StreamName name <- freshStreamName+ agg <- Simple.newAgg (toStore store) (TestId name) (Test 0) let events = replicate 10 (TestEvent 1) traverse_ (Simple.submitEvt agg) events@@ -230,7 +231,8 @@ got `shouldBe` Test 10 specify "API/Aggregate - submit commands" $ do- agg <- Simple.newAgg (toStore store) (TestId "submit:command") (Test 0)+ StreamName name <- freshStreamName+ agg <- Simple.newAgg (toStore store) (TestId name) (Test 0) res1 <- Simple.submitCmd agg (TestIncr 1) let go1 (Right evt) = evt == TestEvent 1@@ -246,7 +248,8 @@ res2 `shouldSatisfy` go2 specify "API/Aggregate - loading" $ do- agg1 <- Simple.newAgg (toStore store) (TestId "submit:load") (Test 0)+ StreamName name <- freshStreamName+ agg1 <- Simple.newAgg (toStore store) (TestId name) (Test 0) let commands = replicate 10 (TestIncr 1) @@ -255,7 +258,7 @@ res1 <- Simple.snapshot agg1 res1 `shouldBe` Test 10 - outcome <- Simple.loadAgg (toStore store) (TestId "submit:load") (Test 0)+ outcome <- Simple.loadAgg (toStore store) (TestId name) (Test 0) case outcome of Left{} -> error "We should be able to load an aggregate."
package.yaml view
@@ -29,4 +29,4 @@ maintainer: yo.eight@gmail.com name: eventsource-store-specs synopsis: Provides common test specification for Store implementation.-version: '1.1.0'+version: '1.1.1'