anchor.diff:  
   %% --------------------------------------------------------------------------------------------------------------------
   
  -simple_start_test() ->
  +simple_start_test_d() ->
   	Got = pre_channels_proto:start_link(fake_ref, fake_socket, fake_transport, []),
   	?assertMatch({ok, _}, Got),
   	{ok, Pid} = Got,
   	?assert(is_pid(Pid)),
   
   	% Teardown
  +	Mon = erlang:monitor(process, Pid),
   	gen_server:cast(Pid, stop),
  -	Mon = erlang:monitor(process, Pid),
  +
  +	% Wait for the pid to exit
   	receive
   		{'DOWN', Mon, process, Pid, _} ->
   			ok
  
positive.code: 		{ "can send via ssl",
  			fun() ->
  				meck:expect(fake_transport, send, fun(_Socket, Message) ->
  					%% FIXME: update to use envelope record
  					Expected = <<"14:{\"foo\":\"Bar!\"},">>,
  					?assertEqual(Expected, Message)
  				end),
  				State = #state{ socket = fake_socket, transport = fake_transport},
  				pre_channels_proto:handle_cast({send, [{foo, <<"Bar!">>}]}, State),
  				?assert(meck:validate(fake_transport))
  			end
  		},
  
negative.code: -module(pre_channels_proto_tests).
  
  -include("pre_client.hrl").
  -include_lib("eunit/include/eunit.hrl").
  
  -record(state, {
  