File: test-ice.pl

package info (click to toggle)
rtpengine 13.5.1.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,692 kB
  • sloc: ansic: 86,814; perl: 59,954; python: 3,193; sh: 1,037; makefile: 687; asm: 211
file content (16 lines) | stat: -rwxr-xr-x 369 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/perl

use strict;
use warnings;
use NGCP::Rtpengine::Test;

my $r = NGCP::Rtpengine::Test->new();
my $a = $r->client(ice => 1);
my $b = $r->client(sockdomain => &Socket::AF_INET);

$r->timer_once(3, sub { $b->answer($a) });
$r->timer_once(5, sub { $a->start_rtp(); $b->start_rtp(); });

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

$r->run();