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

t/30filter-cmd.t: escape another { in regexp, fix bug #34 again

This commit is contained in:
Heikki Hannikainen 2016-10-24 21:16:39 +03:00
parent 21b56bf6c5
commit d66f12771a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/t/30filter-cmd.t
View File

@ -110,7 +110,7 @@ ok($ack, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :ackax$/);
my $reply = $i_rx->getline_noncomment(2);
#warn "received reply: $reply\n";
# SERVER>APJS40,TCPIP*,qAZ,TESTING::N5CAL-2 :filter b/OZ*/ZZ* active{839
ok($reply, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :filter.*active{.*$/);
ok($reply, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :filter.*active\{.*$/);
# check that the new filter is applied
$tx = "OH2SRC>APRS,qAR,$login:>should drop7";