RuhNetConsulting
/
rtpengine
mirror of https://github.com/sipwise/rtpengine


								#!/usr/bin/perl


								use strict;

								use warnings;

								use NGCP::Rtpengine::Test;

								use IO::Socket;


								my $r = NGCP::Rtpengine::Test->new();

								my ($a, $b) = $r->client_pair(

									{sockdomain => &Socket::AF_INET6},

									{sockdomain => &Socket::AF_INET6}

								);


								$r->timer_once(3, sub {

										$b->answer($a, ICE => 'remove', label => "callee");

										$a->start_rtp();

										$a->start_rtcp();

									});

								$r->timer_once(10, sub { $r->stop(); });


								$a->offer($b, ICE => 'remove', label => "caller");

								$b->start_rtp();

								$b->start_rtcp();


								$r->run();


								$a->teardown(dump => 1);