@@ -33,6 +33,7 @@ import Control.Distributed.Process.Internal.Types
3333 , LocalNode(localEndPoint)
3434 )
3535import Control.Distributed.Process.Node
36+import Control.Distributed.Process.Internal.Primitives
3637import Control.Distributed.Process.Serializable (Serializable)
3738
3839import Test.HUnit (Assertion)
@@ -908,6 +909,22 @@ testDie transport = do
908909
909910 takeMVar done
910911
912+testPrettyExit :: NT.Transport -> Assertion
913+testPrettyExit transport = do
914+ localNode <- newLocalNode transport initRemoteTable
915+ done <- newEmptyMVar
916+
917+ _ <- forkProcess localNode $ do
918+ (die "timeout")
919+ `catch` \ex@(ProcessExitException from _) ->
920+ let expected = "origin=" ++ (show from) ++
921+ ",reason=timeout"
922+ in do
923+ True <- return $ (show ex) == expected
924+ liftIO $ putMVar done ()
925+
926+ takeMVar done
927+
911928testExitLocal :: NT.Transport -> Assertion
912929testExitLocal transport = do
913930 localNode <- newLocalNode transport initRemoteTable
@@ -976,6 +993,7 @@ tests (transport, transportInternals) = [
976993 , testCase "KillLocal" (testKillLocal transport)
977994 , testCase "KillRemote" (testKillRemote transport)
978995 , testCase "Die" (testDie transport)
996+ , testCase "PrettyExit" (testPrettyExit transport)
979997 , testCase "ExitLocal" (testExitLocal transport)
980998 , testCase "ExitRemote" (testExitRemote transport)
981999 ]