In reply to mikefitzgerald:
Keep test_contol in the main process
initial
begin :main
fork
run_long;
run_short;
join_none;
run_control;
disable fork; // if you want to kill run_long
test_finished;
end :main