Lines Matching refs:lines
204 my @lines = <$io>;
205 is @lines, 6, " Line is 6"
206 or print "# Got " . scalar(@lines) . " lines, expected 6\n" ;
207 is $lines[1], "of a paragraph\n" ;
208 is join('', @lines), $str ;
226 my @lines = $io->getlines;
228 ok @lines == 1 && $lines[0] eq $str;
241 my @lines = <$io>;
243 ok @lines == 2
244 or print "# Got " . scalar(@lines) . " lines, expected 2\n" ;
245 ok $lines[0] eq "This is an example\nof a paragraph\n\n\n"
246 or print "# $lines[0]\n";
247 ok $lines[1] eq "and a single line.\n\n";
253 my @lines = ();
258 push(@lines, $_);
265 ok @lines == 3
266 or print "# Got " . scalar(@lines) . " lines, expected 3\n" ;
267 ok join("-", @lines) eq
333 my @lines = <$io>;
334 ok @lines == 6;
335 ok $lines[1] eq "of a paragraph\n" ;
336 ok join('', @lines) eq $str ;
354 my @lines = $io->getlines;
356 ok @lines == 1 && $lines[0] eq $str;
369 my @lines = <$io>;
371 ok @lines == 2
372 or print "# expected 2 lines, got " . scalar(@lines) . "\n";
373 ok $lines[0] eq "This is an example\nof a paragraph\n\n\n"
374 or print "# [$lines[0]]\n" ;
375 ok $lines[1] eq "and a single line.\n\n";
381 my @lines = ();
386 push(@lines, $_);
393 ok @lines == 3 ;
394 ok join("-", @lines) eq