fix test node creation

Author: andrewjstone

.gitignore

@@ -4,4 +4,5 @@ ebin
 .eunit
 *.beam
 *.swp
+erl_crash.dump
 

src/rafter.erl

@@ -6,18 +6,18 @@
 -export([append/2, start_node/2]).
 
 %% Test API
--export([start_cluster/0, start_test_node/0]).
+-export([start_cluster/0, start_test_node/1]).
 
 %% @doc Only use this during testing
 start_cluster() ->
     application:start(lager),
     application:start(rafter),
     rafter_sup:start_cluster().
 
-start_test_node() ->
+start_test_node(Name) ->
     application:start(lager),
     application:start(rafter),
-    Me = {peer1, node()},
+    Me = {Name, node()},
     Peers = test_peers(Me),
     start_node(Me, Peers).
 
@@ -28,5 +28,7 @@ append(_LocalPeer, _Command) ->
     ok.
 
 test_peers(Me) ->
-    Peers = [{Name, node()} || Name <- [peer1, peer2, peer3, peer4, peer5]],
+    [_Name, Domain] = string:tokens(atom_to_list(node()), "@"),
+    Peers = [{list_to_atom(Name), list_to_atom(Name ++ "@" ++ Domain)} || 
+        Name <- ["peer1", "peer2", "peer3", "peer4", "peer5"]],
     lists:delete(Me, Peers).

src/rafter_consensus_fsm.erl

@@ -149,7 +149,7 @@ follower(#append_entries{term=Term, from=From, prev_log_index=PrevLogIndex,
             {reply, NewRpy, follower, State4, Duration}
     end;
 
-%% Handle append requests from users. Transparently redirect to leader.
+%% Handle append requests from users. Redirect to leader.
 follower({append, _Command}, _From, #state{leader=undefined}=State) ->
     {reply, {error, election_in_progress}, follower, State, ?timeout()};
 follower({append, _Command}, _From, #state{leader=Leader}=State) ->

src/rafter_requester.erl

@@ -18,6 +18,6 @@ send(To, From, Msg) ->
                            is_record(Rpy, append_entries_rpy) -> 
                       rafter_consensus_fsm:send(From, Rpy);
                   E ->
-                      E
+                      lager:error("Error sending ~p to To ~p: ~p", [Msg, To, E])
                   end
           end).