anchor.diff:      ct:log("formatted ~p",[{D,?OUTPUT}]),
       ?line {ok, Ret} = file:consult(?OUTPUT),
       ct:log("consulted: ~p",[Ret]),
  -    ?line M = length(Ret).
  +    check_output(M,Ret).
   
   begin_trace_with_resume(ServerNode, ClientNode, Dest) ->
       ?line {ok, _} = ttb:tracer([ServerNode,ClientNode], [{file, Dest}, resume]),
  
positive.code:     ?line {_, D} = ttb:stop([fetch, return_fetch_dir]),
      ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]),
      ?line {ok, Ret} = file:consult(?OUTPUT),
      ?line true = (2*(NumMsgs + 1) == length(Ret)).
  changing_cwd_on_remote_node(cleanup,_Config) ->
      ?line stop_client_and_server().
  
  
negative.code:     ?line ttb:tpl(client, get, []).
  
  check_size(N, Dest, Output, ServerNode, ClientNode) ->
      begin_trace(ServerNode, ClientNode, Dest),
      case Dest of
          {local, _} ->
              ttb_helper:msgs_ip(N);
          _ ->
  	    ttb_helper:msgs(N)
      end,
      {_, D} = ttb:stop([fetch, return_fetch_dir]),
      ttb:format(D, [{out, Output}, {handler, simple_call_handler()}]),
      {ok, Ret} = file:consult(Output),
      check_output(N+1, Ret).
  
  check_output(Expected, Ret)
    when length(Ret) =:= Expected -> ok;
  check_output(Expected, Ret) ->
      io:format("~p~n",[Ret]),
      io:format("Expected ~p got ~p ~n",[Expected, length(Ret)]),
      Expected = length(Ret).
  
  fetch_when_no_option_given(suite) ->
      [];
  