fbcf1ea · distributed-process

git.iko.soy/distributed-process

on master help sign in

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

fbcf1eaTim Watson14 years ago

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

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

870 us <- getSelfPid

871 kill pid "TestKill"

872 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"

874 liftIO $ putMVar done ()

875

876 takeMVar done

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

889 us <- getSelfPid

890 kill pid "TestKill"

891 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"

893 liftIO $ putMVar done ()

894

895 takeMVar done