test_paths.pl 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  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{'test_paths'} = {
  7. 'contents' => [
  8. {
  9. 'contents' => [
  10. {
  11. 'parent' => {},
  12. 'text' => 'In included file.
  13. '
  14. }
  15. ],
  16. 'parent' => {},
  17. 'type' => 'paragraph'
  18. },
  19. {
  20. 'parent' => {},
  21. 'text' => '
  22. ',
  23. 'type' => 'empty_line'
  24. },
  25. {
  26. 'contents' => [
  27. {
  28. 'parent' => {},
  29. 'text' => 'In included file.
  30. '
  31. }
  32. ],
  33. 'parent' => {},
  34. 'type' => 'paragraph'
  35. },
  36. {
  37. 'parent' => {},
  38. 'text' => '
  39. ',
  40. 'type' => 'empty_line'
  41. },
  42. {
  43. 'contents' => [
  44. {
  45. 'cmdname' => '@',
  46. 'parent' => {}
  47. },
  48. {
  49. 'parent' => {},
  50. 'text' => 'include dot path.
  51. '
  52. },
  53. {
  54. 'args' => [
  55. {
  56. 'contents' => [
  57. {
  58. 'extra' => {
  59. 'command' => {}
  60. },
  61. 'parent' => {},
  62. 'text' => ' ',
  63. 'type' => 'empty_spaces_after_command'
  64. },
  65. {
  66. 'parent' => {},
  67. 'text' => './inc_file.texi'
  68. },
  69. {
  70. 'parent' => {},
  71. 'text' => '
  72. ',
  73. 'type' => 'spaces_at_end'
  74. }
  75. ],
  76. 'parent' => {},
  77. 'type' => 'misc_line_arg'
  78. }
  79. ],
  80. 'cmdname' => 'include',
  81. 'extra' => {
  82. 'spaces_after_command' => {},
  83. 'text_arg' => './inc_file.texi'
  84. },
  85. 'line_nr' => {
  86. 'file_name' => '',
  87. 'line_nr' => 6,
  88. 'macro' => ''
  89. },
  90. 'parent' => {}
  91. }
  92. ],
  93. 'parent' => {},
  94. 'type' => 'paragraph'
  95. }
  96. ],
  97. 'type' => 'text_root'
  98. };
  99. $result_trees{'test_paths'}{'contents'}[0]{'contents'}[0]{'parent'} = $result_trees{'test_paths'}{'contents'}[0];
  100. $result_trees{'test_paths'}{'contents'}[0]{'parent'} = $result_trees{'test_paths'};
  101. $result_trees{'test_paths'}{'contents'}[1]{'parent'} = $result_trees{'test_paths'};
  102. $result_trees{'test_paths'}{'contents'}[2]{'contents'}[0]{'parent'} = $result_trees{'test_paths'}{'contents'}[2];
  103. $result_trees{'test_paths'}{'contents'}[2]{'parent'} = $result_trees{'test_paths'};
  104. $result_trees{'test_paths'}{'contents'}[3]{'parent'} = $result_trees{'test_paths'};
  105. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[0]{'parent'} = $result_trees{'test_paths'}{'contents'}[4];
  106. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[1]{'parent'} = $result_trees{'test_paths'}{'contents'}[4];
  107. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2];
  108. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0];
  109. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0];
  110. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0];
  111. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'parent'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2];
  112. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'extra'}{'spaces_after_command'} = $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'args'}[0]{'contents'}[0];
  113. $result_trees{'test_paths'}{'contents'}[4]{'contents'}[2]{'parent'} = $result_trees{'test_paths'}{'contents'}[4];
  114. $result_trees{'test_paths'}{'contents'}[4]{'parent'} = $result_trees{'test_paths'};
  115. $result_texis{'test_paths'} = 'In included file.
  116. In included file.
  117. @@include dot path.
  118. @include ./inc_file.texi
  119. ';
  120. $result_texts{'test_paths'} = 'In included file.
  121. In included file.
  122. @include dot path.
  123. ';
  124. $result_errors{'test_paths'} = [
  125. {
  126. 'error_line' => ':6: @include: could not find ./inc_file.texi
  127. ',
  128. 'file_name' => '',
  129. 'line_nr' => 6,
  130. 'macro' => '',
  131. 'text' => '@include: could not find ./inc_file.texi',
  132. 'type' => 'error'
  133. }
  134. ];
  135. 1;