3 # $RCSfile: write.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:38 $
19 now @<<the@>>>> for all@|||||men to come @<<<<
21 'i' . 's', "time\n", $good, 'to'
25 open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
29 $multiline = "forescore\nand\nseven years\n";
30 $foo = 'when in the course of human events it becomes necessary';
43 now is the time for all good men to come to\n";
45 if (`cat Op_write.tmp` eq $right)
46 { print "ok 1\n"; unlink 'Op_write.tmp'; }
48 { print "not ok 1\n"; }
58 now @<<the@>>>> for all@|||||men to come @<<<<
59 'i' . 's', "time\n", $good, 'to'
62 open OUT2, '>Op_write.tmp' or die "Can't create Op_write.tmp";
66 $multiline = "forescore\nand\nseven years\n";
67 $foo = 'when in the course of human events it becomes necessary';
83 now is the time for all good men to come to\n";
85 if (`cat Op_write.tmp` eq $right)
86 { print "ok 2\n"; unlink 'Op_write.tmp'; }
88 { print "not ok 2\n"; }
100 now @<<the@>>>> for all@|||||men to come @<<<<
101 'i' . 's', "time\n", $good, 'to'
105 open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
109 $multiline = "forescore\nand\nseven years\n";
110 $foo = 'when in the course of human events it becomes necessary';
127 now is the time for all good men to come to\n";
129 if (`cat Op_write.tmp` eq $right)
130 { print "ok 3\n"; unlink 'Op_write.tmp'; }
132 { print "not ok 3\n"; }