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"; }
51 my $fox = 'foxiness'; # Test a lexical variable.
61 now @<<the@>>>> for all@|||||men to come @<<<<
62 'i' . 's', "time\n", $good, 'to'
65 open OUT2, '>Op_write.tmp' or die "Can't create Op_write.tmp";
68 $multiline = "forescore\nand\nseven years\n";
69 $foo = 'when in the course of human events it becomes necessary';
85 now is the time for all good men to come to\n";
87 if (`cat Op_write.tmp` eq $right)
88 { print "ok 2\n"; unlink 'Op_write.tmp'; }
90 { print "not ok 2\n"; }
102 now @<<the@>>>> for all@|||||men to come @<<<<
103 'i' . 's', "time\n", $good, 'to'
107 open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
111 $multiline = "forescore\nand\nseven years\n";
112 $foo = 'when in the course of human events it becomes necessary';
129 now is the time for all good men to come to\n";
131 if (`cat Op_write.tmp` eq $right)
132 { print "ok 3\n"; unlink 'Op_write.tmp'; }
134 { print "not ok 3\n"; }