users-test 0.2.0.0 → 0.3.0.0

raw patch · 2 files changed

+11/−2 lines, 2 filesdep ~users

Dependency ranges changed: users

Files

• src/Web/Users/TestSpec.hs +9/−0
• users-test.cabal +2/−2

@@ -94,6 +94,8 @@                                     { dd_foo = False                                     }                                 })+                        userIdA' <- getUserIdByName backend "changed"+                        userIdA' `shouldBe` Just userIdA               it "deleting users should work" $                  assertRight (createUser backend userA) $ \userIdA ->                  assertRight (createUser backend userB) $ \userIdB ->@@ -123,6 +125,13 @@                     authUser backend "bar@baz.com" (PasswordPlain "123") 500 `shouldReturn` Nothing                     authUser backend "bar@baz.com' OR 1 = 1 --" (PasswordPlain "123") 500 `shouldReturn` Nothing                     authUser backend "bar@baz.com' OR 1 = 1; --" (PasswordPlain  "' OR 1 = 1; --") 500 `shouldReturn` Nothing+              it "sessionless auth with valid userdata should work" $+                 assertRight (createUser backend userA) $ \userIdA ->+                 do withAuthUser backend "bar@baz.com" ((== DummyDetails True 21) . u_more) (return . (== userIdA)) `shouldReturn` Just True+                    withAuthUser backend "bar@baz.com" ((== DummyDetails True 21) . u_more) (return . (/= userIdA)) `shouldReturn` Just False+              it "sessionless auth with invalid userdata should fail" $+                 assertRight (createUser backend userA) $ \userIdA ->+                    withAuthUser backend "bar@baz.com" ((/= DummyDetails True 21) . u_more) (return . (/= userIdA)) `shouldReturn` Nothing               it "destroy session should really remove the session" $                  withAuthedUser $ \(sessionId, _) ->                      do destroySession backend sessionId

@@ -1,5 +1,5 @@ name:                users-test-version:             0.2.0.0+version:             0.3.0.0 synopsis:            Library to test backends for the users library description:         Provides HSpec helpers for backends of <http://hackage.haskell.org/package/users users package>.                      .@@ -26,7 +26,7 @@                        aeson >=0.8,                        base >=4.6 && <5,                        hspec >=2.1,-                       users >=0.2,+                       users >=0.3.0.0,                        text >=1.2   hs-source-dirs:      src   default-language:    Haskell2010