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