#!./perl# $Header: write.t,v 4.0 91/03/20 01:55:34 lwall Locked $print "1..3\n";format OUT =the quick brown @<<$foxjumped@*$multiline^<<<<<<<<<$foo^<<<<<<<<<$foo^<<<<<<...$foonow @<<the@>>>> for all@|||||men to come @<<<<'i' . 's', "time\n", $good, 'to'.open(OUT, '>Op.write.tmp') || die "Can't create Op.write.tmp";$fox = 'foxiness';$good = 'good';$multiline = "forescore\nand\nseven years\n";$foo = 'when in the course of human events it becomes necessary';write(OUT);close OUT;$right ="the quick brown foxjumpedforescoreandseven yearswhen inthe courseof huma...now is the time for all good men to come to\n";if (`cat Op.write.tmp` eq $right)    { print "ok 1\n"; unlink 'Op.write.tmp'; }else    { print "not ok 1\n"; }format OUT2 =the quick brown @<<$foxjumped@*$multiline^<<<<<<<<< ~~$foonow @<<the@>>>> for all@|||||men to come @<<<<'i' . 's', "time\n", $good, 'to'.open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";$fox = 'foxiness';$good = 'good';$multiline = "forescore\nand\nseven years\n";$foo = 'when in the course of human events it becomes necessary';write(OUT2);close OUT2;$right ="the quick brown foxjumpedforescoreandseven yearswhen inthe courseof humanevents itbecomesnecessarynow is the time for all good men to come to\n";if (`cat Op.write.tmp` eq $right)    { print "ok 2\n"; unlink 'Op.write.tmp'; }else    { print "not ok 2\n"; }eval <<'EOFORMAT';format OUT2 =the brown quick @<<$foxjumped@*$multiline^<<<<<<<<< ~~$foonow @<<the@>>>> for all@|||||men to come @<<<<'i' . 's', "time\n", $good, 'to'.EOFORMATopen(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";$fox = 'foxiness';$good = 'good';$multiline = "forescore\nand\nseven years\n";$foo = 'when in the course of human events it becomes necessary';write(OUT2);close OUT2;$right ="the brown quick foxjumpedforescoreandseven yearswhen inthe courseof humanevents itbecomesnecessarynow is the time for all good men to come to\n";if (`cat Op.write.tmp` eq $right)    { print "ok 3\n"; unlink 'Op.write.tmp'; }else    { print "not ok 3\n"; }