diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-29 04:45:40 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-29 04:45:40 -0500 |
commit | 02b6f240e9722a2d7078d0bdceb8abc01695d0b6 (patch) | |
tree | 1c93484fb1ec94a92bb3e3dc547f7e85b9d56a7f | |
parent | d93fed406a0519d79ee7450a66b5d5d54b0a0928 (diff) | |
download | io-socket-telnet-halfduplex-02b6f240e9722a2d7078d0bdceb8abc01695d0b6.tar.gz io-socket-telnet-halfduplex-02b6f240e9722a2d7078d0bdceb8abc01695d0b6.zip |
don't hardcode 99 in this test
-rw-r--r-- | t/001-ping.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/001-ping.t b/t/001-ping.t index de4db7d..b6c1a08 100644 --- a/t/001-ping.t +++ b/t/001-ping.t @@ -59,7 +59,8 @@ my $client = IO::Socket::Telnet::HalfDuplex->new( $client->telnet_simple_callback(sub { my $self = shift; my ($msg) = @_; - $pong++ if $msg =~ /99$/; + my $ping = ord($PONG); + $pong++ if $msg =~ /$ping$/; return ''; }); $client->send('blah'); |