anchor.diff:  	    ok;
   	Q ->
   	    io:format("Best Q = ~p", [Q]),
  -	    ?line ?t:fail()
  +	    ?t:fail()
       end,
       ok.
   
  
positive.code:     end.
  
  receive_in_between(Config) when is_list(Config) ->
      ?line Pid = spawn_link(fun echo_loop/0),
      ?line [{ok,{a,b}} = call2(Pid, {a,b}) || _ <- lists:seq(1, 100000)],
      ok.
  
  call2(Pid, Msg) ->
  
negative.code:     ?t:timetrap_cancel(Dog).
  
  call_with_huge_message_queue(Config) when is_list(Config) ->
      Pid = spawn_link(fun echo_loop/0),
  
      {Time,ok} = tc(fun() -> calls(10, Pid) end),
  
      [self() ! {msg,N} || N <- lists:seq(1, 500000)],
      erlang:garbage_collect(),
      {NewTime1,ok} = tc(fun() -> calls(10, Pid) end),
      {NewTime2,ok} = tc(fun() -> calls(10, Pid) end),
  
      io:format("Time for empty message queue: ~p", [Time]),
      io:format("Time1 for huge message queue: ~p", [NewTime1]),
  