anchor.diff:      [?CTL_MSG({link, _Pids2})] = [I || I <- Results, element(1,element(3, I)) =:= link],
       [?DATA_MSG({new, age, {coop_node, _, _}})]
           = [I || I <- Results, element(1, element(3, I)) =:= new],
  -    true = is_process_alive(Rcvr),
  +    timer:sleep(50),
       Rcvr ! {results, Self},
  -    [Answer] = receive B -> B after 1000 -> no_value end,
  +    [[Answer]] = check_worker([]),
       meck:unload(coop).
   
   check_worker(Acc) ->
       receive Any -> check_worker([Any | Acc])
  -    after 1000  -> lists:reverse(Acc)
  +    after 100   -> lists:reverse(Acc)
       end.
   check_worker(Ref, Acc) ->
       receive
  
positive.code:         = esp_cache:new_worker_node(Fake_Coop_Head),
      ?CTL_MSG({link, _Pids1}) = receive A -> A after 1000 -> timeout end,
  
      %% Create a new cached datum node from a simple value...
      R1 = make_ref(),
      Rcvr = proc_lib:spawn_link(?MODULE, check_worker, [R1, []]),
      coop:relay_data(Coop_Node, {add, {age, Value_Expr, {R1, Rcvr}}}),
  
negative.code: -export([all/0, init_per_suite/1, end_per_suite/1]).
  
  %% Test Coop Node functionality individually
  -export([datum_value/1,
           worker_value/1, worker_mfa/1, worker_replace/1
          ]).
  
  %% Spawned functions must be exported
  -export([check_worker/2, compute_value/1]).
  
  all() -> [
            datum_value,
            worker_value, worker_mfa, worker_replace
           ].
  
  init_per_suite(Config) -> Config.
  end_per_suite(_Config) -> ok.
  