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:          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
          ]). 
  
  %% Spawned functions
  
negative.code:     %% Verify it computes normally...
      [begin
           ?TM:node_task_deliver_data(Node_Task_Pid, 5),
           15 = receive Data -> Data end
       end || _N <- lists:seq(1,N)].
      
  sys_statistics(_Config) ->
      Args = [_Kill_Switch, _Node_Fn, _Dist_Type] = create_new_coop_node_args(random),
      {_Node_Ctl_Pid, Node_Task_Pid} = apply(?TM, new, Args),
      [] = ?TM:node_task_get_downstream_pids(Node_Task_Pid),
      ok = sys:statistics(Node_Task_Pid, true),
      {ok, Props1} = sys:statistics(Node_Task_Pid, get),
      [0,0] = [proplists:get_value(P, Props1) || P <- [messages_in, messages_out]],
      send_data(10, Node_Task_Pid),
      {ok, Props2} = sys:statistics(Node_Task_Pid, get),
      [12,10] = [proplists:get_value(P, Props2) || P <- [messages_in, messages_out]],
      ok = sys:statistics(Node_Task_Pid, false).
  
  sys_log(_Config) ->
      Args = [_Kill_Switch, _Node_Fn, _Dist_Type] = create_new_coop_node_args(random),
      {_Node_Ctl_Pid, Node_Task_Pid} = apply(?TM, new, Args),
      [] = ?TM:node_task_get_downstream_pids(Node_Task_Pid),
      ok = sys:log(Node_Task_Pid, true),
      {ok, []} = sys:log(Node_Task_Pid, get),
      send_data(6, Node_Task_Pid),
      {ok, Events} = sys:log(Node_Task_Pid, get),
      10 = length(Events),
      Ins = lists:duplicate(5,{in,5}),
      Ins = [{Type,Num} || {{Type,Num}, _Flow, _Fun} <- Events],
      Outs = lists:duplicate(5,{out,15}),
      Outs = [{Type,Num} || {{Type,Num,_Pid}, _Flow, _Fun} <- Events],
      sys:log(Node_Task_Pid, false).
  
      %% sys:trace(Node_Task_Pid, true),
      %% sys:trace(Node_Task_Pid, false),
  