FS-9519: [avmd] Add unit test
Add perl script for testing of voicemail detection.
This commit is contained in:
Piotr Gregor
parent
66a8b5bfac
commit
8f4956725c
|
|
@ -0,0 +1,163 @@
|
||||||
|
#!/usr/bin/perl -w
|
||||||
|
|
||||||
|
|
||||||
|
#brief Test module avmd by calling all voicemails available
|
||||||
|
# in avmd test suite and print detection results to the console.
|
||||||
|
#author Piotr Gregor <piotrgregor@rsyncme.org>
|
||||||
|
#details If you are testing locally - remember to set avmd to inbound mode,
|
||||||
|
# "avmd set inbound" in fs_cli.
|
||||||
|
#date 15 Sept 2016 03:00 PM
|
||||||
|
|
||||||
|
|
||||||
|
$|++; # turn on autoflush
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
require ESL;
|
||||||
|
use POSIX;
|
||||||
|
use Time::HiRes;
|
||||||
|
|
||||||
|
|
||||||
|
# Hashtable of <destination number : test result expectation> pairs
|
||||||
|
my %numbers = (
|
||||||
|
400 => "DETECTED",
|
||||||
|
401 => "DETECTED",
|
||||||
|
402 => "DETECTED",
|
||||||
|
403 => "DETECTED",
|
||||||
|
404 => "DETECTED",
|
||||||
|
405 => "DETECTED",
|
||||||
|
406 => "DETECTED",
|
||||||
|
407 => "DETECTED",
|
||||||
|
408 => "DETECTED",
|
||||||
|
409 => "DETECTED",
|
||||||
|
410 => "DETECTED",
|
||||||
|
411 => "DETECTED",
|
||||||
|
412 => "DETECTED",
|
||||||
|
413 => "DETECTED",
|
||||||
|
414 => "DETECTED",
|
||||||
|
500 => "NOTDETECTED",
|
||||||
|
501 => "NOTDETECTED"
|
||||||
|
);
|
||||||
|
|
||||||
|
my $host = "127.0.0.1";
|
||||||
|
my $port = "8021";
|
||||||
|
my $pass = "ClueCon";
|
||||||
|
my $extension_base = "sofia/internal/1000\@192.168.1.60";
|
||||||
|
|
||||||
|
my $playback = 'local_stream://moh';
|
||||||
|
my $context = 'default';
|
||||||
|
my $endpoint;
|
||||||
|
my $dest;
|
||||||
|
my $expectation;
|
||||||
|
my $callerid;
|
||||||
|
my $passed = 0;
|
||||||
|
my $failed = 0;
|
||||||
|
my $hanguped = 0;
|
||||||
|
|
||||||
|
|
||||||
|
if ($#ARGV + 1 eq 1) {
|
||||||
|
$callerid = $ARGV[0];
|
||||||
|
print "\nDialing as [" .$callerid ."]\n";
|
||||||
|
} elsif ($#ARGV + 1 > 1) {
|
||||||
|
die "Please specify single caller id.\n";
|
||||||
|
} else {
|
||||||
|
die "Please specify caller id.\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
print "Connecting...\t";
|
||||||
|
my $con = new ESL::ESLconnection($host, $port, $pass);
|
||||||
|
if (!$con) {
|
||||||
|
die "Unable to establish connection to $host:$port\n";
|
||||||
|
}
|
||||||
|
if ($con->connected()) {
|
||||||
|
print "OK.\n";
|
||||||
|
} else {
|
||||||
|
die "Conenction failure.\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
print "Subscribing to avmd events...\t";
|
||||||
|
$con->events("plain", "CUSTOM avmd::start");
|
||||||
|
$con->events("plain", "CUSTOM avmd::stop");
|
||||||
|
$con->events("plain", "CUSTOM avmd::beep");
|
||||||
|
$con->events("plain", "CHANNEL_CALLSTATE");
|
||||||
|
$con->events("plain", "CHANNEL_HANGUP");
|
||||||
|
print "OK.\n\n";
|
||||||
|
printf("\nRunning [" .keys(%numbers) ."] tests.\n\n");
|
||||||
|
|
||||||
|
printf("outbound uuid | destination number | timestamp | expectation | test result\n\n");
|
||||||
|
foreach $dest (sort keys %numbers) {
|
||||||
|
if (!$con->connected()) {
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
$expectation = $numbers{$dest};
|
||||||
|
test_once($dest, $callerid, $expectation);
|
||||||
|
}
|
||||||
|
print "Disconnected.\n\n";
|
||||||
|
if (($failed == 0) && ($hanguped == 0)) {
|
||||||
|
printf("\n\nOK. All PASS [%s]\n\n", $passed);
|
||||||
|
} else {
|
||||||
|
printf("PASS [%s], FAIL [%s], HANGUP [%s]\n\n", $passed, $failed, $hanguped);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub test_once {
|
||||||
|
my ($dest, $callerid, $expectation) = @_;
|
||||||
|
my $originate_string =
|
||||||
|
'originate ' .
|
||||||
|
'{ignore_early_media=true,' .
|
||||||
|
'origination_uuid=%s,' .
|
||||||
|
'originate_timeout=60,' .
|
||||||
|
'origination_caller_id_number=' . $callerid . ',' .
|
||||||
|
'origination_caller_id_name=' . $callerid . '}';
|
||||||
|
my $outcome;
|
||||||
|
my $result;
|
||||||
|
my $event_uuid;
|
||||||
|
my $uuid_in = "";
|
||||||
|
|
||||||
|
if(defined($endpoint)) {
|
||||||
|
$originate_string .= $endpoint;
|
||||||
|
} else {
|
||||||
|
$originate_string .= 'loopback/' . $dest . '/' . $context;
|
||||||
|
}
|
||||||
|
$originate_string .= ' ' . '&playback(' . $playback . ')';
|
||||||
|
|
||||||
|
my $uuid_out = $con->api('create_uuid')->getBody();
|
||||||
|
my ($time_epoch, $time_hires) = Time::HiRes::gettimeofday();
|
||||||
|
|
||||||
|
printf("[%s] [%s]", $uuid_out, $dest);
|
||||||
|
$con->bgapi(sprintf($originate_string, $uuid_out));
|
||||||
|
|
||||||
|
while($con->connected()) {
|
||||||
|
my $e = $con->recvEvent();
|
||||||
|
if ($e) {
|
||||||
|
my $event_name = $e->getHeader("Event-Name");
|
||||||
|
if ($event_name eq 'CUSTOM') {
|
||||||
|
my $avmd_event_type = $e->getHeader("Event-Subclass");
|
||||||
|
if ($avmd_event_type eq 'avmd::start') {
|
||||||
|
$uuid_in = $e->getHeader("Unique-ID");
|
||||||
|
} elsif (!($uuid_in eq "") && (($avmd_event_type eq 'avmd::beep') || ($avmd_event_type eq 'avmd::stop'))) {
|
||||||
|
$event_uuid = $e->getHeader("Unique-ID");
|
||||||
|
if ($event_uuid eq $uuid_in) {
|
||||||
|
$outcome = $e->getHeader("Beep-Status");
|
||||||
|
if ($outcome eq $expectation) {
|
||||||
|
$result = "PASS";
|
||||||
|
$passed++;
|
||||||
|
} else {
|
||||||
|
$result = "FAIL";
|
||||||
|
$failed++;
|
||||||
|
}
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} elsif ($event_name eq 'CHANNEL_HANGUP') {
|
||||||
|
$event_uuid = $e->getHeader("variable_origination_uuid");
|
||||||
|
if ($event_uuid eq $uuid_out) {
|
||||||
|
$outcome = "HANGUP";
|
||||||
|
$result = "HANGUP";
|
||||||
|
$hanguped++;
|
||||||
|
last;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("\t[%s]\t[%s]\t\t[%s]\n", POSIX::strftime('%Y-%m-%d %H:%M:%S', localtime($time_epoch)), $expectation, $result);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue