19 lines
655 B
Haskell
19 lines
655 B
Haskell
module Auth.LDAP.ADSpec where
|
|
|
|
import TestImport
|
|
|
|
import Auth.LDAP.AD
|
|
import Ldap.Client
|
|
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "parseADError" $ do
|
|
it "parses some examples" . mapM_ exampleEntry $
|
|
[ ( InvalidCredentials, ADAccountDisabled, "80090308: LdapErr: DSID-0C090446, comment: AcceptSecurityContext error, data 533, v2580")
|
|
, ( InvalidCredentials, ADLogonFailure , "80090308: LdapErr: DSID-0C090446, comment: AcceptSecurityContext error, data 52e, v2580")
|
|
]
|
|
|
|
exampleEntry :: ( ResultCode, ADError, Text ) -> Expectation
|
|
exampleEntry ( resCode, adError, errMsg ) = example $ parseADError resCode errMsg `shouldBe` Right adError
|