diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2000-07-05 15:12:52 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-11 15:55:47 +0000 |
| commit | c197d1a90896f280084d6105c9e4f7747100a888 (patch) | |
| tree | 5b1cf74d3a3edad731a91366de22680b41ed0361 /t/op | |
| parent | f805f8cce32dfd1ced3ebf12975766f50f88ec0c (diff) | |
| download | perl-c197d1a90896f280084d6105c9e4f7747100a888.tar.gz | |
Re: format bug report [Patch]
Date: Wed, 05 Jul 2000 13:12:52 +0200
Message-Id: <20000705130745.67BF.H.M.BRAND@hccnet.nl>
Subject: Re: format bug report [Patch]
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Date: Wed, 05 Jul 2000 14:10:01 +0200
Message-Id: <20000705140837.73C2.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/cfgperl@6340
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/write.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index 87d50429f4..593c69ae6c 100755 --- a/t/op/write.t +++ b/t/op/write.t @@ -1,6 +1,6 @@ #!./perl -print "1..8\n"; +print "1..9\n"; my $CAT = ($^O eq 'MSWin32') ? 'type' : 'cat'; @@ -201,3 +201,19 @@ $this,$that $that = 8; write LEX; } +# LEX_INTERPNORMAL test +my %e = ( a => 1 ); +format OUT4 = +@<<<<<< +"$e{a}" +. +open OUT4, ">Op_write.tmp" or die "Can't create Op_write.tmp"; +write (OUT4); +close OUT4; +if (`$CAT Op_write.tmp` eq "1\n") { + print "ok 9\n"; + unlink "Op_write.tmp"; + } +else { + print "not ok 9\n"; + } |