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