diff options
| author | Unknown Ricoh Contributor II <maeda@src.ricoh.co.jp> | 1998-11-24 19:37:45 +0900 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-27 14:33:44 +0000 |
| commit | 7056ecde998641870cea46de6e48f076abfdde78 (patch) | |
| tree | 9be5ee4b12eaa372369f0f8b279c1e7e51335b3d /t | |
| parent | 3967c732803d47eb9e3dd99812f099d7f15ec379 (diff) | |
| download | perl-7056ecde998641870cea46de6e48f076abfdde78.tar.gz | |
format "..." bug
Message-Id: <199811240137.KAA05867@luna.src.ricoh.co.jp>
p4raw-id: //depot/perl@2323
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/write.t | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index 705fa7977b..9918b2f57f 100755 --- a/t/op/write.t +++ b/t/op/write.t @@ -2,7 +2,7 @@ # $RCSfile: write.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:38 $ -print "1..5\n"; +print "1..6\n"; my $CAT = ($^O eq 'MSWin32') ? 'type' : 'cat'; @@ -167,3 +167,26 @@ for (0..10) { print $was1 eq $mustbe ? "ok 4\n" : "not ok 4\n"; print $was2 eq $mustbe ? "ok 5\n" : "not ok 5\n"; +$^A = ''; + +# more test + +format OUT3 = +^<<<<<<... +$foo +. + +open(OUT3, '>Op_write.tmp') || die "Can't create Op_write.tmp"; + +$foo = 'fit '; +write(OUT3); +close OUT3; + +$right = +"fit\n"; + +if (`$CAT Op_write.tmp` eq $right) + { print "ok 6\n"; unlink 'Op_write.tmp'; } +else + { print "not ok 6\n"; } + |