[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp TODO Texinfo/Parser.pm t/04verb.t t/...
|
From: |
Patrice Dumas |
|
Subject: |
texinfo/tp TODO Texinfo/Parser.pm t/04verb.t t/... |
|
Date: |
Sun, 24 Oct 2010 10:02:43 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 10/10/24 10:02:42
Modified files:
tp : TODO
tp/Texinfo : Parser.pm
tp/t : 04verb.t 57invalid_nestings.t
Added files:
tp/t/results/invalid_nestings:
unclosed_verb_end_of_line_on_misc_line.pl
unclosed_verb_on_misc_line.pl
unclosed_verb_on_section_line.pl
tp/t/results/verb: verb_and_char_end_of_line_not_closed.pl
verb_at_end_of_line_not_closed.pl
verb_not_closed.pl
verb_not_closed_with_char.pl
Log message:
Test for unclosed verb commands, and use specific error message.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.98&r2=1.99
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/04verb.t?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/57invalid_nestings.t?cvsroot=texinfo&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/unclosed_verb_end_of_line_on_misc_line.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/unclosed_verb_on_misc_line.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/invalid_nestings/unclosed_verb_on_section_line.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/verb/verb_and_char_end_of_line_not_closed.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/verb/verb_at_end_of_line_not_closed.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/verb/verb_not_closed.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/verb/verb_not_closed_with_char.pl?cvsroot=texinfo&rev=1.1
Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- TODO 24 Oct 2010 09:39:12 -0000 1.37
+++ TODO 24 Oct 2010 10:02:42 -0000 1.38
@@ -106,4 +106,8 @@
invalid/tab_in_index.texi (but not the printindex)
invalid/tex_not_closed.texi
invalid/titlepage_not_closed.texi
-
+invalid/unclosed_verb_line_commands.texi (but the result is different since
+ ignored until end of file).
+invalid/verb_and_char_end_of_line.texi
+invalid/verb_end_of_line.texi
+invalid/verb_not_closed.texi
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -b -r1.98 -r1.99
--- Texinfo/Parser.pm 24 Oct 2010 09:06:55 -0000 1.98
+++ Texinfo/Parser.pm 24 Oct 2010 10:02:42 -0000 1.99
@@ -912,8 +912,12 @@
# line number if available. FIXME. not implemented
$located_line_nr = $current->{'line_nr'}
if ($current->{'line_nr'});
+ if ($current->{'cmdname'} ne 'verb' or $current->{'type'} eq '') {
_line_error ($self, sprintf($self->__("%c%s missing close brace"),
ord('@'), $current->{'cmdname'}), $located_line_nr);
+ } else {
+ _line_error ($self, sprintf($self->__("address@hidden missing closing
delimiter sequence: %s}"), $current->{'cmdname'}, $current->{'type'}),
$located_line_nr);
+ }
$current = $current->{'parent'};
return $current;
}
Index: t/04verb.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/04verb.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/04verb.t 24 Sep 2010 21:38:57 -0000 1.1
+++ t/04verb.t 24 Oct 2010 10:02:42 -0000 1.2
@@ -16,7 +16,23 @@
['end_of_line', 'verb at end of line @verb{
@{ in verb at end of line @c comment
-and now end}after end.']
+and now end}after end.'],
+['verb_not_closed', '@verb{. } . '],
+['verb_not_closed_with_char',
+'@verb{*
+
+In verb
+
+*'],
+['verb_and_char_end_of_line_not_closed',
+'verb, not closed @verb{*
+
address@hidden
+'],
+['verb_at_end_of_line_not_closed',
+ 'verb at end of line @verb{
+
+']
);
our ($arg_test_case, $arg_generate, $arg_debug);
Index: t/57invalid_nestings.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/57invalid_nestings.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- t/57invalid_nestings.t 24 Oct 2010 09:39:12 -0000 1.7
+++ t/57invalid_nestings.t 24 Oct 2010 10:02:42 -0000 1.8
@@ -258,7 +258,17 @@
@end copying
@insertcopying
-']
+'],
+['unclosed_verb_on_misc_line',
+'@setfilename name @verb{file.texi'],
+['unclosed_verb_on_section_line',
+'@section in section @verb{Truc
+
+Now text.
+'],
+['unclosed_verb_end_of_line_on_misc_line',
+'@setfilename name @verb{
+'],
);
our ($arg_test_case, $arg_generate, $arg_debug);
Index: t/results/invalid_nestings/unclosed_verb_end_of_line_on_misc_line.pl
===================================================================
RCS file: t/results/invalid_nestings/unclosed_verb_end_of_line_on_misc_line.pl
diff -N t/results/invalid_nestings/unclosed_verb_end_of_line_on_misc_line.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/invalid_nestings/unclosed_verb_end_of_line_on_misc_line.pl
24 Oct 2010 10:02:42 -0000 1.1
@@ -0,0 +1,84 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'} = {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' ',
+ 'type' => 'empty_spaces_after_command'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'name '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => ''
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'misc_line_arg'
+ }
+ ],
+ 'cmdname' => 'setfilename',
+ 'parent' => {}
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
=
$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'parent'}
=
$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'}
=
$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'args'}[0]{'parent'}
= $result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0];
+$result_trees{'unclosed_verb_end_of_line_on_misc_line'}{'contents'}[0]{'parent'}
= $result_trees{'unclosed_verb_end_of_line_on_misc_line'};
+
+$result_texis{'unclosed_verb_end_of_line_on_misc_line'} = '@setfilename name
@verb{
+}';
+
+
+$result_texts{'unclosed_verb_end_of_line_on_misc_line'} = '';
+
+$result_errors{'unclosed_verb_end_of_line_on_misc_line'} = [
+ {
+ 'error_line' => ':1: @verb without associated character
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb without associated character',
+ 'type' => 'error'
+ },
+ {
+ 'error_line' => ':1: @verb missing close brace
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb missing close brace',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/invalid_nestings/unclosed_verb_on_misc_line.pl
===================================================================
RCS file: t/results/invalid_nestings/unclosed_verb_on_misc_line.pl
diff -N t/results/invalid_nestings/unclosed_verb_on_misc_line.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/invalid_nestings/unclosed_verb_on_misc_line.pl 24 Oct 2010
10:02:42 -0000 1.1
@@ -0,0 +1,73 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'unclosed_verb_on_misc_line'} = {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' ',
+ 'type' => 'empty_spaces_after_command'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'name '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'ile.texi',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => 'f'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'misc_line_arg'
+ }
+ ],
+ 'cmdname' => 'setfilename',
+ 'parent' => {}
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'parent'}
=
$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'args'}[0]{'parent'}
= $result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0];
+$result_trees{'unclosed_verb_on_misc_line'}{'contents'}[0]{'parent'} =
$result_trees{'unclosed_verb_on_misc_line'};
+
+$result_texis{'unclosed_verb_on_misc_line'} = '@setfilename name
@verb{file.texif}';
+
+
+$result_texts{'unclosed_verb_on_misc_line'} = '';
+
+$result_errors{'unclosed_verb_on_misc_line'} = [
+ {
+ 'error_line' => ':1: @verb missing closing delimiter sequence: f}
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb missing closing delimiter sequence: f}',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/invalid_nestings/unclosed_verb_on_section_line.pl
===================================================================
RCS file: t/results/invalid_nestings/unclosed_verb_on_section_line.pl
diff -N t/results/invalid_nestings/unclosed_verb_on_section_line.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/invalid_nestings/unclosed_verb_on_section_line.pl 24 Oct 2010
10:02:42 -0000 1.1
@@ -0,0 +1,98 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'unclosed_verb_on_section_line'} = {
+ 'contents' => [
+ {
+ 'contents' => [],
+ 'type' => 'text_root'
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' ',
+ 'type' => 'empty_spaces_after_command'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'in section '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'ruc
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'Now text.
+',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => 'T'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'misc_line_arg'
+ }
+ ],
+ 'cmdname' => 'section',
+ 'parent' => {}
+ }
+ ],
+ 'type' => 'document_root'
+};
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[1]{'parent'}
=
$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[2]{'parent'}
=
$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'args'}[0]{'parent'}
=
$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'args'}[0]{'parent'}
= $result_trees{'unclosed_verb_on_section_line'}{'contents'}[1];
+$result_trees{'unclosed_verb_on_section_line'}{'contents'}[1]{'parent'} =
$result_trees{'unclosed_verb_on_section_line'};
+
+$result_texis{'unclosed_verb_on_section_line'} = '@section in section
@verb{Truc
+
+Now text.
+T}';
+
+
+$result_texts{'unclosed_verb_on_section_line'} = 'in section ruc
+
+Now text.
+';
+
+$result_errors{'unclosed_verb_on_section_line'} = [
+ {
+ 'error_line' => ':3: @verb missing closing delimiter sequence: T}
+',
+ 'file_name' => '',
+ 'line_nr' => 3,
+ 'macro' => '',
+ 'text' => '@verb missing closing delimiter sequence: T}',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/verb/verb_and_char_end_of_line_not_closed.pl
===================================================================
RCS file: t/results/verb/verb_and_char_end_of_line_not_closed.pl
diff -N t/results/verb/verb_and_char_end_of_line_not_closed.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/verb/verb_and_char_end_of_line_not_closed.pl 24 Oct 2010
10:02:42 -0000 1.1
@@ -0,0 +1,81 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'verb_and_char_end_of_line_not_closed'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'verb, not closed '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '@bye
+',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => '*'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[0]{'parent'}
= $result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
=
$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'}
=
$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
=
$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'parent'}
= $result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0];
+$result_trees{'verb_and_char_end_of_line_not_closed'}{'contents'}[0]{'parent'}
= $result_trees{'verb_and_char_end_of_line_not_closed'};
+
+$result_texis{'verb_and_char_end_of_line_not_closed'} = 'verb, not closed
@verb{*
+
address@hidden
+*}';
+
+
+$result_texts{'verb_and_char_end_of_line_not_closed'} = 'verb, not closed
+
address@hidden
+';
+
+$result_errors{'verb_and_char_end_of_line_not_closed'} = [
+ {
+ 'error_line' => ':3: @verb missing closing delimiter sequence: *}
+',
+ 'file_name' => '',
+ 'line_nr' => 3,
+ 'macro' => '',
+ 'text' => '@verb missing closing delimiter sequence: *}',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/verb/verb_at_end_of_line_not_closed.pl
===================================================================
RCS file: t/results/verb/verb_at_end_of_line_not_closed.pl
diff -N t/results/verb/verb_at_end_of_line_not_closed.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/verb/verb_at_end_of_line_not_closed.pl 24 Oct 2010 10:02:42
-0000 1.1
@@ -0,0 +1,81 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'verb_at_end_of_line_not_closed'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'verb at end of line '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => ''
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[0]{'parent'}
= $result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0];
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
=
$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
=
$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1];
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'contents'}[1]{'parent'}
= $result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0];
+$result_trees{'verb_at_end_of_line_not_closed'}{'contents'}[0]{'parent'} =
$result_trees{'verb_at_end_of_line_not_closed'};
+
+$result_texis{'verb_at_end_of_line_not_closed'} = 'verb at end of line @verb{
+
+}';
+
+
+$result_texts{'verb_at_end_of_line_not_closed'} = 'verb at end of line
+
+';
+
+$result_errors{'verb_at_end_of_line_not_closed'} = [
+ {
+ 'error_line' => ':1: @verb without associated character
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb without associated character',
+ 'type' => 'error'
+ },
+ {
+ 'error_line' => ':2: @verb missing close brace
+',
+ 'file_name' => '',
+ 'line_nr' => 2,
+ 'macro' => '',
+ 'text' => '@verb missing close brace',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/verb/verb_not_closed.pl
===================================================================
RCS file: t/results/verb/verb_not_closed.pl
diff -N t/results/verb/verb_not_closed.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/verb/verb_not_closed.pl 24 Oct 2010 10:02:42 -0000 1.1
@@ -0,0 +1,55 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'verb_not_closed'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' } . ',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => '.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'type' => 'text_root'
+};
+$result_trees{'verb_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'verb_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'verb_not_closed'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'}
= $result_trees{'verb_not_closed'}{'contents'}[0]{'contents'}[0];
+$result_trees{'verb_not_closed'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'verb_not_closed'}{'contents'}[0];
+$result_trees{'verb_not_closed'}{'contents'}[0]{'parent'} =
$result_trees{'verb_not_closed'};
+
+$result_texis{'verb_not_closed'} = '@verb{. } . .}';
+
+
+$result_texts{'verb_not_closed'} = ' } . ';
+
+$result_errors{'verb_not_closed'} = [
+ {
+ 'error_line' => ':1: @verb missing closing delimiter sequence: .}
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb missing closing delimiter sequence: .}',
+ 'type' => 'error'
+ }
+];
+
+
Index: t/results/verb/verb_not_closed_with_char.pl
===================================================================
RCS file: t/results/verb/verb_not_closed_with_char.pl
diff -N t/results/verb/verb_not_closed_with_char.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/verb/verb_not_closed_with_char.pl 24 Oct 2010 10:02:42 -0000
1.1
@@ -0,0 +1,91 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors);
+
+$result_trees{'verb_not_closed_with_char'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'In verb
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '*',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'contents' => [],
+ 'parent' => {},
+ 'type' => '*'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ],
+ 'type' => 'text_root'
+};
+$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];
+$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];
+$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];
+$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];
+$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];
+$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];
+$result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'contents'}[0]{'parent'}
= $result_trees{'verb_not_closed_with_char'}{'contents'}[0];
+$result_trees{'verb_not_closed_with_char'}{'contents'}[0]{'parent'} =
$result_trees{'verb_not_closed_with_char'};
+
+$result_texis{'verb_not_closed_with_char'} = '@verb{*
+
+In verb
+
+**}';
+
+
+$result_texts{'verb_not_closed_with_char'} = '
+
+In verb
+
+*';
+
+$result_errors{'verb_not_closed_with_char'} = [
+ {
+ 'error_line' => ':5: @verb missing closing delimiter sequence: *}
+',
+ 'file_name' => '',
+ 'line_nr' => 5,
+ 'macro' => '',
+ 'text' => '@verb missing closing delimiter sequence: *}',
+ 'type' => 'error'
+ }
+];
+
+
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- texinfo/tp TODO Texinfo/Parser.pm t/04verb.t t/...,
Patrice Dumas <=