sipwise
/
rtpengine
mirror of https://github.com/sipwise/rtpengine.git
1
0
Fork 0
Code Issues Releases Wiki Activity

MT#56008 support encoder-selected clock rate for EVS

Browse Source 
Change-Id: I391b5f42713fe8e9cfe9db9a7ee149ec4da56f8e
pull/1581/head
Richard Fuchs 3 years ago
parent ee941cd564
commit 8737d194b1
2 changed files with 100 additions and 69 deletions
Show Stats Download Patch File Download Diff File

66
lib/codeclib.c
Unescape View File

@ -121,6 +121,7 @@ static format_parse_f evs_format_parse;
static format_cmp_f evs_format_cmp;
static format_print_f evs_format_print;
static format_answer_f evs_format_answer;
static select_clockrate_f evs_select_enc_clockrate;
@ -444,6 +445,7 @@ static codec_def_t __codec_defs[] = {
.format_cmp = evs_format_cmp,
.format_print = evs_format_print,
.format_answer = evs_format_answer,
.select_enc_clockrate = evs_select_enc_clockrate,
.packetizer = packetizer_passthrough,
.bits_per_sample = 1,
.media_type = MT_AUDIO,
@ -3459,6 +3461,29 @@ static int evs_format_cmp(const struct rtp_payload_type *A, const struct rtp_pay
return (compat == 0) ? 0 : 1;
}
// EVS RTP always runs at 16 kHz
static struct fraction evs_select_enc_clockrate(const format_t *req_format, const format_t *f) {
if (req_format->clockrate != 16000)
return (struct fraction) {1,1}; // bail - encoder will fail to initialise
// check against natively supported rates first
switch (f->clockrate) {
case 48000:
case 32000:
case 16000:
return (struct fraction) {48000 / f->clockrate, 1};
case 8000:
return (struct fraction) {1, 16000 / f->clockrate};
}
// resample to next best rate
if (f->clockrate > 32000)
return (struct fraction) {3,1};
if (f->clockrate > 16000)
return (struct fraction) {2,1};
if (f->clockrate > 8000)
return (struct fraction) {1,1};
return (struct fraction) {1,2};
}
@ -3661,16 +3686,6 @@ static const int evs_mode_bitrates[2][16] = {
0, // invalid // 15
},
};
static const bool evs_modes_allowed_by_bw[__EVS_BW_MAX][12] = {
// NB
{ true, true, true, true, true, true, true, false, false, false, false, false, },
// WB
{ true, true, true, true, true, true, true, true, true, true, true, true, },
// SWB
{ false, false, false, true, true, true, true, true, true, true, true, true, },
// FB
{ false, false, false, false, false, true, true, true, true, true, true, true, },
};
static const uint8_t evs_min_max_modes_by_bw[__EVS_BW_MAX][2] = {
{ 0, 6 }, // NB
{ 0, 11 }, // WB
@ -3723,14 +3738,10 @@ static int evs_match_bitrate(int orig_br, unsigned int amr) {
static const char *evs_encoder_init(encoder_t *enc, const str *extra_opts) {
enc->u.evs.ctx = g_slice_alloc0(evs_encoder_size);
enc->u.evs.ind_list = g_slice_alloc(evs_encoder_ind_list_size);
if (enc->requested_format.clockrate != 48000)
ilog(LOG_WARN, "EVS: invalid encoder clock rate (%i) requested",
fraction_div(enc->requested_format.clockrate, &enc->clockrate_fact));
if (enc->requested_format.channels != 1)
ilog(LOG_WARN, "EVS: %i-channel EVS is not supported",
enc->requested_format.channels);
enc->actual_format.clockrate = 48000;
enc->actual_format.channels = enc->requested_format.channels;
enc->actual_format = enc->requested_format;
enc->actual_format.format = AV_SAMPLE_FMT_S16;
enc->samples_per_frame = enc->actual_format.clockrate * 20 / 1000;
@ -3745,6 +3756,23 @@ static const char *evs_encoder_init(encoder_t *enc, const str *extra_opts) {
enc->codec_options.evs.max_bw = EVS_BW_WB;
assert(enc->codec_options.evs.max_bw >= 0 && enc->codec_options.evs.max_bw < __EVS_BW_MAX);
switch (enc->requested_format.clockrate) {
case 48000:
case 32000:
if (enc->codec_options.evs.max_bw > EVS_BW_SWB)
enc->codec_options.evs.max_bw = EVS_BW_SWB;
break;
case 16000:
if (enc->codec_options.evs.max_bw > EVS_BW_WB)
enc->codec_options.evs.max_bw = EVS_BW_WB;
break;
case 8000:
enc->codec_options.evs.max_bw = EVS_BW_NB;
break;
default:
ilog(LOG_WARN, "EVS: invalid encoder clock rate (%i) requested",
fraction_div(enc->requested_format.clockrate, &enc->clockrate_fact));
}
evs_set_encoder_opts(enc->u.evs.ctx, enc->actual_format.clockrate, enc->u.evs.ind_list);
// limit bitrate to given range
@ -3866,10 +3894,10 @@ static void evs_handle_cmr(encoder_t *enc) {
if (bw >= 2)
bw--; // 0..3
// ignore min BW
// instead of ignoring invalid request, clamp them to what is allowed by BW
if (o->max_bw != EVS_BW_UNSPEC && o->max_bw < bw)
goto err;
if (!evs_modes_allowed_by_bw[bw][req])
goto err;
bw = o->max_bw;
req = evs_clamp_mode_by_bw(req, bw);
bitrate = evs_mode_bitrates[0][req];
}
else
@ -3887,7 +3915,7 @@ err:
"request %u) in AMR mode", type, req);
else
ilog(LOG_WARN | LOG_FLAG_LIMIT, "EVS: received invalid CMR (type %u, "
"request %u) with BW <%i", type, req, o->max_bw);
"request %u) with BW <= %i", type, req, o->max_bw);
}
static int evs_encoder_input(encoder_t *enc, AVFrame **frame) {

103
t/auto-daemon-tests-evs.pl
Unescape View File

@ -659,11 +659,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x0d\x67\x75\x43\x46\xc3\x10\x82\x03\x82\x02\x00\x00\x00\x5f\xf1\x9a\x2c\xd9\xea\x12\x46\x8b\xa0\x21\xd6\x1f\xd0\xc2\xb8\xa0\x61\xa0\x79\x25\x36\x57\x23\xbd\xd9\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x4d\xa4\xf3\x03\x2c\x42\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x02\x94\x03\xfa\xaf\x1f\xa7\xde\x50\x30\x8a\x3a\x01\x5a\xc0\x3f\xc3\x62\x76\x94\xa8\x26\x17\x83\x57\x8a"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x0d\xe4\x73\x07\x88\x40\x03\x19\x43\xa3\x1d\xf7\xfb\x85\x89\xf4\xba\xee\x7e\x28\x4b\xf1\x89\x71\x33\xa1\xa6\xfe\xe5\xe3\x9d\x75\x95\x06\xea\xee\xb5\xc3\x75\x16\xa0"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x4d\x66\x8e\xf5\x3c\x00\x00\x35\x96\x24\x96\x82\x3a\x9c\x76\xa2\xa0\xd7\x61\x1e\x13\xfd\x63\x81\x40\x87\x25\xbc\xc7\x82\x6b\xb1\x0d\x29\x98\x1f\xbf\x09\x11\x56\xa0"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x0d\xe4\x58\xcb\x9a\x50\x4b\x41\xb5\xd5\x58\xa9\xfa\x80\x99\x11\x05\x39\xae\x43\x80\x41\x1a\x41\x71\x3f\x62\x78\x64\xc1\x71\x61\xd7\x08\xfc\xad\xbe\x96\x3b\x00\x4a"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x4d\xa6\xcb\xc6\xe0\x43\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x00\x14\x03\x5a\xaf\x1c\xc8\x3e\xe1\x30\x92\x3a\x01\x80\x6a\xe7\x47\x61\x15\x00\x0e\x09\xdb\x02\xc5\x77"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -722,11 +722,11 @@ SDP
snd($sock_b, $port_a, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_a, $port_b, rtpm(96, 2000, 4000, -1, "\x0d\x67\x75\x43\x46\xc3\x10\x82\x03\x82\x02\x00\x00\x00\x5f\xf1\x9a\x2c\xd9\xea\x12\x46\x8b\xa0\x21\xd6\x1f\xd0\xc2\xb8\xa0\x61\xa0\x79\x25\x36\x57\x23\xbd\xd9\x01"));
snd($sock_b, $port_a, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_a, $port_b, rtpm(96, 2000, 4000, -1, "\x4d\xa4\xf3\x03\x2c\x42\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x02\x94\x03\xfa\xaf\x1f\xa7\xde\x50\x30\x8a\x3a\x01\x5a\xc0\x3f\xc3\x62\x76\x94\xa8\x26\x17\x83\x57\x8a"));
rcv($sock_a, $port_b, rtpm(96, 2001, 4320, $ssrc, "\x0d\xe4\x73\x07\x88\x40\x03\x19\x43\xa3\x1d\xf7\xfb\x85\x89\xf4\xba\xee\x7e\x28\x4b\xf1\x89\x71\x33\xa1\xa6\xfe\xe5\xe3\x9d\x75\x95\x06\xea\xee\xb5\xc3\x75\x16\xa0"));
snd($sock_b, $port_a, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_a, $port_b, rtpm(96, 2001, 4320, $ssrc, "\x4d\x66\x8e\xf5\x3c\x00\x00\x35\x96\x24\x96\x82\x3a\x9c\x76\xa2\xa0\xd7\x61\x1e\x13\xfd\x63\x81\x40\x87\x25\xbc\xc7\x82\x6b\xb1\x0d\x29\x98\x1f\xbf\x09\x11\x56\xa0"));
rcv($sock_a, $port_b, rtpm(96, 2002, 4640, $ssrc, "\x0d\xe4\x58\xcb\x9a\x50\x4b\x41\xb5\xd5\x58\xa9\xfa\x80\x99\x11\x05\x39\xae\x43\x80\x41\x1a\x41\x71\x3f\x62\x78\x64\xc1\x71\x61\xd7\x08\xfc\xad\xbe\x96\x3b\x00\x4a"));
snd($sock_a, $port_b, rtp(96, 6000, 7000, 0x9876, "\x4d\xa6\xcb\xc6\xe0\x43\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x00\x14\x03\x5a\xaf\x1c\xc8\x3e\xe1\x30\x92\x3a\x01\x80\x6a\xe7\x47\x61\x15\x00\x0e\x09\xdb\x02\xc5\x77"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -787,11 +787,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x05\x0d\x67\x75\x43\x46\xc3\x10\x82\x03\x82\x02\x00\x00\x00\x5f\xf1\x9a\x2c\xd9\xea\x12\x46\x8b\xa0\x21\xd6\x1f\xd0\xc2\xb8\xa0\x61\xa0\x79\x25\x36\x57\x23\xbd\xd9\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x05\x4d\xa4\xf3\x03\x2c\x42\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x02\x94\x03\xfa\xaf\x1f\xa7\xde\x50\x30\x8a\x3a\x01\x5a\xc0\x3f\xc3\x62\x76\x94\xa8\x26\x17\x83\x57\x8a"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x05\x0d\xe4\x73\x07\x88\x40\x03\x19\x43\xa3\x1d\xf7\xfb\x85\x89\xf4\xba\xee\x7e\x28\x4b\xf1\x89\x71\x33\xa1\xa6\xfe\xe5\xe3\x9d\x75\x95\x06\xea\xee\xb5\xc3\x75\x16\xa0"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x05\x4d\x66\x8e\xf5\x3c\x00\x00\x35\x96\x24\x96\x82\x3a\x9c\x76\xa2\xa0\xd7\x61\x1e\x13\xfd\x63\x81\x40\x87\x25\xbc\xc7\x82\x6b\xb1\x0d\x29\x98\x1f\xbf\x09\x11\x56\xa0"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x05\x0d\xe4\x58\xcb\x9a\x50\x4b\x41\xb5\xd5\x58\xa9\xfa\x80\x99\x11\x05\x39\xae\x43\x80\x41\x1a\x41\x71\x3f\x62\x78\x64\xc1\x71\x61\xd7\x08\xfc\xad\xbe\x96\x3b\x00\x4a"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x05\x4d\xa6\xcb\xc6\xe0\x43\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x00\x14\x03\x5a\xaf\x1c\xc8\x3e\xe1\x30\x92\x3a\x01\x80\x6a\xe7\x47\x61\x15\x00\x0e\x09\xdb\x02\xc5\x77"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -850,11 +850,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x25\x1c\xa6\x31\xce\x69\xff\xd4\x16\x11\xbe\x62\xfa\x84\x08\x00\x00\x22\x14\xa8\x01\x3b\x70\x08\x12\x80\xa0\x07\x10\x80\x03\x23\x6f\x04\x42\x42\x0f\x11\x22\xca\xdf\x9c\x11\x2f\x43"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x11\x84\xa6\x30\xee\x84\xfd\x56\x02\x11\x05\xe0\xbb\x84\x99\x10\x08\x22\x20\xac\x51\x3a\x74\x04\x5a\xa2\xa9\x60\xc2\xc4\x12\x23\x6d\x64\x62\x13\x0f\x91\x2a\x73\xcb\x84\xe4\x1f\x63"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xfa\x73\xa1\xf8\xfc\x5e\x83\x48\x5c\xe8\x7e\x20\x80\x99\xed\xa4\x7f\xd5\xb6\x36\x2e\x05\xf7\x20\x31\x29\x0b\xa6\xa0\x07\x3a\x07\x87\x3b\x75\xbb\x91\xf0\x5f\xc9\x81\xa9\x5c\x40\x6b\x3d"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xf8\x73\x22\x7a\x7e\x1e\x97\xc9\x76\x60\x37\x71\xc1\x20\x0f\xce\xbc\xcf\x7c\x92\x08\x4a\x19\xb0\x2a\xc4\x43\x9a\xc4\xd8\xe7\x06\x00\x12\x99\x86\x61\xf2\xdf\xa2\x7c\x2c\xb2\x12\x5c\x7b"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\xf0\xa3\x92\x33\x35\x5c\x4f\xf8\x94\x1b\xef\x10\x85\xe7\xa5\x59\xe0\x76\x57\xb6\x3e\x7d\xf9\x72\x1b\xb8\x10\xde\xa6\x36\xf1\x6b\xab\x57\x5b\x42\x8a\xdb\xe1\x8b\xc6\xaf\xc1\x3f\x0c\x87"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\xf9\x41\x84\xa6\x30\xee\x84\xc8\x34\x40\x18\x15\xa1\xde\x14\x09\x10\x08\x6e\x22\xad\x51\x36\x30\x0c\x52\x00\xa8\x60\xd2\xc0\x32\x63\x6d\x64\x42\x73\x4f\x91\x22\x6b\x9b\x0c\x64\x1f\x63"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -913,11 +913,11 @@ SDP
snd($sock_b, $port_a, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_a, $port_b, rtpm(96, 2000, 4000, -1, "\xf1\x25\x1c\xa6\x31\xce\x69\xff\xd4\x16\x11\xbe\x62\xfa\x84\x08\x00\x00\x22\x14\xa8\x01\x3b\x70\x08\x12\x80\xa0\x07\x10\x80\x03\x23\x6f\x04\x42\x42\x0f\x11\x22\xca\xdf\x9c\x11\x2f\x43"));
snd($sock_b, $port_a, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_a, $port_b, rtpm(96, 2000, 4000, -1, "\xf1\x11\x84\xa6\x30\xee\x84\xfd\x56\x02\x11\x05\xe0\xbb\x84\x99\x10\x08\x22\x20\xac\x51\x3a\x74\x04\x5a\xa2\xa9\x60\xc2\xc4\x12\x23\x6d\x64\x62\x13\x0f\x91\x2a\x73\xcb\x84\xe4\x1f\x63"));
rcv($sock_a, $port_b, rtpm(96, 2001, 4320, $ssrc, "\xfa\x73\xa1\xf8\xfc\x5e\x83\x48\x5c\xe8\x7e\x20\x80\x99\xed\xa4\x7f\xd5\xb6\x36\x2e\x05\xf7\x20\x31\x29\x0b\xa6\xa0\x07\x3a\x07\x87\x3b\x75\xbb\x91\xf0\x5f\xc9\x81\xa9\x5c\x40\x6b\x3d"));
snd($sock_b, $port_a, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_a, $port_b, rtpm(96, 2001, 4320, $ssrc, "\xf8\x73\x22\x7a\x7e\x1e\x97\xc9\x76\x60\x37\x71\xc1\x20\x0f\xce\xbc\xcf\x7c\x92\x08\x4a\x19\xb0\x2a\xc4\x43\x9a\xc4\xd8\xe7\x06\x00\x12\x99\x86\x61\xf2\xdf\xa2\x7c\x2c\xb2\x12\x5c\x7b"));
rcv($sock_a, $port_b, rtpm(96, 2002, 4640, $ssrc, "\xf0\xa3\x92\x33\x35\x5c\x4f\xf8\x94\x1b\xef\x10\x85\xe7\xa5\x59\xe0\x76\x57\xb6\x3e\x7d\xf9\x72\x1b\xb8\x10\xde\xa6\x36\xf1\x6b\xab\x57\x5b\x42\x8a\xdb\xe1\x8b\xc6\xaf\xc1\x3f\x0c\x87"));
snd($sock_a, $port_b, rtp(96, 6000, 7000, 0x9876, "\xf9\x41\x84\xa6\x30\xee\x84\xc8\x34\x40\x18\x15\xa1\xde\x14\x09\x10\x08\x6e\x22\xad\x51\x36\x30\x0c\x52\x00\xa8\x60\xd2\xc0\x32\x63\x6d\x64\x42\x73\x4f\x91\x22\x6b\x9b\x0c\x64\x1f\x63"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -976,11 +976,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x35\xc4\x94\x72\x98\xc7\x39\xa7\xff\x50\x58\x46\xf9\x8b\xea\x10\x20\x00\x00\x88\x52\xa0\x04\xed\xc0\x20\x4a\x02\x80\x1c\x42\x00\x0c\x8d\xbc\x11\x09\x08\x3c\x44\x8b\x2b\x7e\x70\x44\xbd\x08"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x35\xc4\x46\x12\x98\xc3\xba\x13\xf5\x58\x08\x44\x17\x82\xee\x12\x64\x40\x20\x88\x82\xb1\x44\xe9\xd0\x11\x6a\x8a\xa5\x83\x0b\x10\x48\x8d\xb5\x91\x88\x4c\x3e\x44\xa9\xcf\x2e\x13\x90\x7d\x88"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x35\xe9\xce\x87\xe3\xf1\x7a\x0d\x21\x73\xa1\xf8\x82\x02\x67\xb6\x91\xff\x56\xd8\xd8\xb8\x17\xdc\x80\xc4\xa4\x2e\x9a\x80\x1c\xe8\x1e\x1c\xed\xd6\xee\x47\xc1\x7f\x26\x06\xa5\x71\x01\xac\xf0"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x35\xe1\xcc\x89\xe9\xf8\x7a\x5f\x25\xd9\x80\xdd\xc7\x04\x80\x3f\x3a\xf3\x3d\xf2\x48\x21\x28\x66\xc0\xab\x11\x0e\x6b\x13\x63\x9c\x18\x00\x4a\x66\x19\x87\xcb\x7e\x89\xf0\xb2\xc8\x49\x71\xe8"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x35\xc2\x8e\x48\xcc\xd5\x71\x3f\xe2\x50\x6f\xbc\x42\x17\x9e\x95\x67\x81\xd9\x5e\xd8\xf9\xf7\xe5\xc8\x6e\xe0\x43\x7a\x98\xdb\xc5\xae\xad\x5d\x6d\x0a\x2b\x6f\x86\x2f\x1a\xbf\x04\xfc\x32\x18"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x35\xe5\x06\x12\x98\xc3\xba\x13\x20\xd1\x00\x60\x56\x87\x78\x50\x24\x40\x21\xb8\x8a\xb5\x44\xd8\xc0\x31\x48\x02\xa1\x83\x4b\x00\xc9\x8d\xb5\x91\x09\xcd\x3e\x44\x89\xae\x6c\x31\x90\x7d\x88"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1040,11 +1040,12 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
# XXX clamped to mode 6 due to 8 kHz input
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x0d\x67\x75\x43\x46\xc3\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf6\x6f\xb7\xd6\x92\xb8\xdf\x3d\xc2\x47\xb9\xeb\x47\x40\x42\x99\x21\xe1\x1a\x74\xf7\x1b\xac\x40\xc0\x23\xe2\xa0\x1e\x87\x44\x57\x30\x7d\xb3\x2a\x38\x38\x06\x6d\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x0a\x1e\xe2\xcb\xc6\x8e\x3e\xa5\xf7\x78\xd1\xc1\x70\x73\xb8\xf7\x9d\xff\xf3\xc0\x11\x77\x98\xb0\x7a\xed\xad\x1a\xdb\x42\x92\xfe\xc9\xeb\x63\x45\xb5\x7f\x73\xd1\x4d\xff\x1e\xba\x9c\x24\x9b\x16\x1b\x34\x8e\xf5\xef\xe8\x6c\x47\x14\x1a\x41\x10\xb1\x19\x54\xf1\x0c\x28\x64\x75\xf9\x29\x56\xa4\x52\x41\x75\x2d\xe2\x23\x7d\x88\xaa\xa8\x1b\xbb\xff\xdd\xda\x22\x52\x25\xdd\xdf\xee\xea\x20\x6d\x5e\x2a\xf6\x1a\x13\x28\x68\x63\x0d\x19\x8b\x96\xbf\xda\xfd\x0a\x8f\x18\x4c\xd0\x8c\x1f\x49\x3e\xb5\xfe\xd5\xab\x80\x81\x70\x63\xf7\x11\xe7\x3b\x88\xf4\xf0\x0f\x88\x7d\x47\x28\x44\x4d\xaa\xdd\x07\xcf\x9c\x73\x53\xbd\x42\x90\x08\x8d\x3f\x20\x4f\xf8\x78\x7d\x5a\xce\x90\xc6\x38\xc2\xe6\x95\x3f\xe6\x8a\xd8\x30\x99\xad\x83\x21\x06\xe5\x3b\x4e\xfe\x85\x08\x81\x95\xe3\xdc\xba\xaa\xb5\x9c\xce\x63\x23\x39\xb9\x99\x19\x99\xd9\xcc\x4c\x4e\xce\xc4\xc6\x00\x00\x00\x05\xe0\x24\x98\xa9\xc0\x3f\x9f\x0d\x12\x5e\x6a\x43\xe2\x87\x85\x32\x64\x84\x6e\x2b\xed\xb6\xcb\xa6\x80\x32\xfd\x47\xc9\x6f"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x0d\xe4\x73\x07\x88\x40\x09\x1c\x40\x96\x23\x82\x19\xed\x9f\x97\x05\x2f\xb7\x13\xea\x0e\x50\x2c\xc9\xea\xc6\x6f\x5e\xf4\x22\xec\x82\xe2\x6c\xda\x74\x7d\x15\xe1\xe4\xbf\x99\xd9\x74\x78\xd4\x3d\x26\xf2\x7b\x2c\x3c\x6d\xa3\x8c\xd8\x3a\x14\xa9\xac"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x0a\x0a\x1b\xfb\x35\x8f\x01\xc0\x08\x56\x4f\x80\x42\x1a\x9b\x75\xaa\x99\x4e\x27\xfa\x2a\xc8\xd0\xaa\x81\x76\x67\x17\x82\x3b\x7b\xab\x25\x0b\xc4\xd7\x01\x97\x58\x2a\xe2\xd4\xf6\x3e\xfb\xa6\x71\x0b\xac\xfe\x5c\x9b\x67\xff\xff\xff\xf0\x3c\x83\x48\xda\xad\x29\x56\xaa\x96\xaa\x96\x95\x2a\x55\x6a\x4d\x4b\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8a\x60\xd2\xe8\x1c\x5f\x4e\xf5\x9d"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x06\x0d\xe4\x58\xcb\x9a\x50\x3f\x67\x5a\x18\x97\x8f\x12\x87\x11\x8a\xd9\x0b\x8b\x95\xea\x11\xba\x7f\x3b\xd4\x60\x66\xb9\x9b\xd9\xdf\x57\x00\x22\x57\x52\xd3\x95\x41\x01\x35\xdc\xbf\xa7\x9a\x41\xdf\x98\xb3\x86\x20\x3c\xd2\x1b\x1f\x44\xdf\x87\x43\x62"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x0a\x1e\xe2\xdb\xc6\x8e\x3f\x0e\xd3\x01\xef\x0e\xc0\x39\xdc\x7b\xce\xff\xf9\xe0\x08\xb8\xbf\xa8\xcc\x4a\x61\xdb\xe6\x0d\xa3\x46\xd7\x2d\xb6\x13\x5d\x58\x60\x27\x68\x31\xa4\x99\x92\x74\xfb\xb0\x44\xdc\x8c\xc1\xf7\x5b\x37\x58\x64\x47\xb7\x56\x72\x57\x85\xc8\xf8\xbd\x72\x37\x94\x84\x87\x41\x63\x22\x2b\xbd\x11\x1b\xec\x45\x55\x40\xdd\xdf\xfe\xee\xd1\x11\x11\x2e\xee\xef\xbb\x48\x83\x52\x96\x9f\x0b\x0d\x01\x39\x30\x66\xb2\xb3\x95\xf7\x7d\x1b\x7c\x83\x6f\x9d\x06\x92\x49\x06\x74\x95\xeb\x2a\x81\x02\xc2\x48\xf8\x61\x9d\x57\xa3\xb8\x8f\x4f\x01\x4b\x66\x57\xbf\x68\x94\x15\x98\x0a\xf2\x53\xc9\xa8\xdb\xa8\xe3\xbf\x47\x44\x8a\xb0\x5a\xbd\x1a\x9e\xb5\x29\xf9\x4c\x46\xd3\xb9\x94\xe6\x9c\x05\xf6\x2c\x53\x32\xba\x07\xc8\x97\x9e\x09\x13\xaf\x82\xf6\xde\x07\x53\x50\x7e\x3a\xaa\xb5\x9c\xce\x63\x23\x33\x39\x99\x8c\x9a\xaa\xca\xaa\x35\x55\x9b\x4c\x03\x13\x1a\x44\x69\x8c\x26\xf0\xd6\x02\x56\x98\x6b\x77\x17\x4e\x28\x16\xb5\x8c\x22\xc0\xf2\x97\x2d\xa3\xb8\x43\xae\x45\x32\xf5"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1103,11 +1104,12 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
# XXX clamped to mode 6 due to 8 kHz input
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x0d\x67\x75\x43\x46\xc3\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf6\x6f\xb7\xd6\x92\xb8\xdf\x3d\xc2\x47\xb9\xeb\x47\x40\x42\x99\x21\xe1\x1a\x74\xf7\x1b\xac\x40\xc0\x23\xe2\xa0\x1e\x87\x44\x57\x30\x7d\xb3\x2a\x38\x38\x06\x6d\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x0a\x1e\xe2\xcb\xc6\x8e\x3e\xa5\xf7\x78\xd1\xc1\x70\x73\xb8\xf7\x9d\xff\xf3\xc0\x11\x77\x98\xb0\x7a\xed\xad\x1a\xdb\x42\x92\xfe\xc9\xeb\x63\x45\xb5\x7f\x73\xd1\x4d\xff\x1e\xba\x9c\x24\x9b\x16\x1b\x34\x8e\xf5\xef\xe8\x6c\x47\x14\x1a\x41\x10\xb1\x19\x54\xf1\x0c\x28\x64\x75\xf9\x29\x56\xa4\x52\x41\x75\x2d\xe2\x23\x7d\x88\xaa\xa8\x1b\xbb\xff\xdd\xda\x22\x52\x25\xdd\xdf\xee\xea\x20\x6d\x5e\x2a\xf6\x1a\x13\x28\x68\x63\x0d\x19\x8b\x96\xbf\xda\xfd\x0a\x8f\x18\x4c\xd0\x8c\x1f\x49\x3e\xb5\xfe\xd5\xab\x80\x81\x70\x63\xf7\x11\xe7\x3b\x88\xf4\xf0\x0f\x88\x7d\x47\x28\x44\x4d\xaa\xdd\x07\xcf\x9c\x73\x53\xbd\x42\x90\x08\x8d\x3f\x20\x4f\xf8\x78\x7d\x5a\xce\x90\xc6\x38\xc2\xe6\x95\x3f\xe6\x8a\xd8\x30\x99\xad\x83\x21\x06\xe5\x3b\x4e\xfe\x85\x08\x81\x95\xe3\xdc\xba\xaa\xb5\x9c\xce\x63\x23\x39\xb9\x99\x19\x99\xd9\xcc\x4c\x4e\xce\xc4\xc6\x00\x00\x00\x05\xe0\x24\x98\xa9\xc0\x3f\x9f\x0d\x12\x5e\x6a\x43\xe2\x87\x85\x32\x64\x84\x6e\x2b\xed\xb6\xcb\xa6\x80\x32\xfd\x47\xc9\x6f"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x0d\xe4\x73\x07\x88\x40\x09\x1c\x40\x96\x23\x82\x19\xed\x9f\x97\x05\x2f\xb7\x13\xea\x0e\x50\x2c\xc9\xea\xc6\x6f\x5e\xf4\x22\xec\x82\xe2\x6c\xda\x74\x7d\x15\xe1\xe4\xbf\x99\xd9\x74\x78\xd4\x3d\x26\xf2\x7b\x2c\x3c\x6d\xa3\x8c\xd8\x3a\x14\xa9\xac"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x0a\x0a\x1b\xfb\x35\x8f\x01\xc0\x08\x56\x4f\x80\x42\x1a\x9b\x75\xaa\x99\x4e\x27\xfa\x2a\xc8\xd0\xaa\x81\x76\x67\x17\x82\x3b\x7b\xab\x25\x0b\xc4\xd7\x01\x97\x58\x2a\xe2\xd4\xf6\x3e\xfb\xa6\x71\x0b\xac\xfe\x5c\x9b\x67\xff\xff\xff\xf0\x3c\x83\x48\xda\xad\x29\x56\xaa\x96\xaa\x96\x95\x2a\x55\x6a\x4d\x4b\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x8a\x60\xd2\xe8\x1c\x5f\x4e\xf5\x9d"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x06\x0d\xe4\x58\xcb\x9a\x50\x3f\x67\x5a\x18\x97\x8f\x12\x87\x11\x8a\xd9\x0b\x8b\x95\xea\x11\xba\x7f\x3b\xd4\x60\x66\xb9\x9b\xd9\xdf\x57\x00\x22\x57\x52\xd3\x95\x41\x01\x35\xdc\xbf\xa7\x9a\x41\xdf\x98\xb3\x86\x20\x3c\xd2\x1b\x1f\x44\xdf\x87\x43\x62"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x0a\x1e\xe2\xdb\xc6\x8e\x3f\x0e\xd3\x01\xef\x0e\xc0\x39\xdc\x7b\xce\xff\xf9\xe0\x08\xb8\xbf\xa8\xcc\x4a\x61\xdb\xe6\x0d\xa3\x46\xd7\x2d\xb6\x13\x5d\x58\x60\x27\x68\x31\xa4\x99\x92\x74\xfb\xb0\x44\xdc\x8c\xc1\xf7\x5b\x37\x58\x64\x47\xb7\x56\x72\x57\x85\xc8\xf8\xbd\x72\x37\x94\x84\x87\x41\x63\x22\x2b\xbd\x11\x1b\xec\x45\x55\x40\xdd\xdf\xfe\xee\xd1\x11\x11\x2e\xee\xef\xbb\x48\x83\x52\x96\x9f\x0b\x0d\x01\x39\x30\x66\xb2\xb3\x95\xf7\x7d\x1b\x7c\x83\x6f\x9d\x06\x92\x49\x06\x74\x95\xeb\x2a\x81\x02\xc2\x48\xf8\x61\x9d\x57\xa3\xb8\x8f\x4f\x01\x4b\x66\x57\xbf\x68\x94\x15\x98\x0a\xf2\x53\xc9\xa8\xdb\xa8\xe3\xbf\x47\x44\x8a\xb0\x5a\xbd\x1a\x9e\xb5\x29\xf9\x4c\x46\xd3\xb9\x94\xe6\x9c\x05\xf6\x2c\x53\x32\xba\x07\xc8\x97\x9e\x09\x13\xaf\x82\xf6\xde\x07\x53\x50\x7e\x3a\xaa\xb5\x9c\xce\x63\x23\x33\x39\x99\x8c\x9a\xaa\xca\xaa\x35\x55\x9b\x4c\x03\x13\x1a\x44\x69\x8c\x26\xf0\xd6\x02\x56\x98\x6b\x77\x17\x4e\x28\x16\xb5\x8c\x22\xc0\xf2\x97\x2d\xa3\xb8\x43\xae\x45\x32\xf5"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1166,11 +1168,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x0d\x67\x75\x43\x46\xc3\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf6\x6f\xb7\xd6\x92\xb8\xdf\x3d\xc2\x47\xb9\xeb\x47\x40\x42\x99\x21\xe1\x1a\x74\xf7\x1b\xac\x40\xc0\x23\xe2\xa0\x1e\x87\x44\x57\x30\x7d\xb3\x2a\x38\x38\x06\x6d\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x4f\x0d\x27\x98\x19\x62\x11\x54\x00\x04\x00\x04\x00\x04\x00\x04\x05\xff\x80\x00\x04\x00\x2e\x1c\x19\xde\x80\x05\xe3\xf1\x87\x38\x71\x40\xc0\xa9\x65\x52\x4b\xa0\x19\x0e\x82\x63\x66\x8e\x93\x4b\x0a\xce\x80\x16\x66\xfe\x7a\x10\x54\x1b\x60\xa8\x0d"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x0d\xe4\x73\x07\x88\x40\x09\x1c\x40\x96\x23\x82\x19\xed\x9f\x97\x05\x2f\xb7\x13\xea\x0e\x50\x2c\xc9\xea\xc6\x6f\x5e\xf4\x22\xec\x82\xe2\x6c\xda\x74\x7d\x15\xe1\xe4\xbf\x99\xd9\x74\x78\xd4\x3d\x26\xf2\x7b\x2c\x3c\x6d\xa3\x8c\xd8\x3a\x14\xa9\xac"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x4e\x0b\x34\x77\xa9\xe0\x00\x4b\xfa\xa3\xaa\x8c\x91\x8b\xd3\x88\x16\x9f\xbb\x9d\x29\x54\x42\x62\x7d\x74\xb2\x64\x02\x78\xb7\xa5\xee\xf2\xeb\xab\x99\x10\xaa\x6a\x7b\x82\xa1\xa0\x61\xca\x1b\x3a\xc9\x0a\x5a\x97\x87\xdf\xa5\x8b\xea\xe8\x3f\x59\x20"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x06\x0d\xe4\x58\xcb\x9a\x50\x3f\x67\x5a\x18\x97\x8f\x12\x87\x11\x8a\xd9\x0b\x8b\x95\xea\x11\xba\x7f\x3b\xd4\x60\x66\xb9\x9b\xd9\xdf\x57\x00\x22\x57\x52\xd3\x95\x41\x01\x35\xdc\xbf\xa7\x9a\x41\xdf\x98\xb3\x86\x20\x3c\xd2\x1b\x1f\x44\xdf\x87\x43\x62"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x06\x4e\x0d\x36\x5e\x37\x02\x19\x54\x00\x04\x00\x04\x00\x04\x00\x04\x05\xff\x80\x01\x00\x00\x14\x01\x0c\x51\x80\x05\xe3\x67\x22\x86\xa8\x57\x3e\xea\x34\xd1\xa3\xa0\x3c\x70\x3b\xd8\xbb\x7e\x99\x42\x0e\x0e\x98\x9c\x8a\xc7\x36\xfa\x22\x5b\x2c\x28\xb1"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1230,11 +1232,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x0d\x67\x75\x43\x46\xc3\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf6\x6f\xb7\xd6\x92\xb8\xdf\x3d\xc2\x47\xb9\xeb\x47\x40\x42\x99\x21\xe1\x1a\x74\xf7\x1b\xac\x40\xc0\x23\xe2\xa0\x1e\x87\x44\x57\x30\x7d\xb3\x2a\x38\x38\x06\x6d\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x06\x0d\x67\x75\x25\x45\x64\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf9\x7f\xfa\xe6\x0f\x99\x33\x2c\x7a\x0e\xb9\xeb\x47\x40\x50\x64\x01\x81\x8e\xa6\x6c\x6f\x64\x18\xa0\x32\x71\x40\xfd\x34\x00\x5c\x3d\x23\x61\x82\x2d\x77\x82\x94\x86"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x0d\xe4\x73\x07\x88\x40\x09\x1c\x40\x96\x23\x82\x19\xed\x9f\x97\x05\x2f\xb7\x13\xea\x0e\x50\x2c\xc9\xea\xc6\x6f\x5e\xf4\x22\xec\x82\xe2\x6c\xda\x74\x7d\x15\xe1\xe4\xbf\x99\xd9\x74\x78\xd4\x3d\x26\xf2\x7b\x2c\x3c\x6d\xa3\x8c\xd8\x3a\x14\xa9\xac"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x06\x0d\xe4\x73\x07\x88\x40\x05\x59\x17\xeb\xbe\x1c\xbb\xf3\x98\x6c\x2f\x81\x11\x13\xe1\x3f\xb7\x13\xb7\xe9\x18\xaa\xfd\x63\x61\x59\x92\x82\x6a\x83\x97\x74\x5c\x50\x09\xaf\x1b\x63\x32\x32\xc5\x9b\x43\xc9\xfe\xbc\x0e\x20\xce\x53\x97\x94\xa9\x52\x17"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x06\x0d\xe4\x58\xcb\x9a\x50\x3f\x67\x5a\x18\x97\x8f\x12\x87\x11\x8a\xd9\x0b\x8b\x95\xea\x11\xba\x7f\x3b\xd4\x60\x66\xb9\x9b\xd9\xdf\x57\x00\x22\x57\x52\xd3\x95\x41\x01\x35\xdc\xbf\xa7\x9a\x41\xdf\x98\xb3\x86\x20\x3c\xd2\x1b\x1f\x44\xdf\x87\x43\x62"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x06\x0d\x67\x75\x25\x45\x64\x10\x80\x00\x80\x80\x00\x00\x00\x00\x80\x80\x00\x00\xbf\xf9\x7f\xfa\xa6\x0f\x99\x7b\x5e\x1e\x0f\x29\xe8\xf7\x40\x45\x0e\x18\x03\xa9\x2f\x74\x32\xc8\x18\x20\x6d\xd1\x40\x43\xfd\x38\x6a\x85\x6f\x40\x12\x76\x69\x83\x83\x06"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1295,11 +1297,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xff\x05\x0d\x67\x75\x43\x46\xc3\x10\x82\x03\x82\x02\x00\x00\x00\x5f\xf1\x9a\x2c\xd9\xea\x12\x46\x8b\xa0\x21\xd6\x1f\xd0\xc2\xb8\xa0\x61\xa0\x79\x25\x36\x57\x23\xbd\xd9\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xff\x05\x4d\xa4\xf3\x03\x2c\x42\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x02\x94\x03\xfa\xaf\x1f\xa7\xde\x50\x30\x8a\x3a\x01\x5a\xc0\x3f\xc3\x62\x76\x94\xa8\x26\x17\x83\x57\x8a"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xff\x05\x0d\xe4\x73\x07\x88\x40\x03\x19\x43\xa3\x1d\xf7\xfb\x85\x89\xf4\xba\xee\x7e\x28\x4b\xf1\x89\x71\x33\xa1\xa6\xfe\xe5\xe3\x9d\x75\x95\x06\xea\xee\xb5\xc3\x75\x16\xa0"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xff\x05\x4d\x66\x8e\xf5\x3c\x00\x00\x35\x96\x24\x96\x82\x3a\x9c\x76\xa2\xa0\xd7\x61\x1e\x13\xfd\x63\x81\x40\x87\x25\xbc\xc7\x82\x6b\xb1\x0d\x29\x98\x1f\xbf\x09\x11\x56\xa0"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\xff\x05\x0d\xe4\x58\xcb\x9a\x50\x4b\x41\xb5\xd5\x58\xa9\xfa\x80\x99\x11\x05\x39\xae\x43\x80\x41\x1a\x41\x71\x3f\x62\x78\x64\xc1\x71\x61\xd7\x08\xfc\xad\xbe\x96\x3b\x00\x4a"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\xff\x05\x4d\xa6\xcb\xc6\xe0\x43\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x00\x14\x03\x5a\xaf\x1c\xc8\x3e\xe1\x30\x92\x3a\x01\x80\x6a\xe7\x47\x61\x15\x00\x0e\x09\xdb\x02\xc5\x77"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1358,11 +1360,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x25\x1c\xa6\x31\xee\x69\xff\xd4\x16\x11\xbe\x62\xfa\x17\xe0\x88\x88\x8a\xaa\x88\x8e\x8c\x8a\x08\x02\x86\x8c\x8c\xa2\x02\x63"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x11\x84\xa6\x30\xee\x84\xfd\x56\x02\x11\x05\xe0\xba\x1f\xe0\xa8\x8a\xaa\xaa\x88\xac\x8a\x8a\xa8\xae\x88\xcc\x88\x8a\x0e\x0d"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xf8\x73\x95\xfd\xee\x4f\x83\x48\x5c\x68\x9e\x24\x80\x91\xc9\xdb\x2a\x53\xc7\xb9\x0a\x36\x81\x8d\x00\x41\x81\x4f\x33\xf3\xcb\x9d"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xfc\x73\x1e\x7c\x38\x8f\x83\xc9\x76\x41\x35\x71\xc5\x22\x6e\xbe\x00\x01\xad\x62\x78\x89\xe4\xe6\x00\x3c\x65\x8a\x21\x90\x45\xbd"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\xf0\xa3\x9e\x13\x34\xd4\xd7\xf8\x95\x1b\x6d\x12\x85\xe0\xbf\xf4\xd5\xf4\x7a\xf1\xe4\xa5\xaa\x73\x34\x4d\xba\x05\x74\x93\x4d\x41"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\xf9\x41\x84\xa6\x30\xee\x84\xc8\x34\x40\x18\x15\xa1\xde\x1f\xe0\x88\x2a\xaa\xaa\xa8\x88\x8c\xae\xa8\x4e\x8e\x88\x88\xae\x48\x03"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1424,11 +1426,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x25\x1c\xa6\x31\xee\x69\xff\xd4\x16\x11\xbe\x62\xfa\x08\x8f\x04\x50\x52\x01\x43\x90\x0b\x09\xc7\xd1\x30\x04\x39\xd7\x74\xb1\x2d\x24\x90\x40\x4c\x5c\x12\x07\x41\x48\x08\x60\x00\x05\x61\xb3\x0d\x09\x5e\xc0\x5c\x58\x16\x9a\x88\x05"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\xf1\x11\x84\xa6\x30\xee\x84\xfd\x56\x02\x11\x05\xe0\xba\x00\x0d\x0c\x70\x3c\x21\x41\xd0\x1b\x48\xc4\xd8\x02\x14\xb7\xd7\xb4\xb9\x2d\x38\xd4\x5a\xce\x10\x13\xa3\x4d\xe8\x88\x62\x32\x05\xb0\xf1\xa9\x05\x1e\xd8\xd8\xc0\x14\x58\x1b\x05"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xfb\x73\x1c\xe4\x30\xe1\x83\x48\x5c\xf9\xde\x22\x80\x90\xff\xe7\x93\xbb\x82\xed\x13\x74\x33\xed\x18\xd2\xa3\x38\xec\x28\x65\x61\x40\x6a\x0e\xe4\x97\xc1\x51\x9a\xa4\x59\x62\x1d\xb9\xfd\xf7\x0c\xf5\xd4\x0c\x1f\xee\x08\xac\x90\x50\xf3"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\xf8\x73\x1e\x7e\x7b\x0e\x87\xc9\x76\x40\x37\x71\xc1\x21\xf7\xb1\x00\x42\xc3\xe6\xd9\x93\xd3\x7c\xb2\xbf\x88\xbd\xa6\x4a\xeb\xc2\x63\x89\xd7\xb3\x04\x4a\x3f\xc1\xd2\xe8\x88\x39\x32\x1d\xba\x8d\x58\x35\xf3\xfc\x8a\xdb\x92\xa3\x7b\xab"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\xf4\xa2\x90\x19\xbc\xf6\xc7\xf8\x95\x2a\x4d\x10\x81\xe5\x79\x7f\xed\x9f\x04\xd8\xd3\xdc\x9d\x67\xee\x36\xf3\xdb\xd9\xbb\x73\x59\x55\x97\xcf\x71\x40\xa4\x1f\x16\xb8\x7d\xd9\xf9\x82\x35\x13\x44\x87\x7d\xf2\x56\x0b\x8e\xad\xf8\xc0\x0d"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\xf9\x41\x84\xa6\x30\xee\x84\xc8\x34\x40\x18\x15\xa1\xde\x08\x49\x04\x71\x3c\x01\x45\x80\x59\x49\xcd\x59\x66\x34\x3f\xd3\xf4\xb1\x69\xbe\xf4\x54\x4e\xdc\x1b\x06\x43\xea\x88\x63\x70\x44\xa4\x70\xa8\x00\x3e\x40\x51\x98\x02\xd2\xb8\x89"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1487,13 +1489,14 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x0d\x67\x75\x43\x46\xc3\x10\x82\x03\x82\x02\x00\x00\x00\x5f\xf1\x9a\x2c\xd9\xea\x12\x46\x8b\xa0\x21\xd6\x1f\xd0\xc2\xb8\xa0\x61\xa0\x79\x25\x36\x57\x23\xbd\xd9\x01"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x4d\xa4\xf3\x03\x2c\x42\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x02\x94\x03\xfa\xaf\x1f\xa7\xde\x50\x30\x8a\x3a\x01\x5a\xc0\x3f\xc3\x62\x76\x94\xa8\x26\x17\x83\x57\x8a"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x0d\xe4\x73\x07\x88\x40\x03\x19\x43\xa3\x1d\xf7\xfb\x85\x89\xf4\xba\xee\x7e\x28\x4b\xf1\x89\x71\x33\xa1\xa6\xfe\xe5\xe3\x9d\x75\x95\x06\xea\xee\xb5\xc3\x75\x16\xa0"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x4d\x66\x8e\xf5\x3c\x00\x00\x35\x96\x24\x96\x82\x3a\x9c\x76\xa2\xa0\xd7\x61\x1e\x13\xfd\x63\x81\x40\x87\x25\xbc\xc7\x82\x6b\xb1\x0d\x29\x98\x1f\xbf\x09\x11\x56\xa0"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x0d\xe4\x58\xcb\x9a\x50\x4b\x41\xb5\xd5\x58\xa9\xfa\x80\x99\x11\x05\x39\xae\x43\x80\x41\x1a\x41\x71\x3f\x62\x78\x64\xc1\x71\x61\xd7\x08\xfc\xad\xbe\x96\x3b\x00\x4a"));
snd($sock_a, $port_b, rtp(8, 2003, 4480, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x4d\x6c\x21\x0d\x8c\xd8\x1e\x71\xc4\xc4\xdf\xcb\xdb\xe0\x1b\x47\xb6\x90\x41\x17\x1e\x31\xc7\xc4\xfc\xc7\xa0\x09\xde\xf1\xa9\x7f\xfa\x8e\x25\x54\xe5\x8a\x98\x1c\xaf"));
rcv($sock_b, $port_a, rtpm(96, 2003, 4960, $ssrc, "\x0c\x5c\x44\x58\x04\x58\x01\x79\x5d\xae\x82\xcf\x82\x3b\x5e\xb0\x21\x80\x87\x1a\xc0\xc0\xaa\xf0\x16\xd8\x07\x94\x0e\xa7\x39\xa5\xe6\xe7\xec\x60\x4d\x41\x75\x86\xaf"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x4d\xa6\xcb\xc6\xe0\x43\x2a\x80\x80\x80\x80\x80\x2f\xfc\x00\x00\x14\x03\x5a\xaf\x1c\xc8\x3e\xe1\x30\x92\x3a\x01\x80\x6a\xe7\x47\x61\x15\x00\x0e\x09\xdb\x02\xc5\x77"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1504,9 +1507,9 @@ snd($sock_b, $port_a, rtp(96, 6001, 7320, 0x9876, "\x4d\x66\x8f\xf5\x3c\x01\x13\
snd($sock_b, $port_a, rtp(96, 6002, 7640, 0x9876, "\xa7\x05\x4d\x6c\x25\x8d\x8e\x58\x0f\x04\x84\x8f\x89\xa5\xf8\xf0\x2f\x79\x67\x70\xea\xc1\x00\x17\xa5\xc8\xe2\x9d\x1a\x00\x04\x26\xeb\x73\x5f\x85\x00\x0c\x69\xb1\xff\xbe\x4a"));
rcv($sock_a, $port_b, rtpm(8, 6001, 7160, $ssrc_b, "\x85\x84\x87\x86\x86\x86\x80\x81\x80\x80\x83\x83\x8d\x8d\x8d\x8c\x8d\x8c\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x82\x82\x82\x83\x83\x83\x83\x83\x80\x80\x80\x81\x81\x86\x86\x86\x87\x87\x84\x84\x84\x85\x9a\x9a\x9b\x98\x99\x9e\x9e\x9f\x9c\x9d\x92\x93\x93\x90\x91\x96\x97\x94\x95\xea\xeb\xe9\xee\xec\xe2\xe3\xe1\xe6\xe4\xe5\xfb\xfe\xfd\xf3\xf6\xf4\xc8\xcd\xc6\xdb\xdc\xd1\x55\x53\x5f\x5a\x41\x4c\x48\x74\x76\x70\x72\x7c\x7e\x7b\x65\x64\x66\x61\x60\x63\x62\x6c\x6f\x6e\x69\x68\x6b\x6a\x6a\x15\x15\x14\x14\x17\x17\x17\x16\x16\x11\x11\x11\x10\x10\x10\x10\x13\x13\x13\x13\x13\x13\x13\x13\x13\x13"));
# now receive mode 7
# now receive mode 6 (not 7, clamped by 8 kHz input)
snd($sock_a, $port_b, rtp(8, 2004, 4640, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2003, 4960, $ssrc, "\x02\x00\xbd\x23\x5c\x22\x02\x80\x00\x1c\xa7\x4f\xe0\x39\x0f\x77\x21\x4f\xa1\x80\x00\x7f\x27\xd2\x4b\x15\x82\xb0\x00\x0d\x20\x8c\x66\x9c\xb0\x50\x00\x04\x95\x11\x01\x75\x07\x20\x00\x34\x00\x76\x35\x81\xc0\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"));
rcv($sock_b, $port_a, rtpm(96, 2004, 5280, $ssrc, "\x0c\x4d\xe0\xe0\x3f\x98\x00\x71\x07\x3b\x15\xed\x95\x35\xaf\x37\x69\x0e\xce\xbf\xf7\x4f\x45\xe9\x79\x3b\x2b\xfc\xe1\xae\x63\xbc\x25\xe2\x70\x93\x53\x09\x9d\x14\x92\x11\xd4\x84\x41\x50\xa5\xe9\x34\x7b\x48\xa9\x80\x76\x58\x3e\x70\x90\x0c\xa6\x2f"));
@ -1560,11 +1563,11 @@ SDP
snd($sock_a, $port_b, rtp(8, 2000, 4000, 0x3456, "\x2b" x 160));
Time::HiRes::usleep(20000); # no output, resampling delay
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x01\x0b\x1d\x39\xa4\x08\x74\x00\x10\x07\xbe\x9c\x3f\x04\x0e\x80\x00\x78\x0b"));
snd($sock_a, $port_b, rtp(8, 2001, 4160, 0x3456, "\x2b" x 160));
($ssrc) = rcv($sock_b, $port_a, rtpm(96, 2000, 4000, -1, "\x01\x68\x2a\xb4\xd8\x2c\x74\x00\x10\x07\xdf\x1c\x57\x04\x93\x3f\x68\x60\x03"));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x01\x0f\x22\x75\x31\x88\x07\x84\x9f\xf8\x18\x2c\x66\x66\xcf\x84\x9d\xec\x1c"));
snd($sock_a, $port_b, rtp(8, 2002, 4320, 0x3456, "\x2b" x 160));
rcv($sock_b, $port_a, rtpm(96, 2001, 4320, $ssrc, "\x01\x9b\x8c\xe1\xe2\x11\x1d\xdd\x9e\x01\x2c\x2f\x10\xcc\x0f\x46\x24\x45\xeb"));
rcv($sock_b, $port_a, rtpm(96, 2002, 4640, $ssrc, "\x01\x0f\x21\x9e\x0b\xa8\xf4\xb9\xb7\x6e\x20\x4a\x7b\xd7\x07\x02\xba\x97\x04"));
snd($sock_b, $port_a, rtp(96, 6000, 7000, 0x9876, "\x01\x68\x2a\xb4\xd8\x2c\x74\x00\x10\x07\xdf\x1c\x57\x04\x93\x3f\x68\x60\x03"));
Time::HiRes::usleep(20000); # no output, resampling delay
@ -1574,5 +1577,5 @@ snd($sock_b, $port_a, rtp(96, 6001, 7320, 0x9876, "\x01\x9b\x8c\xe1\xe2\x11\x1d\
done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
#done_testing();
#done_testing;NGCP::Rtpengine::AutoTest::terminate('f00');exit;
done_testing();

Write Preview
Loading…
Cancel
Save