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

qconstr-verified tests: test TCPIP* insertion 

git-svn-id: http://repo.ham.fi/svn/aprsc/trunk@428 3ce903b1-3385-4e86-93cd-f9a4a239f7ac
This commit is contained in:
Heikki Hannikainen 2012-06-09 08:38:50 +00:00
parent 993c586188
commit a9fd220e46
2 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/t/20qconstr-verified.t
View File

@ -4,7 +4,7 @@
#
use Test;
BEGIN { plan tests => 34 };
BEGIN { plan tests => 37 };
use runproduct;
use istest;
use Ham::APRS::IS;
@ -34,6 +34,23 @@ ok($ret, 1, "Failed to connect to the server: " . $i_rx->{'error'});
# do the actual tests
# Not in the Q algorithm, but:
# Packets having srccall == login, and having no Q construct, must have
# their digipeater path truncated away and replaced with ,TCPIP* and
# then the Q construct.
istest::txrx(\&ok, $i_tx, $i_rx,
"$login>DST:tcpip-path-replace1",
"$login>DST,TCPIP*,qAC,TESTING:tcpip-path-replace1");
istest::txrx(\&ok, $i_tx, $i_rx,
"$login>DST,DIGI1,DIGI5*:tcpip-path-replace2",
"$login>DST,TCPIP*,qAC,TESTING:tcpip-path-replace2");
istest::txrx(\&ok, $i_tx, $i_rx,
"$login>DST,TCPIP*:tcpip-path-replace3",
"$login>DST,TCPIP*,qAC,TESTING:tcpip-path-replace3");
#
# All packets
# {

1
tests/t/30parser-filter.t
View File

@ -82,7 +82,6 @@ $tx = "N1CAL>$dstcall,OH2RDG*,WIDE:!5028.51S/02505.68E#PHG$phg should pass";
$rx = "N1CAL>$dstcall,OH2RDG*,WIDE,qAS,$login:!5028.51S/02505.68E#PHG$phg should pass";
istest::txrx(\&ok, $i_tx, $i_rx, $tx, $rx);
# disconnect
$ret = $i_rx->disconnect();