#!./perl
-# $Header: write.t,v 4.0 91/03/20 01:55:34 lwall Locked $
+# $RCSfile: write.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:38 $
print "1..3\n";
^<<<<<<...
$foo
now @<<the@>>>> for all@|||||men to come @<<<<
-'i' . 's', "time\n", $good, 'to'
+{
+ 'i' . 's', "time\n", $good, 'to'
+}
.
-open(OUT, '>Op.write.tmp') || die "Can't create Op.write.tmp";
+open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
$fox = 'foxiness';
$good = 'good';
of 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'; }
+if (`cat Op_write.tmp` eq $right)
+ { print "ok 1\n"; unlink 'Op_write.tmp'; }
else
{ print "not ok 1\n"; }
+$fox = 'wolfishness';
+my $fox = 'foxiness'; # Test a lexical variable.
+
format OUT2 =
the quick brown @<<
$fox
'i' . 's', "time\n", $good, 'to'
.
-open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";
+open OUT2, '>Op_write.tmp' or 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';
necessary
now 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'; }
+if (`cat Op_write.tmp` eq $right)
+ { print "ok 2\n"; unlink 'Op_write.tmp'; }
else
{ print "not ok 2\n"; }
jumped
@*
$multiline
+and
^<<<<<<<<< ~~
$foo
now @<<the@>>>> for all@|||||men to come @<<<<
.
EOFORMAT
-open(OUT2, '>Op.write.tmp') || die "Can't create Op.write.tmp";
+open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
$fox = 'foxiness';
$good = 'good';
forescore
and
seven years
+and
when in
the course
of human
necessary
now 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'; }
+if (`cat Op_write.tmp` eq $right)
+ { print "ok 3\n"; unlink 'Op_write.tmp'; }
else
{ print "not ok 3\n"; }