Test case reproducing the issue.

wireapp · Nov 21, 2024 · a7923f8 · a7923f8
1 parent aec65e3
commit a7923f8
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -56,6 +56,19 @@ main = hspec $ do
       actualSearchEntry `shouldBe` searchEntry
       actualScimUser `shouldBe` expectedScimUser
 
+    it "helpful error message if scim userName (wire handle) field is missing" $ do
+      let displayName = "John Doe"
+      let userName = "jdoe"
+      let externalId = "jdoe@nodomain"
+      let email = "jdoe@nodomain"
+      let searchEntry =
+            searchEntryEmpty
+              & addAttr "displayName" displayName
+              & addAttr "email" email
+
+      conf <- Yaml.decodeThrow confYaml
+      ldapToScim conf searchEntry `shouldBe` Left []
+
 searchEntryEmpty :: SearchEntry
 searchEntryEmpty = SearchEntry (Dn "") []