fbcf1ea · distributed-process

git.iko.soy/distributed-process

changing the ProcessKillException 'show' output broke the tests - fix

commitfbcf1ea14ef56423fcdb9b4d7cb23129a622f907 authorTim Watson <tim@rabbitmq.com> dateWed 16 Jan 2013, 23:44 (14 years ago) parent414d958

1 file changed+2−2

unifiedsplit

distributed-process/tests/TestCH.hs+2−2

@@ -870,7 +870,7 @@ testKillLocal transport = do

870870 us <- getSelfPid

871871 kill pid "TestKill"

872872 ProcessMonitorNotification ref' pid' (DiedException ex) <- expect

873− True <- return $ ref == ref' && pid == pid' && ex == "Kill by " ++ show us ++ ": TestKill"

873+ True <- return $ ref == ref' && pid == pid' && ex == "killed-by=" ++ show us ++ ",reason=TestKill"

874874 liftIO $ putMVar done ()

875875

876876 takeMVar done

@@ -889,7 +889,7 @@ testKillRemote transport = do

889889 us <- getSelfPid

890890 kill pid "TestKill"

891891 ProcessMonitorNotification ref' pid' (DiedException reason) <- expect

892− True <- return $ ref == ref' && pid == pid' && reason == "Kill by " ++ show us ++ ": TestKill"

892+ True <- return $ ref == ref' && pid == pid' && reason == "killed-by=" ++ show us ++ ",reason=TestKill"

893893 liftIO $ putMVar done ()

894894

895895 takeMVar done