eunit測試超時

Question

我如何測試一個gen_fsm確實超時與eunit？

{ok, GH} = gen_fsm:start_link(myFSM, [], []), 
//after 15 sec it should timeout if no messages received. 
//What must I write here to test it? 

Answer 1

我相信這是一個解決辦法：

{ok, GH} = gen_fsm:start_link(myFSM, [], []), 
Ref = erlang:monitor(process,GH), 
receive 
    {'DOWN', Ref, process, GH, normal} -> 
     test_passed 
after 
    15000 -> 
     ?assert("FSM did not die.") % will always fail 
end.