From 270cd6c340644873ad1a1ec568284ed65bc99efc Mon Sep 17 00:00:00 2001
From: "Evgeny @ SimpleX Chat"
 <259188159+evgeny-simplex@users.noreply.github.com>
Date: Mon, 29 Jun 2026 06:27:19 +0000
Subject: [PATCH] change tests

---
 tests/ChatTests.hs       | 2 --
 tests/ChatTests/Names.hs | 4 ++--
 tests/Test.hs            | 6 ++++++
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/tests/ChatTests.hs b/tests/ChatTests.hs
index 3bb796d89b..ab532edaf2 100644
--- a/tests/ChatTests.hs
+++ b/tests/ChatTests.hs
@@ -8,7 +8,6 @@ import ChatTests.Files
 import ChatTests.Forward
 import ChatTests.Groups
 import ChatTests.Local
-import ChatTests.Names
 import ChatTests.Profiles
 import Test.Hspec hiding (it)
 
@@ -22,4 +21,3 @@ chatTests = do
   describe "file tests" chatFileTests
   describe "profile tests" chatProfileTests
   describe "chat list pagination tests" chatListTests
-  describe "names tests" chatNamesTests
diff --git a/tests/ChatTests/Names.hs b/tests/ChatTests/Names.hs
index 205f942be2..5af5c3e668 100644
--- a/tests/ChatTests/Names.hs
+++ b/tests/ChatTests/Names.hs
@@ -23,8 +23,8 @@ testConnectByName ps = withSmpServerAndNames $ \reg ->
     aliceName = SimplexNameInfo NTContact (SimplexNameDomain TLDSimplex "alice" [])
     test reg alice bob = do
       alice ##> "/ad"
-      cLink <- getContactLink alice True
-      registerName reg aliceName (contactNameRecord "alice" (T.pack cLink))
+      (shortLink, _) <- getContactLinks alice True
+      registerName reg aliceName (contactNameRecord "alice" (T.pack shortLink))
       bob ##> "/c @alice.simplex"
       alice <#? bob
       alice ##> "/ac bob"
diff --git a/tests/Test.hs b/tests/Test.hs
index 874428bc1f..515098c5d1 100644
--- a/tests/Test.hs
+++ b/tests/Test.hs
@@ -8,6 +8,7 @@ import Bots.DirectoryTests
 import ChatClient
 import ChatTests
 import ChatTests.DBUtils
+import ChatTests.Names (chatNamesTests)
 import ChatTests.Utils (xdescribe'')
 import Control.Logger.Simple
 import Data.Time.Clock.System
@@ -71,6 +72,9 @@ main = do
       describe "Message batching" batchingTests
       describe "Operators" operatorTests
       describe "Random servers" randomServersTests
+#if !defined(dbPostgres)
+      around (tmpTestBracket chatQueryStats agentQueryStats) $ describe "names tests" chatNamesTests
+#endif
 #if defined(dbPostgres)
       createdDropDb . around testBracket
 #else
@@ -96,6 +100,8 @@ main = do
 #else
     testBracket chatQueryStats agentQueryStats test =
       withSmpServer $ tmpBracket $ \tmpPath -> test TestParams {tmpPath, chatQueryStats, agentQueryStats, printOutput = False}
+    tmpTestBracket chatQueryStats agentQueryStats test =
+      tmpBracket $ \tmpPath -> test TestParams {tmpPath, chatQueryStats, agentQueryStats, printOutput = False}
 #endif
     tmpBracket test = do
       t <- getSystemTime