{ok, AliceAddr} = peer:node_addr(Alice),
    ok = peer:dial(Bob, AliceAddr),

    {ok, AliceListenAddr} = peer:node_addr(Alice),
    ok = peer:dial(Bob, AliceListenAddr),
    %% Wait for connection to be fully established and get actual peer addresses
    timer:sleep(500),
    BobPeerList = peer:peer_list(Bob),
    ?assertEqual(1, length(BobPeerList)),
    [{AliceActualAddr, _}] = BobPeerList,

    %% Wait for connection to be fully established
    wait_for_peer(Bob, AliceAddr, 10),

    AlicePeerList = peer:peer_list(Alice),
    ?assertEqual(1, length(AlicePeerList)),
    [{BobActualAddr, _}] = AlicePeerList,

    %% Bob requests channel list from Alice
    ok = peer:request_channel_list(Bob, AliceAddr),

    %% Bob requests channel list from Alice (using actual peer address)
    ok = peer:request_channel_list(Bob, AliceActualAddr),

    {ok, AliceChannels} = peer:peer_channel_list(Bob, AliceAddr),

    {ok, AliceChannels} = peer:peer_channel_list(Bob, AliceActualAddr),

    %% Alice requests channel list from Bob
    {ok, BobAddr} = peer:node_addr(Bob),
    ok = peer:request_channel_list(Alice, BobAddr),

    %% Alice requests channel list from Bob (using actual peer address)
    ok = peer:request_channel_list(Alice, BobActualAddr),

    {ok, BobChannels} = peer:peer_channel_list(Alice, BobAddr),

    {ok, BobChannels} = peer:peer_channel_list(Alice, BobActualAddr),

%% Wait for a peer to appear in the peer list (connection established)
wait_for_peer(_Pid, _PeerAddr, 0) ->
    timeout;
wait_for_peer(Pid, PeerAddr, Retries) ->
    PeerList = peer:peer_list(Pid),
    case lists:keyfind(PeerAddr, 1, PeerList) of
        false ->
            timer:sleep(100),
            wait_for_peer(Pid, PeerAddr, Retries - 1);
        _Found ->
            ok
    end.