1#!./perl 2 3# $RCSfile: multiline.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:20 $ 4 5print "1..5\n"; 6 7open(try,'>Comp.try') || (die "Can't open temp file."); 8 9$x = 'now is the time 10for all good men 11to come to. 12'; 13 14$y = 'now is the time' . "\n" . 15'for all good men' . "\n" . 16'to come to.' . "\n"; 17 18if ($x eq $y) {print "ok 1\n";} else {print "not ok 1\n";} 19 20print try $x; 21close try; 22 23open(try,'Comp.try') || (die "Can't reopen temp file."); 24$count = 0; 25$z = ''; 26while (<try>) { 27 $z .= $_; 28 $count = $count + 1; 29} 30 31if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";} 32 33if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";} 34 35$_ = ($^O eq 'MSWin32') ? `type Comp.try` : `cat Comp.try`; 36 37if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";} 38 39close(try) || (die "Can't close temp file."); 40unlink 'Comp.try' || `/bin/rm -f Comp.try`; 41 42if ($_ eq $y) {print "ok 5\n";} else {print "not ok 5\n";} 43