TESTING: Moar noise

Author: akshaymankar

integration/test/Testlib/ModService.hs

@@ -305,7 +305,7 @@ ensureFederatorPortIsFree resource = do
               liftIO $ threadDelay 100_000
               check federatorExternalPort
             Right Nothing -> pure ()
-            Left e -> assertFailure $ "Failed while parsing ss output with error: " <> e <> "\n" <> "ss output:\n" <> ssOutput
+            Left e -> assertFailure $ prefix <> "Failed while parsing ss output with error: " <> e <> "\n" <> "ss output:\n" <> ssOutput
 
 parseSS :: Text -> Either String (Maybe (String, ProcessID))
 parseSS input =
@@ -411,11 +411,11 @@ cleanupService logPrefix inst = do
   for_ mPid (signalProcess keyboardSignal)
   timeout 50000 (waitForProcess inst.handle) >>= \case
     Just _ ->
-      putStrLn $ logPrefix <> " is dead"
+      putStrLn $ logPrefix <> "is dead, pid = " <> show mPid
     Nothing -> do
       for_ mPid (signalProcess killProcess)
       void $ waitForProcess inst.handle
-      putStrLn $ logPrefix <> " killed with -9"
+      putStrLn $ logPrefix <> "killed with -9, pid = " <> show mPid
   whenM (doesFileExist inst.config) $ removeFile inst.config
   whenM (doesDirectoryExist inst.config) $ removeDirectoryRecursive inst.config