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

Tests: test CWOP filtering with CW and EW prefixes

This commit is contained in:
Heikki Hannikainen 2013-04-19 20:08:44 +03:00
parent eaf3fd68df
commit 6bbc2c7e91
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/t/34filter-type-symbol.t
View File

@ -3,7 +3,7 @@
#
use Test;
BEGIN { plan tests => 6 + 16 + 3 };
BEGIN { plan tests => 6 + 18 + 3 };
use runproduct;
use istest;
use Ham::APRS::IS;
@ -68,7 +68,7 @@ $drop = "ST10>APRS,qAR,$login:\@100857z5241.73N/00611.14E_086/002g008t064r000p00
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
# set a filter for second half of the types
$i_rx->sendline("#filter t/stunw");
$i_rx->sendline("#filter t/stunwc");
sleep(0.5);
# status pass, position drop
@ -91,6 +91,15 @@ $drop = sprintf("ST17>APRS,qAR,%s::%-9.9s:normal message again{ff", $login, 'DST
$pass = "ST18>APRS,qAR,$login:\@100857z5241.73N/00611.14E_086/002g008t064r000p000P000h63b10102L810.DsIP-VP";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
# CWOP pass, position drop
$pass = "CW1234>APRS,qAR,$login:!6028.51N/02505.68E# CWOP pass";
$drop = "XW1AA>APRS,qAR,$login:!6028.51N/02505.68E# pos drop";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
$pass = "EW1234>APRS,qAR,$login:!6028.51N/02505.68E# CWOP pass";
$drop = "FW1AB>APRS,qAR,$login:!6028.51N/02505.68E# pos drop";
istest::should_drop(\&ok, $i_tx, $i_rx, $drop, $pass);
##############################################
# distance in type filter
$i_rx->sendline("#filter t/o/OH2TI/10");