Add tests for unchomped lines

Author: lizmat

S17-supply/lines.t

@@ -5,9 +5,10 @@ use Test;
 use Test::Tap;
 
 my @simple  = <a b c d e>;
+my @original;
 my @endings = "\n", "\r", "\r\n";
 
-plan 11;
+plan 21;
 
 dies_ok { Supply.lines }, 'can not be called as a class method';
 
@@ -16,19 +17,31 @@ for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
 
     tap_ok Supply.for( @simple.map: * ~ "\n" ).lines,
       @simple,
-      "we can handle a simple list of lines with LF";
+      "handle a simple list of lines with LF";
+    tap_ok Supply.for( @original = @simple.map: * ~ "\n" ).lines(:!chomp),
+      @original,
+      "handle a simple list of lines with LF without chomping";
 
     tap_ok Supply.for( @simple.map: * ~ "\r" ).lines,
       @simple,
-      "we can handle a simple list of lines with CR";
+      "handle a simple list of lines with CR";
+    tap_ok Supply.for( @original = @simple.map: * ~ "\r" ).lines(:!chomp),
+      @original,
+      "handle a simple list of lines with CR without chomping";
 
     tap_ok Supply.for( @simple.map: * ~ "\r\n" ).lines,
       @simple,
-      "we can handle a simple list of lines with CRLF";
+      "handle a simple list of lines with CRLF";
+    tap_ok Supply.for( @original = @simple.map: * ~ "\r\n" ).lines(:!chomp),
+      @original,
+      "handle a simple list of lines with CRLF without chomping";
 
     tap_ok Supply.for( @simple.map: * ~ @endings.pick ).lines,
       @simple,
-      "we can handle a simple list of lines with mixed line ending";
+      "handle a simple list of lines with mixed line ending";
+    tap_ok Supply.for(@original= @simple.map: * ~ @endings.pick).lines(:!chomp),
+      @original,
+      "handle a simple list of lines with mixed line ending w/o chomping";
 
     {
         my $s = Supply.new;
@@ -43,4 +56,18 @@ for ThreadPoolScheduler.new, CurrentThreadScheduler -> $*SCHEDULER {
               $s.done;
           } );
     }
+
+    {
+        my $s = Supply.new;
+        tap_ok $s.lines(:!chomp),
+          ["a\n","b\r\n","c\r","d\n","\n","eeee"],
+          "handle chunked lines",
+          :after-tap( {
+              $s.more( "a\nb\r" );
+              $s.more( "\nc\rd\n" );
+              $s.more( "\ne" );
+              $s.more( "eee" );
+              $s.done;
+          } );
+    }
 }