ua1zbe
/
aprsc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Filter tests: q construct tests implemented 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@445 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-06-10 17:33:51 +00:00
parent fa27405bc5
commit 9d8b8443b6
1 changed files with 61 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
tests/t/37filter-qconstr.t Normal file
View File

@ -0,0 +1,61 @@
#
# Test filters for area (a/), my position range (m/), friend pos range (f/)
#
use Test;
BEGIN { plan tests => 6 + 4 + 1 };
use runproduct;
use istest;
use Ham::APRS::IS;
use Time::HiRes qw(sleep);
my $p = new runproduct('basic');
ok(defined $p, 1, "Failed to initialize product runner");
ok($p->start(), 1, "Failed to start product");
my $login = "N5CAL-1";
my $rxlogin = "N5CAL-2";
my $server_call = "TESTING";
my $i_tx = new Ham::APRS::IS("localhost:55580", $login);
ok(defined $i_tx, 1, "Failed to initialize Ham::APRS::IS");
my $i_rx = new Ham::APRS::IS("localhost:55581", $rxlogin);
ok(defined $i_rx, 1, "Failed to initialize Ham::APRS::IS");
my $ret;
$ret = $i_tx->connect('retryuntil' => 8);
ok($ret, 1, "Failed to connect to the server: " . $i_tx->{'error'});
$ret = $i_rx->connect('retryuntil' => 8);
ok($ret, 1, "Failed to connect to the server: " . $i_rx->{'error'});
my($tx, $rx, $helper);
###############################
# filter for Q construct
$i_rx->sendline("#filter q/RUo");
sleep(0.5);
$pass = "PU2TFG-15>APN390,qAR,$login:!2334.10S/04719.70W# pass qAR";
$drop = "$login>APN390:!2334.10N/04719.70W# drop qAC";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
# this drop is outside documentation, but it is dropped
$pass = "PU2TFG-1>APN390,qAU,$login:!2334.10S/04719.70W# pass qAU";
$drop = "$login>APN390,qAU,$login:!2334.10N/04719.70W# drop qAU)";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
$pass = "PU2TFG-2>APN390,qAo,SRVR1:!2334.10S/04719.70W# pass qAo";
$drop = "DR0P>APN39X,qAr,CL1ENT:!2334.10N/04719.70W# drop qAr)";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
$pass = "PU2TFG-2>APN390,qAo,SRVR1:!2334.10S/04719.70W# pass qAo";
$drop = "DR0P-2>APN39,qAO,CL1ENT:!2334.10N/04719.70W# drop qAr)";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
# stop
ok($p->stop(), 1, "Failed to stop product");