anchor.diff:  end_per_testcase(TestCase, Config) ->
       error_logger:tty(true),
       error_logger:info_msg("~p end~n", [TestCase]),
  -    stdout("~p end\r\n", [TestCase]),
  +    stderr("~p end\r\n", [TestCase]),
       Config.
   
   %%%------------------------------------------------------------------------
  
positive.code: 
  init_per_testcase(TestCase, Config) ->
      error_logger:info_msg("~p init~n", [TestCase]),
      stdout("\r\n~p init\r\n", [TestCase]),
      {ok, Services} = cloudi_service_api:services(infinity),
      lists:foreach(fun({ServiceId, _}) ->
          cloudi_service_api:services_remove([ServiceId], infinity)
  
negative.code: request_info() ->
      binary(1).
  
  stderr(Format, Args) ->
      Direct = erlang:open_port({fd, 0, 2}, [out, {line, 256}]),
      erlang:port_command(Direct, io_lib:format(Format, Args)),
      erlang:port_close(Direct),
      ok.
  