[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp Texinfo/Parser.pm t/02coverage.t t/0...
|
From: |
Patrice Dumas |
|
Subject: |
texinfo/tp Texinfo/Parser.pm t/02coverage.t t/0... |
|
Date: |
Fri, 24 Sep 2010 21:38:57 +0000 |
CVSROOT: /sources/texinfo
Module name: texinfo
Changes by: Patrice Dumas <pertusus> 10/09/24 21:38:57
Modified files:
tp/Texinfo : Parser.pm
tp/t : 02coverage.t 03coverage_braces.t 05paragraph.t
16raw.t test_utils.pl
Added files:
tp/t : 04verb.t
tp/t/results : verb.pl
Log message:
Fix handling of @verb.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Parser.pm?cvsroot=texinfo&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/02coverage.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/03coverage_braces.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/05paragraph.t?cvsroot=texinfo&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/16raw.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/04verb.t?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/verb.pl?cvsroot=texinfo&rev=1.1
Patches:
Index: Texinfo/Parser.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Parser.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- Texinfo/Parser.pm 23 Sep 2010 23:24:42 -0000 1.10
+++ Texinfo/Parser.pm 24 Sep 2010 21:38:57 -0000 1.11
@@ -825,14 +825,13 @@
if ($line !~ /\S/ and not
# raw format or verb
- ($current->{'cmdname'} and
- (
- ($block_commands{$current->{'cmdname'}}
+ (($current->{'cmdname'}
+ and $block_commands{$current->{'cmdname'}}
and $block_commands{$current->{'cmdname'}} eq 'raw')
or
- ($current->{'type'} and $current->{'parent'}->{'cmdname'}
+ ($current->{'parent'} and $current->{'parent'}->{'cmdname'}
and $current->{'parent'}->{'cmdname'} eq 'verb')
- ))
+ )
# not in math or preformatted
and !$no_paragraph_contexts{$self->{'context'}->[-1]}) {
print STDERR "EMPTY LINE\n" if ($self->{'debug'});
@@ -875,33 +874,32 @@
push @{$current->{'contents'}}, $macro;
$current = $current->{'contents'}->[-1];
last;
- }
- elsif ($line =~ /^(.*?)address@hidden([a-zA-Z][\w-]*)/o and ($2 eq
$current->{'cmdname'})) {
+ } elsif ($line =~ /^(.*?)address@hidden([a-zA-Z][\w-]*)/o and ($2 eq
$current->{'cmdname'})) {
$line =~ s/^(.*?)(address@hidden>{'cmdname'})//;
push @{$current->{'contents'}},
{ 'text' => $1, 'type' => 'raw', 'parent' => $current }
if ($1 ne '');
$current = $current->{'parent'};
last unless ($line =~ /\S/);
- }
- else {
+ } else {
push @{$current->{'contents'}},
{ 'text' => $line, 'type' => 'raw', 'parent' => $current };
last;
}
- }
# in @verb
- elsif ($current->{'parent'} and $current->{'parent'}->{'cmdname'}
+ } elsif ($current->{'parent'} and $current->{'parent'}->{'cmdname'}
and $current->{'parent'}->{'cmdname'} eq 'verb') {
# type should be 'brace_command_arg'
- my $char = quotemeta($current->{'type'});
+ my $char = quotemeta($current->{'parent'}->{'type'});
if ($line =~ s/^(.*?)$char\}/\}/) {
push @{$current->{'contents'}},
{ 'text' => $1, 'type' => 'raw', 'parent' => $current }
if ($1 ne '');
+ print STDERR "END VERB\n" if ($self->{'debug'});
} else {
push @{$current->{'contents'}},
{ 'text' => $line, 'type' => 'raw', 'parent' => $current };
+ print STDERR "LINE VERB: $line" if ($self->{'debug'});
last;
}
}
@@ -1021,8 +1019,7 @@
return undef
if (_line_error ($self, sprintf($self->
__("address@hidden without associated character"), $command),
$line_nr));
- }
- else {
+ } else {
$line =~ s/^(.)//;
$current->{'type'} = $1;
}
@@ -1155,8 +1152,7 @@
} else {
$current = _merge_text ($self, $current, $separator);
}
- }
- else {
+ } else {
if ($self->{'debug'}) {
print STDERR "END LINE: ". _print_current($current)."\n";
}
@@ -1249,8 +1245,7 @@
#print STDERR "\n";
if (defined($root->{'text'})) {
$result .= $root->{'text'};
- }
- else {
+ } else {
if ($root->{'cmdname'}) {
#print STDERR "cmd: $root->{'cmdname'}\n";
$result .= _expand_cmd_args_to_texi($root);
@@ -1278,10 +1273,10 @@
my $cmd_with_braces = 1 if (defined($brace_commands{$cmd->{'cmdname'}}));
$result .= '{' if ($cmd_with_braces);
if ($cmd->{'cmdname'} eq 'verb') {
- $result .= $cmd->{'type'}.$cmd->{'args'}->[0]->{'text'}.$cmd->{'type'};
+ $result .= $cmd->{'type'};
}
# must be before the next condition
- elsif ($block_commands{$cmd->{'cmdname'}}
+ if ($block_commands{$cmd->{'cmdname'}}
and ($block_commands{$cmd->{'cmdname'}} eq 'def'
or $block_commands{$cmd->{'cmdname'}} eq 'multitable')) {
foreach my $arg (@{$cmd->{'args'}}) {
@@ -1300,12 +1295,10 @@
$result .= tree_to_texi ($arg) . ', ';
}
$result =~ s/, $//;
- }
- elsif ($cmd->{'cmdname'} eq 'macro') {
+ } elsif ($cmd->{'cmdname'} eq 'macro') {
$result .= ' ' .$cmd->{'args'}->[0]->{'text'}. ' '
. $cmd->{'args'}->[1]->{'text'};
- }
- elsif (defined($cmd->{'args'})) {
+ } elsif (defined($cmd->{'args'})) {
#print STDERR "".Data::Dumper->Dump([$cmd]);
foreach my $arg (@{$cmd->{'args'}}) {
$result .= ' '
@@ -1314,6 +1307,9 @@
}
#die "Shouldn't have args: $cmd->{'cmdname'}\n";
}
+ if ($cmd->{'cmdname'} eq 'verb') {
+ $result .= $cmd->{'type'};
+ }
if ($cmd_with_braces) {
$result .= '}';
}
Index: t/02coverage.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/02coverage.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- t/02coverage.t 23 Sep 2010 20:26:44 -0000 1.2
+++ t/02coverage.t 24 Sep 2010 21:38:57 -0000 1.3
@@ -7,7 +7,7 @@
our ($arg_test_case, $arg_generate, $arg_debug);
-run_test_case ('coverage', address@hidden, $arg_test_case,
+run_all ('coverage', address@hidden, $arg_test_case,
$arg_generate, $arg_debug);
1;
Index: t/03coverage_braces.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/03coverage_braces.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- t/03coverage_braces.t 23 Sep 2010 23:24:42 -0000 1.2
+++ t/03coverage_braces.t 24 Sep 2010 21:38:57 -0000 1.3
@@ -14,7 +14,7 @@
our ($arg_test_case, $arg_generate, $arg_debug);
-run_test_case ('coverage_braces', address@hidden, $arg_test_case,
+run_all ('coverage_braces', address@hidden, $arg_test_case,
$arg_generate, $arg_debug);
1;
Index: t/05paragraph.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/05paragraph.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- t/05paragraph.t 23 Sep 2010 20:14:14 -0000 1.4
+++ t/05paragraph.t 24 Sep 2010 21:38:57 -0000 1.5
@@ -31,5 +31,5 @@
our ($arg_test_case, $arg_generate, $arg_debug);
-run_test_case ('paragraph', address@hidden, $arg_test_case,
+run_all ('paragraph', address@hidden, $arg_test_case,
$arg_generate, $arg_debug);
Index: t/16raw.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/16raw.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- t/16raw.t 23 Sep 2010 20:14:14 -0000 1.2
+++ t/16raw.t 24 Sep 2010 21:38:57 -0000 1.3
@@ -41,6 +41,6 @@
our ($arg_test_case, $arg_generate, $arg_debug);
-run_test_case ('raw', address@hidden, $arg_test_case,
+run_all ('raw', address@hidden, $arg_test_case,
$arg_generate, $arg_debug);
Index: t/test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- t/test_utils.pl 23 Sep 2010 20:14:14 -0000 1.7
+++ t/test_utils.pl 24 Sep 2010 21:38:57 -0000 1.8
@@ -83,7 +83,7 @@
}
}
-sub run_test_case($$;$$$)
+sub run_all($$;$$$)
{
my $name = shift;
my $test_cases = shift;
Index: t/04verb.t
===================================================================
RCS file: t/04verb.t
diff -N t/04verb.t
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/04verb.t 24 Sep 2010 21:38:57 -0000 1.1
@@ -0,0 +1,26 @@
+use strict;
+
+require 't/test_utils.pl';
+
+my @test_cases = (
+['simple', '@verb{. } . .}'],
+['multiline', '@verb{@
+qdsqsddqsdsq
+
address@hidden verb.'],
+['nested', '@b{in b @verb{/ in verb { } /} in b end}'],
+['comments', '@verb{a comment @c comment
+in a verb address@hidden comment
+
+something @verb{, in verb,} @c other comment'],
+['end_of_line', 'verb at end of line @verb{
+
address@hidden in verb at end of line @c comment
+and now end}after end.']
+);
+
+our ($arg_test_case, $arg_generate, $arg_debug);
+
+run_all ('verb', address@hidden, $arg_test_case,
+ $arg_generate, $arg_debug);
+
Index: t/results/verb.pl
===================================================================
RCS file: t/results/verb.pl
diff -N t/results/verb.pl
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ t/results/verb.pl 24 Sep 2010 21:38:57 -0000 1.1
@@ -0,0 +1,379 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+################ simple
+$result_trees{'simple'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' } . ',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => '.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ]
+};
+$result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} =
$result_trees{'simple'}{'contents'}[0]{'contents'}[0];
+$result_trees{'simple'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'simple'}{'contents'}[0];
+$result_trees{'simple'}{'contents'}[0]{'parent'} = $result_trees{'simple'};
+
+$result_texts{'simple'} = '@verb{. } . .}';
+
+$result_errors{'simple'} = [];
+
+
+################ multiline
+$result_trees{'multiline'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'qdsqsddqsdsq
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => '@'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'after verb.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ]
+};
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'}
= $result_trees{'multiline'}{'contents'}[0]{'contents'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'multiline'}{'contents'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'contents'}[1]{'parent'} =
$result_trees{'multiline'}{'contents'}[0];
+$result_trees{'multiline'}{'contents'}[0]{'parent'} =
$result_trees{'multiline'};
+
+$result_texts{'multiline'} = '@verb{@
+qdsqsddqsdsq
+
address@hidden verb.';
+
+$result_errors{'multiline'} = [];
+
+
+################ nested
+$result_trees{'nested'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'in b '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' in verb { } ',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => '/'
+ },
+ {
+ 'parent' => {},
+ 'text' => ' in b end'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'b',
+ 'parent' => {},
+ 'remaining_args' => 0
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ]
+};
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
=
$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'args'}[0]{'parent'}
=
$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} =
$result_trees{'nested'}{'contents'}[0]{'contents'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'nested'}{'contents'}[0];
+$result_trees{'nested'}{'contents'}[0]{'parent'} = $result_trees{'nested'};
+
+$result_texts{'nested'} = '@b{in b @verb{/ in verb { } /} in b end}';
+
+$result_errors{'nested'} = [];
+
+
+################ comments
+$result_trees{'comments'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' comment @c comment
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'in a verb ',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => 'a'
+ },
+ {
+ 'args' => [
+ {
+ 'parent' => {},
+ 'text' => ' comment
+',
+ 'type' => 'misc_arg'
+ }
+ ],
+ 'cmdname' => 'c',
+ 'parent' => {}
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'normal_line'
+ },
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'something '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => ' in verb',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => ','
+ },
+ {
+ 'parent' => {},
+ 'text' => ' '
+ },
+ {
+ 'args' => [
+ {
+ 'parent' => {},
+ 'text' => ' other comment',
+ 'type' => 'misc_arg'
+ }
+ ],
+ 'cmdname' => 'c',
+ 'parent' => {}
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ]
+};
+$result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[0]{'contents'}[0];
+$result_trees{'comments'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[0];
+$result_trees{'comments'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[0]{'contents'}[1];
+$result_trees{'comments'}{'contents'}[0]{'contents'}[1]{'parent'} =
$result_trees{'comments'}{'contents'}[0];
+$result_trees{'comments'}{'contents'}[0]{'parent'} = $result_trees{'comments'};
+$result_trees{'comments'}{'contents'}[1]{'parent'} = $result_trees{'comments'};
+$result_trees{'comments'}{'contents'}[2]{'contents'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[2];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'comments'}{'contents'}[2]{'contents'}[1]{'args'}[0];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[1]{'args'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[2]{'contents'}[1];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[1]{'parent'} =
$result_trees{'comments'}{'contents'}[2];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[2]{'parent'} =
$result_trees{'comments'}{'contents'}[2];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[3]{'args'}[0]{'parent'} =
$result_trees{'comments'}{'contents'}[2]{'contents'}[3];
+$result_trees{'comments'}{'contents'}[2]{'contents'}[3]{'parent'} =
$result_trees{'comments'}{'contents'}[2];
+$result_trees{'comments'}{'contents'}[2]{'parent'} = $result_trees{'comments'};
+
+$result_texts{'comments'} = '@verb{a comment @c comment
+in a verb address@hidden comment
+
+something @verb{, in verb,} @c other comment';
+
+$result_errors{'comments'} = [];
+
+
+################ end_of_line
+$result_trees{'end_of_line'} = {
+ 'contents' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => 'verb at end of line '
+ },
+ {
+ 'args' => [
+ {
+ 'contents' => [
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => '@{ in verb at end of line @c comment
+',
+ 'type' => 'raw'
+ },
+ {
+ 'parent' => {},
+ 'text' => 'and now end',
+ 'type' => 'raw'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'brace_command_arg'
+ }
+ ],
+ 'cmdname' => 'verb',
+ 'parent' => {},
+ 'remaining_args' => 0,
+ 'type' => ''
+ },
+ {
+ 'parent' => {},
+ 'text' => 'after end.'
+ }
+ ],
+ 'parent' => {},
+ 'type' => 'paragraph'
+ }
+ ]
+};
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[0]{'parent'} =
$result_trees{'end_of_line'}{'contents'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
= $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
= $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[2]{'parent'}
= $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[3]{'parent'}
= $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
= $result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[1]{'parent'} =
$result_trees{'end_of_line'}{'contents'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'contents'}[2]{'parent'} =
$result_trees{'end_of_line'}{'contents'}[0];
+$result_trees{'end_of_line'}{'contents'}[0]{'parent'} =
$result_trees{'end_of_line'};
+
+$result_texts{'end_of_line'} = 'verb at end of line @verb{
+
address@hidden in verb at end of line @c comment
+and now end}after end.';
+
+$result_errors{'end_of_line'} = [
+ {
+ 'error_line' => ':1: @verb without associated character
+',
+ 'file_name' => '',
+ 'line_nr' => 1,
+ 'macro' => '',
+ 'text' => '@verb without associated character',
+ 'type' => 'error'
+ }
+];
+
+
+
+1;
- texinfo/tp Texinfo/Parser.pm t/02coverage.t t/0...,
Patrice Dumas <=