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.