From 997a6e8633af550c7aa3cee049ac42674de9a5e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 20 Aug 2026 20:53:39 +0200
Subject: Test: refactor successful attach to exported function

---
 main/Test.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index 6ee75bd..b06ed61 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -320,6 +320,7 @@ commands =
     , ( "peer-add", cmdPeerAdd )
     , ( "peer-drop", cmdPeerDrop )
     , ( "peer-list", cmdPeerList )
+    , ( "peer-get-by-addr", cmdPeerGetByAddr )
     , ( "test-message-send", cmdTestMessageSend )
     , ( "test-stream-open", cmdTestStreamOpen )
     , ( "test-stream-close", cmdTestStreamClose )
@@ -748,6 +749,16 @@ cmdPeerList = do
             ]
     cmdOut "peer-list-done"
 
+cmdPeerGetByAddr :: Command
+cmdPeerGetByAddr = do
+    Just RunningServer {..} <- gets tsServer
+    addr <- T.unwords <$> asks tiParams
+    ( _, peers ) <- liftIO $ readMVar rsPeers
+    forM_ peers $ \tpeer -> do
+        paddr <- getPeerAddress $ tpPeer tpeer
+        when (T.pack (show paddr) == addr) $ do
+            cmdOut $ "peer-get-by-addr " <> show (tpIndex tpeer)
+
 
 cmdTestMessageSend :: Command
 cmdTestMessageSend = do
-- 
cgit v1.2.3