verb_not_closed_with_char.pl 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103
  1. use vars qw(%result_texis %result_texts %result_trees %result_errors
  2. %result_indices %result_sectioning %result_nodes %result_menus
  3. %result_floats %result_converted %result_converted_errors
  4. %result_elements %result_directions_text);
  5. use utf8;
  6. $result_trees{'verb_not_closed_with_char'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'args' => [
  12. {
  13. 'contents' => [
  14. {
  15. 'parent' => {},
  16. 'text' => '
  17. ',
  18. 'type' => 'raw'
  19. },
  20. {
  21. 'parent' => {},
  22. 'text' => '
  23. ',
  24. 'type' => 'raw'
  25. },
  26. {
  27. 'parent' => {},
  28. 'text' => 'In verb
  29. ',
  30. 'type' => 'raw'
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => '
  35. ',
  36. 'type' => 'raw'
  37. },
  38. {
  39. 'parent' => {},
  40. 'text' => '*',
  41. 'type' => 'raw'
  42. }
  43. ],
  44. 'parent' => {},
  45. 'type' => 'brace_command_arg'
  46. }
  47. ],
  48. 'cmdname' => 'verb',
  49. 'contents' => [],
  50. 'line_nr' => {
  51. 'file_name' => '',
  52. 'line_nr' => 1,
  53. 'macro' => ''
  54. },
  55. 'parent' => {},
  56. 'type' => '*'
  57. }
  58. ],
  59. 'parent' => {},
  60. 'type' => 'paragraph'
  61. }
  62. ],
  63. 'type' => 'text_root'
  64. };
  65. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  66. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  67. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  68. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[3]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  69. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[4]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0];
  70. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0];
  71. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'verb_not_closed_with_char'}{'contents'}[0];
  72. $result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'parent'} = $result_trees{'verb_not_closed_with_char'};
  73. $result_texis{'verb_not_closed_with_char'} = '@verb{*
  74. In verb
  75. **}';
  76. $result_texts{'verb_not_closed_with_char'} = '
  77. In verb
  78. *';
  79. $result_errors{'verb_not_closed_with_char'} = [
  80. {
  81. 'error_line' => ':1: @verb missing closing delimiter sequence: *}
  82. ',
  83. 'file_name' => '',
  84. 'line_nr' => 1,
  85. 'macro' => '',
  86. 'text' => '@verb missing closing delimiter sequence: *}',
  87. 'type' => 'error'
  88. }
  89. ];
  90. 1;