{ok, Chans} = peer:channelList(P),

    {ok, Chans} = peer:channel_list(P),

    {ok, []} = peer:channelList(P),

    {ok, []} = peer:channel_list(P),

    {ok, ["default"]} = peer:channelList(P),

    {ok, ["default"]} = peer:channel_list(P),

    {ok, []} = peer:channelList(P),

    {ok, []} = peer:channel_list(P),

connect_two_peers_test() ->
    [A, B] = [make_test_args() || _ <- lists:seq(1,2)],
    {ok, Alfi} = peer:start_link(A),
    {ok, Bert} = peer:start_link(B),
    peer:join(Alfi, "test"),
    peer:join(Bert, "test"),
    {ok, AlfiAddr} = peer:node_addr(Alfi),
    ok = peer:dial(Bert, AlfiAddr),
    timer:sleep(1000),
    AlfisList = peer:peer_list(Alfi),
    ?debugFmt("~nA's list: ~p~n", [AlfisList]),
    ?assertEqual(1, length(AlfisList)),
    BertsList = peer:peer_list(Bert),
    ?debugFmt("~nB's list: ~p~n", [BertsList]),
    ?assertEqual(1, length(BertsList)),
    ok = peer:stop(Alfi),
    ok = peer:stop(Bert).

-export([dial/2, peerList/1, channelList/1, join/2, leave/2]).

-export([node_addr/1, dial/2, peer_list/1, channel_list/1, join/2, leave/2]).

dial(Pid, {Host, Port}) ->
    gen_server:cast(Pid, {peerDial, {Host, Port}});

    gen_server:cast(Pid, {dialPeer, [Host, Port]}).

    gen_server:cast(Pid, {peerDial, {Host, Port}}).

peerList(Pid) ->

node_addr(Pid) ->
    gen_server:call(Pid, {nodeAddr}).
peer_list(Pid) ->

channelList(Pid) ->

channel_list(Pid) ->

%% {ok, P} = peer:start_link("localhost", 3114). peer:join(P, "default"). peer:join(P, "welcome"). peer:channelList(P). peer:dial(P, "localhost:3113").

    [Host, Port] = proplists:get_value(listener, Args),

    [Host, WantPort] = proplists:get_value(listener, Args),

    {ok, Lis} = gen_tcp:listen(Port, LisOpts),

    {ok, Lis} = gen_tcp:listen(WantPort, LisOpts),
    {ok, Port} = inet:port(Lis),

    {ok, [{listenProc, ListenProc}, {eventLoop, Handler}, {database, Db}]}.

    GenSrvState = [ {listenProc, ListenProc}
                  , {listenAddr, {LisAddr, Port}}
                  , {eventLoop, Handler}
                  , {database, Db}],
    {ok, GenSrvState}.
handle_call({nodeAddr}, _From, State) ->
    LisAddr = proplists:get_value(listenAddr, State),
    {reply, {ok, LisAddr}, State};

handle_cast({dialPeer, [Host, Port]}, State) ->

handle_cast({peerDial, {Host, Port}}, State) ->

            MsgSize = byte_size(Data),

                              MsgSize = byte_size(Data),

            io:format("Connection closed ~p~n", [Conn]),