Trying to fix t/telnet.t with \r\n on BSD

Author: Jan Henning Thorsen

Changes

@@ -1,5 +1,8 @@
 Revision history for Mojo-IOLoop-ReadWriteFork
 
+0.09
+       * Trying to fix t/telnet.t with \r\n on BSD
+
 0.08     Sun Nov 16 14:16:47 2014
        * Trying to fix t/telnet.t with localhost
 

t/telnet.t

@@ -9,6 +9,7 @@ plan skip_all => 'telnet is missing' unless grep { -x "$_/telnet" } split /:/, $
 
 my $address = 'localhost';
 my $port = Mojo::IOLoop::Server->generate_port;
+my $connected = 0;
 
 # echo server
 Mojo::IOLoop->server({ address => $address, port => $port }, sub {
@@ -28,21 +29,22 @@ Mojo::IOLoop->server({ address => $address, port => $port }, sub {
   $run->on(read => sub {
     my ($run, $chunk) = @_;
     diag "client<<<($chunk)";
-    $run->write("hey\n", sub { $drain++; }) if $chunk =~ /Connected/;
-    $run->kill if $chunk =~ /I heard you say: hey/;
+    $run->write("open $address $port\r\n") unless $connected++;
+    $run->write("hey\r\n", sub { $drain++; }) if $chunk =~ /Connected/;
+    $run->kill if $chunk =~ /I heard you say/;
     $output .= $chunk;
   });
 
   $run->start(
     program => 'telnet',
-    program_args => [$address => $port],
+    program_args => [],
     conduit => 'pty',
   );
 
   Mojo::IOLoop->timer(2 => sub { Mojo::IOLoop->stop }); # guard
   Mojo::IOLoop->start;
   like $output, qr{Connected}, 'Connected';
-  like $output, qr{I heard you say: hey}, 'got echo';
+  like $output, qr{I heard you say:.*hey}s, 'got echo';
   is $drain, 1, 'got drain event';
 }