Harden test against newline translation.

Raku · Dec 16, 2015 · 6edc4ed · 6edc4ed
1 parent a1c2454
commit 6edc4ed
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/S17-procasync/print.t b/S17-procasync/print.t
@@ -15,7 +15,8 @@ while my $line = $*IN.get {
 say "Done";
 ';
 ok $program.IO.spurt($source),   'could we write the tester';
-is $program.IO.s, $source.codes, 'did the tester arrive ok';
+my $exp-size = $*DISTRO.is-win ?? $source.codes + $source.lines !! $source.codes;
+is $program.IO.s, $exp-size, 'did the tester arrive ok';
 
 my $pc = Proc::Async.new( $*EXECUTABLE, $program, :w );
 isa-ok $pc, Proc::Async;