This commit is contained in:
Matvey Aksenov 2015-11-23 22:14:49 +00:00
parent 990a1021b8
commit 064fd9b377

View File

@ -16,7 +16,7 @@ spec = do
res `shouldBe` True res `shouldBe` True
res `shouldBe` Right () res `shouldBe` Right ()
it "compares and looses" $ do it "compares and loses" $ do
res <- locally $ \l -> do res <- locally $ \l -> do
res <- Ldap.compare l charmander (Attr "type") "flying" res <- Ldap.compare l charmander (Attr "type") "flying"
res `shouldBe` False res `shouldBe` False