kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

These are used to run test scenarios against snom phones for automated testing 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@7082 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2008-01-04 18:24:00 +00:00
parent 7adad0e4a9
commit cb03f74e20
5 changed files with 96 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/scenario/attended_transfer.button Normal file
View File

@ -0,0 +1,14 @@
Snom_300,key,CANCEL
Snom_360,key,CANCEL
Snom_370,key,CANCEL
Snom_300,key,ONHOOK
Snom_360,key,ONHOOK
Snom_370,key,ONHOOK,1
Snom_300,number,1006,1
Snom_360,key,OFFHOOK, 1
Snom_360,key,F_HOLD, 1
Snom_360,number,1007,2
Snom_370,key,OFFHOOK,1
Snom_360,key,F_TRANSFER,2
Snom_360,key,ONHOOK

11
scripts/scenario/blind_transfer.button Normal file
View File

@ -0,0 +1,11 @@
Snom_300,key,CANCEL
Snom_360,key,CANCEL
Snom_370,key,CANCEL
Snom_300,key,ONHOOK
Snom_360,key,ONHOOK
Snom_370,key,ONHOOK,1
Snom_300,number,1006,1
Snom_360,key,OFFHOOK,1
Snom_360,key,F_TRANSFER,1
Snom_360,number,1007,2
Snom_370,key,OFFHOOK,1

8
scripts/scenario/offhook.button Normal file
View File

@ -0,0 +1,8 @@
Snom_300,key,OFFHOOK
Snom_320,key,OFFHOOK
Snom_360,key,OFFHOOK
Snom_370,key,OFFHOOK
Snom_300,key,ONHOOK
Snom_320,key,ONHOOK
Snom_360,key,ONHOOK
Snom_370,key,ONHOOK

4
scripts/scenario/phones.cfg Normal file
View File

@ -0,0 +1,4 @@
Snom_300,10.0.1.241,1000
Snom_320,10.0.1.242,1002
Snom_360,10.0.1.243,1006
Snom_370,10.0.1.244,1007

59
scripts/scenario/runscenario.pl Executable file
View File

@ -0,0 +1,59 @@
#!/usr/bin/perl
#
# Scenario Test Execution.
#
use LWP::UserAgent;
use Data::Dumper;
$| =1;
our $ua = LWP::UserAgent->new;
my $phone = load_config();
if(-f $ARGV[0]) {
run_scenario($ARGV[0]);
} else {
print "No Scenario File?\n";
exit;
}
sub run_scenario($$) {
$file = shift;
open(SCENARIO,"<$file");
@commands = <SCENARIO>;
print Dumper $info;
foreach $command (@commands) {
chomp $command;
my($target, $type, $button, $delay) = split(",",$command);
&push_button($phone->{$target}, "$type", "$button", $delay);
}
}
sub push_button ($$$) {
$info = shift;
$type = shift;
$button = shift;
$delay = shift;
if($delay) {
sleep($delay);
} else {
$delay = 0;
}
print "$info->{name} -> $type => $button with delay $delay\n";
$request = HTTP::Request->new("GET", "http://$info->{ip}/command.htm?$type=$button");
$return = $ua->request($request);
}
sub load_config {
open(CFG,"<phones.cfg");
@phones = <CFG>;
foreach $line (@phones) {
chomp $line;
my($name,$ip,$extension) = split(",", $line);
$phone->{$name} = {name => $name, ip => $ip, extension => $extension}
}
return $phone;
}