dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-11-04 17:17:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

store: use badges_static_dir in #7716's tests

Browse Source
This commit is contained in:
shum committed 2026-10-29 07:54:15 +00:00
1 parent ed5d41e7ed
commit b5331ef2d6
2 files changed
+6 -6
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/Bots/StoreService/BotTests.hs
+4 -4
View File
@@ -2433,7 +2433,7 @@ walkPlayMonthEnd :: HasCallStack => TestParams -> Text -> Integer -> Int -> IO (
walkPlayMonthEnd ps planId planMonths months =
withFakePlay $ \fake@FakePlay {fpConfig} -> do
let ini = takeDirectory (gServiceAccountFile fpConfig) </> "store_service.ini"
writeFile ini "[listener]\nstatic_dir = /srv/badges\n"
writeFile ini "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig ini
ServiceState {storeVerifier} <- newServiceState >>= configureStoreVerifier (Just cfg {playStore = Just fpConfig})
withStoreServiceVerifier ps (const storeVerifier) $ \env@StoreServiceEnv {bsClock, bsController = cc} -> do
@@ -5192,7 +5192,7 @@ testAppleSubscriptionWithoutApiKey ps = do
createDirectoryIfMissing True "tests/tmp"
withTempDirectory "tests/tmp" "apple-no-api-key" $ \d -> do
B.writeFile (d </> "root.cer") (encodeSignedObject $ rootCert chain)
writeFile (d </> "store_service.ini") "[listener]\nstatic_dir = /srv/badges\n"
writeFile (d </> "store_service.ini") "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig (d </> "store_service.ini")
let apple = AppleStoreConfig {aBundleId = ourBundleId, aRootCertificates = (d </> "root.cer") :| [], aServerApi = Nothing}
ServiceState {storeVerifier} <- newServiceState >>= configureStoreVerifier (Just cfg {appleStore = Just apple})
@@ -5249,7 +5249,7 @@ testPlaySubscriptionThroughPlay :: HasCallStack => TestParams -> IO ()
testPlaySubscriptionThroughPlay ps =
withFakePlay $ \fake@FakePlay {fpConfig} -> do
let ini = takeDirectory (gServiceAccountFile fpConfig) </> "store_service.ini"
writeFile ini "[listener]\nstatic_dir = /srv/badges\n"
writeFile ini "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig ini
ServiceState {storeVerifier = withoutPlay} <- newServiceState >>= configureStoreVerifier (Just cfg)
ServiceState {storeVerifier} <- newServiceState >>= configureStoreVerifier (Just cfg {playStore = Just fpConfig})
@@ -5914,7 +5914,7 @@ testStoreChecksConfigured :: HasCallStack => TestParams -> IO ()
testStoreChecksConfigured _ = do
createDirectoryIfMissing True "tests/tmp"
withTempDirectory "tests/tmp" "store-checks" $ \d -> do
writeFile (d </> "store_service.ini") "[listener]\nstatic_dir = /srv/badges\n"
writeFile (d </> "store_service.ini") "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig (d </> "store_service.ini")
let checksFor c = (\ServiceState {storeVerifier} -> storeChecks storeVerifier) <$> (newServiceState >>= configureStoreVerifier c)
creditsFor c = (\ServiceState {storeVerifier} -> creditTestPurchases storeVerifier) <$> (newServiceState >>= configureStoreVerifier c)
tests/Bots/StoreService/StoreVerifierTests.hs
+2 -2
View File
@@ -649,7 +649,7 @@ testAppleConfiguredSubscriptions = do
ini = dir </> "store_service.ini"
apple serverApi = Just AppleStoreConfig {aBundleId = ourBundleId, aRootCertificates = rootFile :| [], aServerApi = serverApi}
B.writeFile rootFile (encodeSignedObject $ rootCert chain)
writeFile ini "[listener]\nstatic_dir = /srv/badges\n"
writeFile ini "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig ini
ServiceState {storeVerifier = withKey} <- newServiceState >>= configureStoreVerifier (Just cfg {appleStore = apple (Just fasApi)})
ServiceState {storeVerifier = withoutKey} <- newServiceState >>= configureStoreVerifier (Just cfg {appleStore = apple Nothing})
@@ -1077,7 +1077,7 @@ testPlayConfiguredSubscriptions = do
outcomes v = (,) <$> (outcome <$> checkStoreSubscription v (SubscriptionGoogle subscriptionToken) Nothing) <*> (outcome <$> checkStoreSubscription v (SubscriptionApple subscriptionId) Nothing)
acknowledging v = subscriptionAcknowledgement v SPGoogle {productId = subscriptionProductId, token = subscriptionToken}
B.writeFile rootFile (encodeSignedObject $ rootCert chain)
writeFile ini "[listener]\nstatic_dir = /srv/badges\n"
writeFile ini "[listener]\nbadges_static_dir = /srv/badges\n"
Right cfg <- readServiceConfig ini
both <- configured cfg {appleStore = apple, playStore = Just fpConfig}
playOnly <- configured cfg {playStore = Just fpConfig}