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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
use vars qw(%result_texis %result_texts %result_trees %result_errors
%result_indices %result_sectioning %result_nodes %result_menus
%result_floats %result_converted %result_converted_errors
%result_elements %result_directions_text %result_indices_sort_strings);
use utf8;
$result_trees{'verb_and_char_end_of_line_not_closed'} = {
'contents' => [
{
'contents' => [
{
'contents' => [
{
'text' => 'verb, not closed '
},
{
'args' => [
{
'contents' => [
{
'text' => '
',
'type' => 'raw'
},
{
'text' => '
',
'type' => 'raw'
},
{
'text' => '@bye
',
'type' => 'raw'
}
],
'type' => 'brace_command_arg'
}
],
'cmdname' => 'verb',
'info' => {
'delimiter' => '*'
},
'source_info' => {
'file_name' => '',
'line_nr' => 1,
'macro' => ''
}
}
],
'type' => 'paragraph'
}
],
'type' => 'before_node_section'
}
],
'type' => 'document_root'
};
$result_texis{'verb_and_char_end_of_line_not_closed'} = 'verb, not closed @verb{*
@bye
*}';
$result_texts{'verb_and_char_end_of_line_not_closed'} = 'verb, not closed
@bye
';
$result_errors{'verb_and_char_end_of_line_not_closed'} = [
{
'error_line' => '@verb missing closing delimiter sequence: *}
',
'file_name' => '',
'line_nr' => 1,
'macro' => '',
'text' => '@verb missing closing delimiter sequence: *}',
'type' => 'error'
}
];
$result_floats{'verb_and_char_end_of_line_not_closed'} = {};
1;
|