Implement searchable flag to MockInterpreters

Author: eyeinsky

libs/wire-subsystems/test/unit/Wire/MockInterpreters/IndexedUserStore.hs

@@ -161,7 +161,8 @@ searchImpl searcher mTeam teamSearchInfo query maxResults = do
     . map fst
     . sortOn snd
     . filter (\(_, score) -> score /= 0)
-    $ map (\doc -> (doc, totalScore doc)) allDocs
+    . map (\doc -> (doc, totalScore doc))
+    $ filter (\u -> fromMaybe True u.udSearchable) allDocs
 
 mkResult :: Int -> [a] -> SearchResult a
 mkResult maxResults results =

libs/wire-subsystems/test/unit/Wire/UserSubsystem/InterpreterSpec.hs

@@ -1095,5 +1095,4 @@ spec = describe "UserSubsystem.Interpreter" do
                         contactHandle = fromHandle <$> searchee.handle,
                         contactColorId = Just . fromIntegral $ searchee.accentId.fromColourId
                       }
-              pure $
-                result.searchResults === [expectedContact]
+              pure $ result.searchResults === [expectedContact | fromMaybe True searchee.searchable ]