Test to cover RT #109306.

Raku · Nov 5, 2015 · e108d9d · e108d9d
1 parent 98054a2
commit e108d9d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/S32-io/IO-Socket-INET.pl b/S32-io/IO-Socket-INET.pl
@@ -141,7 +141,9 @@
             # Default separator should handle \n and \r\n
             say $sock.get();
             say $sock.get();
-            say $sock.get();
+            my $crlf-line = $sock.get();
+            say $crlf-line;
+            say $crlf-line.encode('ascii').elems;
             $sock.nl-in = '.';
             say $sock.get();
             $sock.nl-in = '!';

diff --git a/S32-io/IO-Socket-INET.t b/S32-io/IO-Socket-INET.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 47;
+plan 48;
 
 diag "{elapsed} starting tests";
 my $elapsed;
@@ -135,6 +135,9 @@ if $*DISTRO.name eq any <linux Linux darwin solaris mswin32 macosx> { # please a
     nok $elapsed > $toolong, "finished in time #11";
     is $expected[$i++], 'All mimsy were the borogoves,',
       "{elapsed} \\r\\n separator";
+    # RT #109306
+    is $expected[$i++], 29,
+      "{elapsed} \\r was not left behind on the string";
     nok $elapsed > $toolong, "finished in time #12";
     is $expected[$i++], 'And the mome raths outgrabe',
       "{elapsed} . as a separator";