anchor.diff:      end,
       fun stop_helper_/1,
       { inorder, [ 
  -      ?_assertExit({port_timeout, _}, do(timeout, [], 10 )),
  +      ?_assertExit({port_timeout, _}, do(timeout, [], 1 )),
         ?_assertMatch( {ok, _ }, ls() )
       ]}
  +  }.
  +
  +stop_helper_test_() -> 
  +  { setup, 
  +    % start fun
  +    fun() -> 
  +      F = fun(F) -> 
  +        receive
  +          Any -> io:format(user,"~p Hey, got: ~p~n", [ self(), Any ])
  +        end,
  +        F(F)
  +      end,
  +      spawn(
  +        fun() -> 
  +          process_flag(trap_exit, true),
  +          F(F)
  +        end
  +      )
  +    end,
  +    % stop fun,
  +    fun(P) -> exit(P, kill) end,
  +    % test gen
  +    fun(P) -> 
  +      ?_assertThrow({timeout,_}, stop_helper_(P, 1))
  +    end
     }.
   
   code_change_test() -> 
  
positive.code:             {stop, port_timeout, State};
          { error, Error } -> 
              {reply, { error, Error  }, State}
    end;
  
  handle_call(stop, _From, State) -> 
    {stop, normal, stopped, State}.
  
  %% handle_cast
  %% @hidden
  
negative.code:   receive 
      {'EXIT', Pid, Reason} -> Reason
    after Timeout -> 
      throw({ timeout, { Pid, "Pid not responding to EXIT?"} })
    end.
  
  start_link_test_() -> 
  