blob: e3f96241ab7ae24d25d835233e2c7fddb8175ba9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
# This resource file can be run with cperl--run-testcases from
# cperl-tests.el and works with both perl-mode and cperl-mode.
# -------- Bug#35925: input -------
format FH =
@### @.### @###
42, 3.1415, 0
.
write FH;
# -------- Bug#35925: expected output -------
format FH =
@### @.### @###
42, 3.1415, 0
.
write FH;
# -------- Bug#35925: end -------
# -------- format not as top-level: input -------
foo: {
format STDOUT =
^<<<<
$foo
.
write;
}
# -------- format not as top-level: expected output -------
foo: {
format STDOUT =
^<<<<
$foo
.
write;
}
# -------- format not as top-level: end -------
|
