bad_documentlanguage.pl 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292
  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{'bad_documentlanguage'} = {
  7. 'contents' => [
  8. {
  9. 'parent' => {},
  10. 'text' => '
  11. ',
  12. 'type' => 'empty_line'
  13. },
  14. {
  15. 'contents' => [
  16. {
  17. 'parent' => {},
  18. 'text' => 'documentlanguage '
  19. },
  20. {
  21. 'args' => [
  22. {
  23. 'contents' => [
  24. {
  25. 'extra' => {
  26. 'command' => {}
  27. },
  28. 'parent' => {},
  29. 'text' => ' ',
  30. 'type' => 'empty_spaces_after_command'
  31. },
  32. {
  33. 'parent' => {},
  34. 'text' => 'en'
  35. },
  36. {
  37. 'parent' => {},
  38. 'text' => '
  39. ',
  40. 'type' => 'spaces_at_end'
  41. }
  42. ],
  43. 'parent' => {},
  44. 'type' => 'misc_line_arg'
  45. }
  46. ],
  47. 'cmdname' => 'documentlanguage',
  48. 'extra' => {
  49. 'spaces_after_command' => {},
  50. 'text_arg' => 'en'
  51. },
  52. 'line_nr' => {
  53. 'file_name' => '',
  54. 'line_nr' => 2,
  55. 'macro' => ''
  56. },
  57. 'parent' => {}
  58. }
  59. ],
  60. 'parent' => {},
  61. 'type' => 'paragraph'
  62. },
  63. {
  64. 'parent' => {},
  65. 'text' => '
  66. ',
  67. 'type' => 'empty_line'
  68. },
  69. {
  70. 'args' => [
  71. {
  72. 'contents' => [
  73. {
  74. 'extra' => {
  75. 'command' => {}
  76. },
  77. 'parent' => {},
  78. 'text' => ' ',
  79. 'type' => 'empty_spaces_after_command'
  80. },
  81. {
  82. 'parent' => {},
  83. 'text' => 'en'
  84. },
  85. {
  86. 'parent' => {},
  87. 'text' => ' ',
  88. 'type' => 'spaces_at_end'
  89. },
  90. {
  91. 'args' => [
  92. {
  93. 'contents' => [
  94. {
  95. 'extra' => {
  96. 'command' => {}
  97. },
  98. 'parent' => {},
  99. 'text' => ' ',
  100. 'type' => 'empty_spaces_after_command'
  101. },
  102. {
  103. 'parent' => {},
  104. 'text' => 'en'
  105. },
  106. {
  107. 'parent' => {},
  108. 'text' => '
  109. ',
  110. 'type' => 'spaces_at_end'
  111. }
  112. ],
  113. 'parent' => {},
  114. 'type' => 'misc_line_arg'
  115. }
  116. ],
  117. 'cmdname' => 'documentlanguage',
  118. 'extra' => {
  119. 'invalid_nesting' => 1,
  120. 'spaces_after_command' => {},
  121. 'text_arg' => 'en'
  122. },
  123. 'line_nr' => {
  124. 'file_name' => '',
  125. 'line_nr' => 4,
  126. 'macro' => ''
  127. },
  128. 'parent' => {}
  129. }
  130. ],
  131. 'parent' => {},
  132. 'type' => 'misc_line_arg'
  133. }
  134. ],
  135. 'cmdname' => 'documentlanguage',
  136. 'extra' => {
  137. 'spaces_after_command' => {},
  138. 'text_arg' => 'en '
  139. },
  140. 'line_nr' => {},
  141. 'parent' => {}
  142. },
  143. {
  144. 'parent' => {},
  145. 'text' => '
  146. ',
  147. 'type' => 'empty_line'
  148. },
  149. {
  150. 'args' => [
  151. {
  152. 'contents' => [
  153. {
  154. 'extra' => {
  155. 'command' => {}
  156. },
  157. 'parent' => {},
  158. 'text' => ' ',
  159. 'type' => 'empty_spaces_after_command'
  160. },
  161. {
  162. 'parent' => {},
  163. 'text' => 'en after documentlanguage'
  164. },
  165. {
  166. 'parent' => {},
  167. 'text' => '
  168. ',
  169. 'type' => 'spaces_at_end'
  170. }
  171. ],
  172. 'parent' => {},
  173. 'type' => 'misc_line_arg'
  174. }
  175. ],
  176. 'cmdname' => 'documentlanguage',
  177. 'extra' => {
  178. 'spaces_after_command' => {},
  179. 'text_arg' => 'en after documentlanguage'
  180. },
  181. 'line_nr' => {
  182. 'file_name' => '',
  183. 'line_nr' => 6,
  184. 'macro' => ''
  185. },
  186. 'parent' => {}
  187. }
  188. ],
  189. 'type' => 'text_root'
  190. };
  191. $result_trees{'bad_documentlanguage'}{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'};
  192. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1];
  193. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1];
  194. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  195. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  196. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0];
  197. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1];
  198. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'extra'}{'spaces_after_command'} = $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0];
  199. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[1];
  200. $result_trees{'bad_documentlanguage'}{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'};
  201. $result_trees{'bad_documentlanguage'}{'contents'}[2]{'parent'} = $result_trees{'bad_documentlanguage'};
  202. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'bad_documentlanguage'}{'contents'}[3];
  203. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0];
  204. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0];
  205. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0];
  206. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3];
  207. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0];
  208. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0];
  209. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0];
  210. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3];
  211. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'extra'}{'spaces_after_command'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'args'}[0]{'contents'}[0];
  212. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0];
  213. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[3];
  214. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'extra'}{'spaces_after_command'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[0];
  215. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'line_nr'} = $result_trees{'bad_documentlanguage'}{'contents'}[3]{'args'}[0]{'contents'}[3]{'line_nr'};
  216. $result_trees{'bad_documentlanguage'}{'contents'}[3]{'parent'} = $result_trees{'bad_documentlanguage'};
  217. $result_trees{'bad_documentlanguage'}{'contents'}[4]{'parent'} = $result_trees{'bad_documentlanguage'};
  218. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'contents'}[0]{'extra'}{'command'} = $result_trees{'bad_documentlanguage'}{'contents'}[5];
  219. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'contents'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0];
  220. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'contents'}[1]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0];
  221. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'contents'}[2]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0];
  222. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'parent'} = $result_trees{'bad_documentlanguage'}{'contents'}[5];
  223. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'extra'}{'spaces_after_command'} = $result_trees{'bad_documentlanguage'}{'contents'}[5]{'args'}[0]{'contents'}[0];
  224. $result_trees{'bad_documentlanguage'}{'contents'}[5]{'parent'} = $result_trees{'bad_documentlanguage'};
  225. $result_texis{'bad_documentlanguage'} = '
  226. documentlanguage @documentlanguage en
  227. @documentlanguage en @documentlanguage en
  228. @documentlanguage en after documentlanguage
  229. ';
  230. $result_texts{'bad_documentlanguage'} = '
  231. documentlanguage
  232. ';
  233. $result_errors{'bad_documentlanguage'} = [
  234. {
  235. 'error_line' => ':2: warning: @documentlanguage should only appear at the beginning of a line
  236. ',
  237. 'file_name' => '',
  238. 'line_nr' => 2,
  239. 'macro' => '',
  240. 'text' => '@documentlanguage should only appear at the beginning of a line',
  241. 'type' => 'warning'
  242. },
  243. {
  244. 'error_line' => ':4: warning: @documentlanguage should only appear at the beginning of a line
  245. ',
  246. 'file_name' => '',
  247. 'line_nr' => 4,
  248. 'macro' => '',
  249. 'text' => '@documentlanguage should only appear at the beginning of a line',
  250. 'type' => 'warning'
  251. },
  252. {
  253. 'error_line' => ':4: warning: @documentlanguage should not appear in @documentlanguage
  254. ',
  255. 'file_name' => '',
  256. 'line_nr' => 4,
  257. 'macro' => '',
  258. 'text' => '@documentlanguage should not appear in @documentlanguage',
  259. 'type' => 'warning'
  260. },
  261. {
  262. 'error_line' => ':4: bad argument to @documentlanguage: en @documentlanguage en
  263. ',
  264. 'file_name' => '',
  265. 'line_nr' => 4,
  266. 'macro' => '',
  267. 'text' => 'bad argument to @documentlanguage: en @documentlanguage en',
  268. 'type' => 'error'
  269. },
  270. {
  271. 'error_line' => ':6: warning: en after documentlanguage is not a valid language code
  272. ',
  273. 'file_name' => '',
  274. 'line_nr' => 6,
  275. 'macro' => '',
  276. 'text' => 'en after documentlanguage is not a valid language code',
  277. 'type' => 'warning'
  278. }
  279. ];
  280. 1;