anchor.diff:  %% @end
   %%--------------------------------------------------------------------
   get_task_def(TaskName) when is_atom(TaskName) ->
  -    gen_server:cast(?SERVER, {task_def, TaskName}).
  +    gen_server:call(?SERVER, {task_def, TaskName}).
   
   
   %%====================================================================
  
positive.code:     register_task(task4, task4_impl, [task3], true, ""),
      TaskList = gen_task_chain(task1),
      shutdown(),
      io:format("~w", [TaskList]),
      [task3_impl, task4_impl, task2_impl, task1_impl] ==  TaskList.
  
negative.code:     [task3_impl, task4_impl, task2_impl, task1_impl] == TaskList.
  
  gen_server_test() ->
      %% Give the server a chance to shut down. wait 100 millis
      timer:sleep(100),
      {ok, _} = start_link(),
      register_task(task1, task1_impl, [task2, task3], true, ""),
      register_task(task2, task2_impl, [task3, task4], true, ""),
  