Packages

SIP Test Suite

Current section

Files

Jump to
busytone src tests t_transfer_to_same_queue.erl
Raw

src/tests/t_transfer_to_same_queue.erl

-module(t_transfer_to_same_queue).
-export([main/0]).
% test an agent recieve a call back just after transferring call to the same queue
main() ->
Queue = admin:new_queue(#{
skills => #{ english => true },
recipe => []
}),
Agent = test_lib:available(admin:new_agent(#{ skills => #{ english => true }})),
{ok, InQueueCall} = call_sup:originate(Queue),
UUID = test_lib:answer(Agent),
test_lib:ensureTalking(UUID, InQueueCall),
agent:rpc_call(Agent, <<"transfer_to_queue">>, [<<"ch1">>, Queue, #{ skills => [ <<"english">> ]}]),
Agent1 = test_lib:available(admin:new_agent(#{ skills => #{} })),
{'EXIT', {timeout, _}} = (catch agent:wait_for_call(Agent1)),
agent:rpc_call(Agent, <<"end_wrapup">>, [<<"ch1">>]),
UUID2 = test_lib:answer(Agent, <<"ch2">>),
test_lib:ensureTalking(UUID2, InQueueCall).