3 # $RCSfile: write.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:38 $
19 now @<<the@>>>> for all@|||||men to come @<<<<
20 'i' . 's', "time\n", $good, 'to'
23 open(OUT, '>Op.write.tmp') || die "Can't create Op.write.tmp";
27 $multiline = "forescore\nand\nseven years\n";
28 $foo = 'when in the course of human events it becomes necessary';
41 now is the time for all good men to come to\n";
43 if (`cat Op.write.tmp` eq $right)
44 { print "ok 1\n"; unlink 'Op.write.tmp'; }
46 { print "not ok 1\n"; }
56 now @<<the@>>>> for all@|||||men to come @<<<<
57 'i' . 's', "time\n", $good, 'to'
60 open OUT2, '>Op.write.tmp' or die "Can't create Op.write.tmp";
64 $multiline = "forescore\nand\nseven years\n";
65 $foo = 'when in the course of human events it becomes necessary';
81 now is the time for all good men to come to\n";
83 if (`cat Op.write.tmp` eq $right)
84 { print "ok 2\n"; unlink 'Op.write.tmp'; }
86 { print "not ok 2\n"; }
97 now @<<the@>>>> for all@|||||men to come @<<<<
98 'i' . 's', "time\n", $good, 'to'
102 open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";
106 $multiline = "forescore\nand\nseven years\n";
107 $foo = 'when in the course of human events it becomes necessary';
123 now is the time for all good men to come to\n";
125 if (`cat Op.write.tmp` eq $right)
126 { print "ok 3\n"; unlink 'Op.write.tmp'; }
128 { print "not ok 3\n"; }