diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-19 06:07:51 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-19 06:07:51 +0000 |
| commit | c6f14548d7bd301fc081005522b7fbe495c9b172 (patch) | |
| tree | 203c577cfb60ef08245a85f8b4d757a8ab5bf49d /t | |
| parent | ceb0239cfc85c38d2ac2c2a50f33600a9b3c05bc (diff) | |
| download | perl-c6f14548d7bd301fc081005522b7fbe495c9b172.tar.gz | |
fix and test handling of literal newlines in heredocs
From: Gisle Aas <gisle@aas.no>
Date: 17 Jul 1998 14:58:25 +0200
Message-ID: <m3iukw63da.fsf@furu.g.aas.no>
Subject: Re: [PATCH _71] CRs et al
--
From: larry@wall.org (Larry Wall)
Date: Fri, 17 Jul 1998 09:32:35 -0700
Message-Id: <199807171632.JAA12959@wall.org>
Subject: Re: [PATCH _71] CRs et al
p4raw-id: //depot/perl@1545
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/multiline.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/comp/multiline.t b/t/comp/multiline.t index fc1eedc8d2..ed418b84fc 100755 --- a/t/comp/multiline.t +++ b/t/comp/multiline.t @@ -9,11 +9,15 @@ open(try,'>Comp.try') || (die "Can't open temp file."); $x = 'now is the time for all good men to come to. + + +! + '; $y = 'now is the time' . "\n" . 'for all good men' . "\n" . -'to come to.' . "\n"; +'to come to.' . "\n\n\n!\n\n"; if ($x eq $y) {print "ok 1\n";} else {print "not ok 1\n";} @@ -30,7 +34,7 @@ while (<try>) { if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";} -if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";} +if ($count == 7) {print "ok 3\n";} else {print "not ok 3\n";} $_ = ($^O eq 'MSWin32') ? `type Comp.try` : `cat Comp.try`; |