AddSpec.hs

{-# LANGUAGE OverloadedStrings #-}
module Ldap.Client.AddSpec (spec) where

import qualified Data.List.NonEmpty as NonEmpty
import           Test.Hspec

import           Ldap.Client (Dn(..), Filter(..), Attr(..))
import qualified Ldap.Client as Ldap

import           SpecHelper (locally , dns , vulpix)


spec :: Spec
spec = do
  let go l f = Ldap.search l (Dn "o=localhost") (Ldap.typesOnly True) f []

  it "adds an entry" $ do
    res <- locally $ \l -> do
      Ldap.add l vulpix
                 [ (Attr "cn",        NonEmpty.fromList ["vulpix"])
                 , (Attr "evolution", NonEmpty.fromList ["0"])
                 , (Attr "type",      NonEmpty.fromList ["fire"])
                 ]
      res <- go l (Attr "cn" := "vulpix")
      dns res `shouldBe` [vulpix]
    res `shouldBe` Right ()