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


								#!/usr/bin/perl


								use strict;

								use warnings;

								use Rtpengine;

								use Time::HiRes qw(time);


								my ($r, $a, $b);


								my $offer = time();

								my $answer = $offer + 3;


								my $answer_done = 0;

								my $cb = sub {

									my ($now) = @_;

									if ($now >= $answer && !$answer_done) {

										$b->answer($a);

										$answer_done = 1;

									}

								};


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

								$a = $r->client();

								$b = $r->client();


								$a->offer($b);

								$r->run();