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

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

This commit is contained in:
Heikki Hannikainen 2016-10-23 12:17:46 +03:00
parent 1edb29adcc
commit 21b56bf6c5
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

@ -131,7 +131,7 @@ ok($ack, qr/^SERVER>[^,]+,TCPIP\*,qAZ,TESTING::N5CAL-2 :ackbx$/);
$reply = $i_rx->getline_noncomment(2); $reply = $i_rx->getline_noncomment(2);
#warn "received reply: $reply\n"; #warn "received reply: $reply\n";
# SERVER>APJS40,TCPIP*,qAZ,TESTING::N5CAL-2 :filter b/OZ*/ZZ* active{839 # 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\{.*$/);
# disconnect # disconnect