t/op/write.t

   1 #!./perl
   2
   3 # $RCSfile: write.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:38 $
   4
   5 print "1..3\n";
   6
   7 format OUT =
   8 the quick brown @<<
   9 $fox
  10 jumped
  11 @*
  12 $multiline
  13 ^<<<<<<<<<
  14 $foo
  15 ^<<<<<<<<<
  16 $foo
  17 ^<<<<<<...
  18 $foo
  19 now @<<the@>>>> for all@|||||men to come @<<<<
  20 {
  21     'i' . 's', "time\n", $good, 'to'
  22 }
  23 .
  24
  25 open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
  26
  27 $fox = 'foxiness';
  28 $good = 'good';
  29 $multiline = "forescore\nand\nseven years\n";
  30 $foo = 'when in the course of human events it becomes necessary';
  31 write(OUT);
  32 close OUT;
  33
  34 $right =
  35 "the quick brown fox
  36 jumped
  37 forescore
  38 and
  39 seven years
  40 when in
  41 the course
  42 of huma...
  43 now is the time for all good men to come to\n";
  44
  45 if (`cat Op_write.tmp` eq $right)
  46     { print "ok 1\n"; unlink 'Op_write.tmp'; }
  47 else
  48     { print "not ok 1\n"; }
  49
  50 format OUT2 =
  51 the quick brown @<<
  52 $fox
  53 jumped
  54 @*
  55 $multiline
  56 ^<<<<<<<<< ~~
  57 $foo
  58 now @<<the@>>>> for all@|||||men to come @<<<<
  59 'i' . 's', "time\n", $good, 'to'
  60 .
  61
  62 open OUT2, '>Op_write.tmp' or die "Can't create Op_write.tmp";
  63
  64 $fox = 'foxiness';
  65 $good = 'good';
  66 $multiline = "forescore\nand\nseven years\n";
  67 $foo = 'when in the course of human events it becomes necessary';
  68 write(OUT2);
  69 close OUT2;
  70
  71 $right =
  72 "the quick brown fox
  73 jumped
  74 forescore
  75 and
  76 seven years
  77 when in
  78 the course
  79 of human
  80 events it
  81 becomes
  82 necessary
  83 now is the time for all good men to come to\n";
  84
  85 if (`cat Op_write.tmp` eq $right)
  86     { print "ok 2\n"; unlink 'Op_write.tmp'; }
  87 else
  88     { print "not ok 2\n"; }
  89
  90 eval <<'EOFORMAT';
  91 format OUT2 =
  92 the brown quick @<<
  93 $fox
  94 jumped
  95 @*
  96 $multiline
  97 and
  98 ^<<<<<<<<< ~~
  99 $foo
 100 now @<<the@>>>> for all@|||||men to come @<<<<
 101 'i' . 's', "time\n", $good, 'to'
 102 .
 103 EOFORMAT
 104
 105 open(OUT2, '>Op_write.tmp') || die "Can't create Op_write.tmp";
 106
 107 $fox = 'foxiness';
 108 $good = 'good';
 109 $multiline = "forescore\nand\nseven years\n";
 110 $foo = 'when in the course of human events it becomes necessary';
 111 write(OUT2);
 112 close OUT2;
 113
 114 $right =
 115 "the brown quick fox
 116 jumped
 117 forescore
 118 and
 119 seven years
 120 and
 121 when in
 122 the course
 123 of human
 124 events it
 125 becomes
 126 necessary
 127 now is the time for all good men to come to\n";
 128
 129 if (`cat Op_write.tmp` eq $right)
 130     { print "ok 3\n"; unlink 'Op_write.tmp'; }
 131 else
 132     { print "not ok 3\n"; }
 133