anchor.diff:  
       %% given
       DataSize = 1024 * ?TEST_BLOCK_SIZE,
  -    Data = generate_binary(DataSize),
       WriteFunOpt = make_opt_fun(write_fun, {ok, ?FILE_HANDLE2, DataSize}),
       ReadFunOpt = make_opt_fun(read_fun, {error, ?FILE_HANDLE2, test_error}),
  -    RtransferOpts = [ReadFunOpt, WriteFunOpt | ?DEFAULT_RTRANSFER_OPTS],
  -
  -    %% when
  -    remote_apply(Worker1, rtansfer, start_link, [RtransferOpts]),
  -    remote_apply(Worker2, rtansfer, start_link, [RtransferOpts]),
  +    RtransferOpts1 = [ReadFunOpt, WriteFunOpt, get_binding(Worker1)| ?DEFAULT_RTRANSFER_OPTS],
  +    RtransferOpts2 = [ReadFunOpt, WriteFunOpt, get_binding(Worker2)| ?DEFAULT_RTRANSFER_OPTS],
  +
  +    %% when
  +    ?assertMatch({ok, _},
  +        remote_apply(Worker1, rtransfer, start_link, [RtransferOpts1])
  +    ),
  +    ?assertMatch({ok, _},
  +        remote_apply(Worker2, rtransfer, start_link, [RtransferOpts2])
  +    ),
   
       Ref1 = remote_apply(
           Worker1, rtransfer, prepare_request,
  
positive.code:         change_rtransfer_opt({open_fun, {error, test_error}}, RtransferOpts),
  
      %% when
      remote_apply(Worker1, rtansfer, start_link, [RtransferOpts2]),
      remote_apply(Worker2, rtansfer, start_link, [RtransferOpts2]),
  
      Ref1 = remote_apply(
          Worker1, rtransfer, prepare_request,
  
negative.code: 
  read_fun(Expected) ->
      fun(_Handle, _Offset, _Size) ->
          ?info_stacktrace("CALLED READ FUN~n"),
          Expected
      end.
  
  write_fun(Expected) ->
      fun(_Handle, _Offset, _Data) ->
          ?info_stacktrace("CALLED WRITE FUN~n"),
          Expected
      end.
  
  open_fun(Expected) ->
      fun(_UUID, _Mode) -> ?info_stacktrace("CALLED OPEN FUN~n"), Expected end.
  
  close_fun() ->
      fun(_Handle) -> ?info_stacktrace("CALLED CLOSE FUN~n"),ok end.
  
  notify_fun() ->
      fun(_Ref, _Size) ->
          ?info_stacktrace("CALLED NOTIFY FUN~n"),
          ok
      end.
  
  notify_fun(CounterPid) ->
      fun(_Ref, _Size) ->
  %%         ct:pal("CALLED NOTIFY FUN~n"),
          ?info_stacktrace("CALLED NOTIFY FUN~n"),
          CounterPid ! increase,
          ok
      end.
  
  notify_fun(Counter, TestNode) ->
      fun(_Ref, _Size) ->
  %%         ct:pal("CALLED NOTIFY FUN~n"),
          ?info_stacktrace("CALLED NOTIFY FUN~n"),
          {Counter, TestNode} ! increase,
          ok
      end.
  
  on_complete_fun(Pid) ->
      fun(_Ref, Arg) ->
  %%         ct:pal("CALLED ON_COMPLETE FUN: ~p~n", [Arg]),
          ?info_stacktrace("CALLED ON_COMPLETE FUN: ~p~n", [Arg]),
          Pid ! {on_complete, Arg},
          ok
      end.
  
  get_binding(Node) ->
      Ip = get_node_ip(Node),
      {ok, InetIp} = inet:parse_address(Ip),
      {bind, [InetIp]}.
  
  change_rtransfer_opt({OptKey, OptValue}, Opts) ->
      case lists:keysearch(OptKey, 1, Opts) of
  