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

Added messaging test with different SSID

This commit is contained in:
Heikki Hannikainen 2013-06-25 08:17:57 +03:00
parent 128b72d39f
commit a950c8ab4e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/t/40messaging.t
View File

@ -18,7 +18,7 @@
#
use Test;
BEGIN { plan tests => 8 + 9 + 1 + 2 + 3 + 1 + 6 + 4 };
BEGIN { plan tests => 8 + 9 + 1 + 2 + 3 + 2 + 6 + 4 };
use runproduct;
use istest;
use Ham::APRS::IS;
@ -144,6 +144,12 @@ $tx = sprintf("$msg_src>APRS,OH2RDG*,WIDE,%s,I::%-9.9s:message", $login_tx, $log
$rx = sprintf("$msg_src>APRS,OH2RDG*,WIDE,qAR,%s::%-9.9s:message", $login_tx, $login_rx);
istest::txrx(\&ok, $i_tx, $i_rx, $tx, $rx);
# with a different SSID
$tx = sprintf("$msg_src>APRS,OH2RDG*,WIDE,%s,I::%-9.9s:message with ssid", $login_tx, $login_rx . "-9");
$rx = sprintf("$msg_src>APRS,OH2RDG*,WIDE,qAR,%s::%-9.9s:message with ssid", $login_tx, $login_rx. "-9");
$helper = "H1LP>APRS,OH2RDG*,WIDE:!6028.51N/02505.68E# should pass diff ssid";
istest::should_drop(\&ok, $i_tx, $i_rx, $tx, $helper);
#
# Message to an OBJECT
#