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


								#!/usr/bin/perl


								use strict;

								use warnings;

								use Rtpengine::Test;


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

								my $a = $r->client();

								my $b = $r->client();


								$r->timer_once(3, sub { $b->answer($a, ICE => 'remove'); $a->start_rtp(); });

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


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

								$b->start_rtp();


								$r->run();


								$a->delete();