mirror of https://github.com/sipwise/rtpengine.git
Change-Id: I2113b76d97f5cf6cc8927f92b8a178795322a77epull/1918/head
Richard Fuchs
1 year ago
parent
ee707993f4
commit
135a95ef02
@ -0,0 +1,190 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use NGCP::Rtpengine::Test;
|
||||||
|
use NGCP::Rtpclient::SRTP;
|
||||||
|
use NGCP::Rtpengine::AutoTest;
|
||||||
|
use Test::More;
|
||||||
|
use POSIX;
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
|
|
||||||
|
autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1 -i 2001:db8:4321::1
|
||||||
|
-n 2223 -f -L 7 -E --log-level-internals=7))
|
||||||
|
or die;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
my ($resp, $sock_a, $sock_b, $port_a, $seq, $ts, $ssrc);
|
||||||
|
|
||||||
|
|
||||||
|
($sock_a) = new_call([qw(198.51.100.14 6150)]);
|
||||||
|
|
||||||
|
$resp = rtpe_req('transform', 'simple transform',
|
||||||
|
{
|
||||||
|
media => [
|
||||||
|
{
|
||||||
|
type => 'audio',
|
||||||
|
codec => [
|
||||||
|
{
|
||||||
|
input => {
|
||||||
|
codec => 'PCMA',
|
||||||
|
'payload type' => 8,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
output => {
|
||||||
|
codec => 'PCMU',
|
||||||
|
'payload type' => 0,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
destination => {
|
||||||
|
family => 'IP4',
|
||||||
|
address => '198.51.100.14',
|
||||||
|
port => 6150,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
is($resp->{media}[0]{address}, '203.0.113.1', 'address ok');
|
||||||
|
$port_a = $resp->{media}[0]{port};
|
||||||
|
snd($sock_a, $port_a, rtp(8, 2000, 4000, 0x3456, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(0, -1, -1, -1, "\x29" x 160));
|
||||||
|
snd($sock_a, $port_a, rtp(8, 2001, 4160, 0x3456, "\x00" x 160));
|
||||||
|
rcv($sock_a, $port_a, rtpm(0, $seq + 1, $ts + 160, $ssrc, "\x29" x 160));
|
||||||
|
|
||||||
|
rtpe_req('delete', 'delete call');
|
||||||
|
|
||||||
|
|
||||||
|
($sock_a) = new_call([qw(198.51.100.14 6152)]);
|
||||||
|
|
||||||
|
$resp = rtpe_req('transform', 'no-op transform',
|
||||||
|
{
|
||||||
|
media => [
|
||||||
|
{
|
||||||
|
type => 'audio',
|
||||||
|
codec => [
|
||||||
|
{
|
||||||
|
input => {
|
||||||
|
codec => 'G722',
|
||||||
|
'payload type' => 9,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
output => {
|
||||||
|
codec => 'G722',
|
||||||
|
'payload type' => 9,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
destination => {
|
||||||
|
family => 'IP4',
|
||||||
|
address => '198.51.100.14',
|
||||||
|
port => 6152,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
is($resp->{media}[0]{address}, '203.0.113.1', 'address ok');
|
||||||
|
$port_a = $resp->{media}[0]{port};
|
||||||
|
snd($sock_a, $port_a, rtp(9, 2000, 4000, 0x3456, "\x00" x 160));
|
||||||
|
rcv($sock_a, $port_a, rtpm(9, 2000, 4000, 0x3456, "\x00" x 160));
|
||||||
|
snd($sock_a, $port_a, rtp(9, 2001, 4160, 0x3456, "\x00" x 160));
|
||||||
|
rcv($sock_a, $port_a, rtpm(9, 2001, 4160, 0x3456, "\x00" x 160));
|
||||||
|
|
||||||
|
rtpe_req('delete', 'delete call');
|
||||||
|
|
||||||
|
|
||||||
|
($sock_a) = new_call([qw(198.51.100.14 6154)]);
|
||||||
|
|
||||||
|
$resp = rtpe_req('transform', 'multiple transforms',
|
||||||
|
{
|
||||||
|
media => [
|
||||||
|
{
|
||||||
|
type => 'audio',
|
||||||
|
codec => [
|
||||||
|
{
|
||||||
|
input => {
|
||||||
|
codec => 'G722',
|
||||||
|
'payload type' => 9,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
output => {
|
||||||
|
codec => 'G722',
|
||||||
|
'payload type' => 9,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
{
|
||||||
|
input => {
|
||||||
|
codec => 'PCMA',
|
||||||
|
'payload type' => 8,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
output => {
|
||||||
|
codec => 'PCMU',
|
||||||
|
'payload type' => 0,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
{
|
||||||
|
input => {
|
||||||
|
codec => 'PCMU',
|
||||||
|
'payload type' => 0,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
output => {
|
||||||
|
codec => 'PCMA',
|
||||||
|
'payload type' => 8,
|
||||||
|
'clock rate' => 8000,
|
||||||
|
channels => 1,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
destination => {
|
||||||
|
family => 'IP4',
|
||||||
|
address => '198.51.100.14',
|
||||||
|
port => 6154,
|
||||||
|
},
|
||||||
|
},
|
||||||
|
],
|
||||||
|
}
|
||||||
|
);
|
||||||
|
|
||||||
|
is($resp->{media}[0]{address}, '203.0.113.1', 'address ok');
|
||||||
|
$port_a = $resp->{media}[0]{port};
|
||||||
|
snd($sock_a, $port_a, rtp(9, 2000, 4000, 0x3456, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(9, -1, -1, -1, "\x00" x 160));
|
||||||
|
snd($sock_a, $port_a, rtp(9, 2001, 4160, 0x3456, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(9, $seq + 1, $ts + 160, $ssrc, "\x00" x 160));
|
||||||
|
|
||||||
|
snd($sock_a, $port_a, rtp(8, 2000, 4000, 0x346a, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(0, -1, -1, -1, "\x29" x 160));
|
||||||
|
snd($sock_a, $port_a, rtp(8, 2001, 4160, 0x346a, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(0, $seq + 1, $ts + 160, $ssrc, "\x29" x 160));
|
||||||
|
|
||||||
|
snd($sock_a, $port_a, rtp(0, 2000, 4000, 0x347e, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(8, -1, -1, -1, "\x2a" x 160));
|
||||||
|
snd($sock_a, $port_a, rtp(0, 2001, 4160, 0x347e, "\x00" x 160));
|
||||||
|
($seq, $ts, $ssrc) = rcv($sock_a, $port_a, rtpm(8, $seq + 1, $ts + 160, $ssrc, "\x2a" x 160));
|
||||||
|
|
||||||
|
rtpe_req('delete', 'delete call');
|
||||||
|
|
||||||
|
|
||||||
|
done_testing();
|
||||||
|
#done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
|
||||||
Loading…
Reference in new issue