From 6bbc2c7e911f6935490a5b2b75fb07606da0cb19 Mon Sep 17 00:00:00 2001
From: Heikki Hannikainen <hessu@hes.iki.fi>
Date: Fri, 19 Apr 2013 20:08:44 +0300
Subject: [PATCH] Tests: test CWOP filtering with CW and EW prefixes

---
 tests/t/34filter-type-symbol.t | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/tests/t/34filter-type-symbol.t b/tests/t/34filter-type-symbol.t
index 137a6b0..986be0b 100644
--- a/tests/t/34filter-type-symbol.t
+++ b/tests/t/34filter-type-symbol.t
@@ -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");