diff --git a/t/Makefile b/t/Makefile index 93d4e2e73..8e7737120 100644 --- a/t/Makefile +++ b/t/Makefile @@ -110,6 +110,8 @@ daemon-tests: tests-preload.so mkdir fake-sockets LD_PRELOAD=../t/tests-preload.so RTPE_BIN=../daemon/rtpengine TEST_SOCKET_PATH=./fake-sockets \ perl -I../perl auto-daemon-tests.pl + LD_PRELOAD=../t/tests-preload.so RTPE_BIN=../daemon/rtpengine TEST_SOCKET_PATH=./fake-sockets \ + perl -I../perl auto-daemon-tests-jb.pl test "$$(ls fake-sockets)" = "" rmdir fake-sockets diff --git a/t/auto-daemon-tests-jb.pl b/t/auto-daemon-tests-jb.pl new file mode 100755 index 000000000..dcb385070 --- /dev/null +++ b/t/auto-daemon-tests-jb.pl @@ -0,0 +1,94 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use NGCP::Rtpengine::Test; +use NGCP::Rtpclient::SRTP; +use NGCP::Rtpengine::AutoTest; +use Test::More; + + +autotest_start(qw(--config-file=none -t -1 -i 203.0.113.1 -i 2001:db8:4321::1 + -n 2223 -c 12345 -f -L 7 -E -u 2222 --jitter-buffer=10)) + or die; + + +my ($sock_a, $sock_b, $port_a, $port_b, $ssrc, $resp, $srtp_ctx_a, $srtp_ctx_b, @ret1, @ret2); + + + + +# RTP sequencing tests + +($sock_a, $sock_b) = new_call([qw(198.51.100.1 2010)], [qw(198.51.100.3 2012)]); + +($port_a) = offer('two codecs, no transcoding', { ICE => 'remove', replace => ['origin'] }, < 'remove', replace => ['origin'] }, <