Reduce length of temporary socket filenames

Author: palas

cardano-api/cardano-api.cabal

@@ -333,7 +333,6 @@ test-suite cardano-api-test
     containers,
     data-default,
     directory,
-    filepath,
     hedgehog >=1.1,
     hedgehog-extras,
     hedgehog-quickcheck,
@@ -366,7 +365,7 @@ test-suite cardano-api-test
     Test.Cardano.Api.Genesis
     Test.Cardano.Api.GovAnchorValidation
     Test.Cardano.Api.IO
-    Test.Cardano.Api.IPCMock
+    Test.Cardano.Api.IPC
     Test.Cardano.Api.Json
     Test.Cardano.Api.KeysByron
     Test.Cardano.Api.Ledger

…ano-api-test/Test/Cardano/Api/IPCMock.hs …cardano-api-test/Test/Cardano/Api/IPC.hscardano-api/test/cardano-api-test/Test/Cardano/Api/IPCMock.hs renamed to cardano-api/test/cardano-api-test/Test/Cardano/Api/IPC.hs cardano-api/test/cardano-api-test/Test/Cardano/Api/IPCMock.hs renamed to cardano-api/test/cardano-api-test/Test/Cardano/Api/IPC.hs

@@ -4,7 +4,7 @@
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Test.Cardano.Api.IPCMock
+module Test.Cardano.Api.IPC
   ( tests
   )
 where
@@ -27,7 +27,6 @@ import Lens.Micro ((&))
 import Network.Socket
 import Network.Socket.ByteString (sendAll)
 import System.Directory (removeFile)
-import System.FilePath ((</>))
 
 import Test.Cardano.Ledger.Common (HasCallStack, when)
 
@@ -51,7 +50,8 @@ prop_mockInteractionWithNode =
     -- We make a query to obtain the current era
     eEra <-
       mockNode
-        (work </> "ms1")
+        work
+        "ms1"
         "test/cardano-api-test/files/input/ipc-mock/server-client-1.raw"
         ( \socketFile ->
             H.evalIO $
@@ -84,7 +84,8 @@ prop_mockInteractionWithNode =
     -- We make a query to obtain the UTxOs for the given address
     eUtxo <-
       mockNode
-        (work </> "ms2")
+        work
+        "ms2"
         "test/cardano-api-test/files/input/ipc-mock/server-client-2.raw"
         ( \socketFile ->
             H.evalIO $
@@ -172,7 +173,8 @@ prop_mockInteractionWithNode =
 
     result <-
       mockNode
-        (work </> "ms3")
+        work
+        "ms3"
         "test/cardano-api-test/files/input/ipc-mock/server-client-3.raw"
         ( \socketFile ->
             H.evalIO $ Api.submitTxToNodeLocal (connectionInfo (File socketFile)) (Api.TxInMode sbe signedTx)
@@ -185,7 +187,7 @@ prop_mockInteractionWithNode =
 tests :: TestTree
 tests =
   testGroup
-    "Test.Cardano.Api.IPCMock"
+    "Test.Cardano.Api.IPC"
     [ testProperty "Test mock interation with node" prop_mockInteractionWithNode
     ]
 
@@ -209,17 +211,18 @@ mockNode
   => FilePath
   -- ^ Directory to create the socket file in.
   -> FilePath
+  -- ^ Name of the unix socket file to create
+  -> FilePath
   -- ^ File to read the raw replay data from.
   -> (FilePath -> m a)
   -- ^ Action to run while the server is being mocked.
   -> m a
-mockNode work rawReplayData action = do
+mockNode work fileName rawReplayData action = do
   actionFinished :: MVar () <- H.evalIO newEmptyMVar
   bracket
     -- Server set-up (resource acquisition)
     ( do
-        _ <- H.createDirectoryIfMissing work
-        socketFile <- H.noteTempFile work "mock-node.socket"
+        socketFile <- H.noteTempFile work fileName
         sock <- H.evalIO $ do
           sock <- socket AF_UNIX Stream defaultProtocol
           bind sock (SockAddrUnix socketFile)

cardano-api/test/cardano-api-test/cardano-api-test.hs

@@ -17,7 +17,7 @@ import Test.Cardano.Api.Experimental qualified
 import Test.Cardano.Api.Genesis qualified
 import Test.Cardano.Api.GovAnchorValidation qualified
 import Test.Cardano.Api.IO qualified
-import Test.Cardano.Api.IPCMock qualified
+import Test.Cardano.Api.IPC qualified
 import Test.Cardano.Api.Json qualified
 import Test.Cardano.Api.KeysByron qualified
 import Test.Cardano.Api.Ledger qualified
@@ -54,7 +54,7 @@ tests =
     , Test.Cardano.Api.Experimental.tests
     , Test.Cardano.Api.Genesis.tests
     , Test.Cardano.Api.IO.tests
-    , Test.Cardano.Api.IPCMock.tests
+    , Test.Cardano.Api.IPC.tests
     , Test.Cardano.Api.Json.tests
     , Test.Cardano.Api.KeysByron.tests
     , Test.Cardano.Api.Ledger.tests