dandri/simplexmq
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-10-23 00:02:44 +00:00
Code Issues Packages Projects Releases Wiki Activity

test: upgrade/downgrade to/from service subscriptions

Browse Source
This commit is contained in:
Evgeny Poberezkin committed 2025-08-15 12:36:54 +01:00
1 parent 6092fc45e6
commit 34df7e4a21
2 files changed
+153 -26
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/SMPClient.hs
+6
View File
@@ -183,6 +183,12 @@ testSMPClient_ host port vr serviceCreds_ client = do
| authCmdsSMPVersion `isCompatible` vr = Just alpnSupportedSMPHandshakes
| otherwise = Nothing
runSMPClient :: Transport c => TProxy c 'TServer -> (THandleSMP c 'TClient -> IO a) -> IO a
runSMPClient _ test' = testSMPClient test'
runSMPServiceClient :: Transport c => TProxy c 'TServer -> (TLS.Credential, C.KeyPairEd25519) -> (THandleSMP c 'TClient -> IO a) -> IO a
runSMPServiceClient _ serviceCreds test' = testSMPServiceClient serviceCreds test'
testNtfServiceClient :: Transport c => TProxy c 'TServer -> C.KeyPairEd25519 -> (THandleSMP c 'TClient -> IO a) -> IO a
testNtfServiceClient _ keys client = do
tlsNtfServerCreds <- loadServerCredential ntfTestServerCredentials