users-test 0.5.0.0 → 0.5.0.1
raw patch · 2 files changed
+5/−2 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Web.Users.TestSpec: makeUsersSpec :: forall b. UserStorageBackend b => b -> Spec
+ Web.Users.TestSpec: makeUsersSpec :: UserStorageBackend b => b -> Spec
Files
- src/Web/Users/TestSpec.hs +4/−1
- users-test.cabal +1/−1
src/Web/Users/TestSpec.hs view
@@ -59,10 +59,13 @@ assertLeft (createUser backend (mkUser "asdas" "bar2@baz.com")) "succeeded to create different user with same email" $ \err -> err `shouldBe` EmailAlreadyTaken+ assertLeft (createUser backend (mkUser "asdas" "Bar2@baz.com"))+ "succeeded to create different user with different email capitalisation" $ \err ->+ err `shouldBe` EmailAlreadyTaken it "list and count should be correct" $ assertRight (createUser backend userA) $ \userId1 -> assertRight (createUser backend userB) $ \userId2 ->- do allUsers <- listUsers backend Nothing (SortAsc UserFieldId)+ do allUsers <- listUsers backend (Just (0,10)) (SortAsc UserFieldId) unless ((userId1, hidePassword userA) `elem` allUsers && (userId2, hidePassword userB) `elem` allUsers) (expectationFailure $ "create users not in user list:" ++ show allUsers) countUsers backend `shouldReturn` 2
users-test.cabal view
@@ -1,5 +1,5 @@ name: users-test-version: 0.5.0.0+version: 0.5.0.1 synopsis: Library to test backends for the users library description: Provides HSpec helpers for backends of <http://hackage.haskell.org/package/users users package>. .