Fix: /i/user/meta-info (stern) (#3281)

changelog.d/3-bug-fixes/pr-3281

@@ -0,0 +1 @@
+Fixed `/i/user/meta-info` in backoffice/stern

tools/stern/src/Stern/Intra.hs

@@ -813,7 +813,7 @@ getUserProperties uid = do
             b
             ( method GET
                 . header "Z-User" (toByteString' uid)
-                . versionedPaths ["/properties", toByteString' x]
+                . versionedPaths ["properties", toByteString' x]
                 . expect2xx
             )
       info $ msg ("Response" ++ show r)

tools/stern/test/integration/API.hs

@@ -27,7 +27,7 @@ import Bilge.Assert
 import Brig.Types.Intra
 import Control.Applicative
 import Control.Lens hiding ((.=))
-import Data.Aeson (ToJSON)
+import Data.Aeson (ToJSON, Value)
 import Data.ByteString.Conversion
 import Data.Handle
 import Data.Id
@@ -42,6 +42,7 @@ import Test.Tasty
 import Test.Tasty.HUnit
 import TestSetup
 import Util
+import Wire.API.Properties (PropertyKey)
 import Wire.API.Routes.Internal.Brig.Connection
 import qualified Wire.API.Routes.Internal.Brig.EJPD as EJPD
 import Wire.API.Routes.Internal.Galley.TeamsIntra (tdStatus)
@@ -116,6 +117,8 @@ testSearchVisibility = do
 testGetUserMetaInfo :: TestM ()
 testGetUserMetaInfo = do
   uid <- randomUser
+  let k = fromMaybe (error "invalid property key") $ fromByteString "WIRE_RECEIPT_MODE"
+  putUserProperty uid k "bar"
   -- Just make sure this returns a 200
   void $ getUserMetaInfo uid
 
@@ -615,3 +618,8 @@ unlockFeature ::
 unlockFeature tid = do
   g <- view tsGalley
   void $ put (g . paths ["i", "teams", toByteString' tid, "features", Public.featureNameBS @cfg, "unlocked"] . expect2xx)
+
+putUserProperty :: UserId -> PropertyKey -> Value -> TestM ()
+putUserProperty uid k v = do
+  b <- view tsBrig
+  void $ put (b . paths ["properties", toByteString' k] . json v . zUser uid . zConn "123" . expect2xx)