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{'at_after_accent_command'} = { 'contents' => [ { 'contents' => [ { 'contents' => [ { 'cmdname' => 'ringaccent', 'info' => { 'spaces_after_cmd_before_arg' => { 'text' => ' ' } }, 'source_info' => { 'file_name' => '', 'line_nr' => 1, 'macro' => '' } }, { 'cmdname' => '@' }, { 'text' => '. ' }, { 'cmdname' => '^', 'source_info' => { 'file_name' => '', 'line_nr' => 1, 'macro' => '' } }, { 'cmdname' => '@' }, { 'text' => '. ' } ], 'type' => 'paragraph' } ], 'type' => 'before_node_section' } ], 'type' => 'document_root' }; $result_texis{'at_after_accent_command'} = '@ringaccent @@. @^@@. '; $result_texts{'at_after_accent_command'} = '*@. ^@. '; $result_errors{'at_after_accent_command'} = [ { 'error_line' => '@ringaccent expected braces ', 'file_name' => '', 'line_nr' => 1, 'macro' => '', 'text' => '@ringaccent expected braces', 'type' => 'error' }, { 'error_line' => '@^ expected braces ', 'file_name' => '', 'line_nr' => 1, 'macro' => '', 'text' => '@^ expected braces', 'type' => 'error' } ]; $result_floats{'at_after_accent_command'} = {}; $result_converted{'plaintext'}->{'at_after_accent_command'} = '̊@. ̂@. '; $result_converted{'html_text'}->{'at_after_accent_command'} = '
̊@. ̂@.
'; $result_converted{'xml'}->{'at_after_accent_command'} = '