unit-testing - タイムアウトの 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

これが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.