anchor.diff:      %% Suspend message handling and get no result...
       sys:suspend(Node_Task_Pid),
       ?TM:node_task_deliver_data(Node_Task_Pid, 5),
  -    0 = receive Data2 -> Data2 after 100 -> 0 end,
  +    0 = receive Data2 -> Data2 after 1000 -> 0 end,
       true = is_process_alive(Node_Task_Pid),
   
       %% Resume and result appears.
  
positive.code:     %% Verify it computes normally...
      [begin
           ?TM:node_task_deliver_data(Node_Task_Pid, 5),
           15 = receive Data1 -> Data1 end
       end || _N <- lists:seq(1,10)],
  
      error_logger:info_msg("Stats: ~p~n", [sys:statistics(Node_Task_Pid, get)]),
      error_logger:info_msg("Last logged: ~p~n", [sys:log(Node_Task_Pid, get)]),
      sys:trace(Node_Task_Pid, false),
      sys:statistics(Node_Task_Pid, false),
      sys:log(Node_Task_Pid, false).
  
negative.code:          task_compute_one/1, task_compute_three_round_robin/1,
           task_compute_three_broadcast/1, task_compute_random/1,
  
           sys_suspend/1, sys_format/1, sys_statistics/1, sys_log/1
          ]). 
  
  %% Spawned functions
  