texinfo/tp/t 03coverage_braces.t test_utils.pl ...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/11/21 14:18:35

Modified files:
        tp/t           : 03coverage_braces.t test_utils.pl 
Added files:
        tp/t/results/coverage_braces: end_line_in_anchor.pl 

Log message:
        Show result if it is not in the test suite already.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/03coverage_braces.t?cvsroot=texinfo&r1=1.14&r2=1.15
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.55&r2=1.56
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage_braces/end_line_in_anchor.pl?cvsroot=texinfo&rev=1.1

Patches:
Index: 03coverage_braces.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/03coverage_braces.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -b -r1.14 -r1.15
--- 03coverage_braces.t 21 Nov 2010 11:57:15 -0000      1.14
+++ 03coverage_braces.t 21 Nov 2010 14:18:35 -0000      1.15
@@ -10,21 +10,14 @@
 ['footnote', 'address@hidden footnote.
 
 @r{in footnote r}. } after footnote.'],
-['no_brace', '@TeX and @code code and @footnote footnote '],
-['no_brace_space_end_line',
-'@code {c}.
-
address@hidden
-Arg.'],
 ['space_in_footnote','address@hidden in footnote.}'],
 ['footnote_ending_on_empty_line','address@hidden in footnote.
 
 }'],
 ['space_in_image','@image{ a ,bb, cc,dd ,e }. @image{ f }.'],
 ['empty_second_email_argument', '@email{ a@@b.c, }'],
-['empty_line_in_anchor',
+['end_line_in_anchor',
 '@anchor{an
-
 anchor}
 '],
 ['space_in_anchor',
@@ -32,6 +25,17 @@
 ']);
 
 my @test_invalid = (
+['no_brace', '@TeX and @code code and @footnote footnote '],
+['no_brace_space_end_line',
+'@code {c}.
+
address@hidden
+Arg.'],
+['empty_line_in_anchor',
+'@anchor{an
+
+anchor}
+'],
 ['unmatched_brace','@samp{Closing} @samp{ @} without opening macro }.}'],
 ['brace_opened_no_command','address@hidden @anchor{truc}.
 @bye'],

Index: test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -b -r1.55 -r1.56
--- test_utils.pl       20 Nov 2010 17:26:51 -0000      1.55
+++ test_utils.pl       21 Nov 2010 14:18:35 -0000      1.56
@@ -317,6 +317,7 @@
             if ($self->{'generate'});
   } 
   if (!$self->{'generate'}) {
+    %result_converted = ();
     require $file;
 
     #$transformer->traverse($result_trees{$test_name});
@@ -370,10 +371,14 @@
     ok ($converted_text eq $result_texts{$test_name}, $test_name.' text');
     $tests_count = $nr_comparisons;
     if (@tested_formats) {
-      foreach my $format (keys(%result_converted)) {
+      foreach my $format (@tested_formats) {
+        if (!defined($result_converted{$format})) {
+          print STDERR "\n$format $test_name:\n$converted{$format}";
+        } else {
         $tests_count++;
         ok ($converted{$format} eq $result_converted{$format}->{$test_name},
           $test_name.' converted '.$format);
+        }
       #print STDERR "$format: \n$converted{$format}";
       }
     }

Index: results/coverage_braces/end_line_in_anchor.pl
===================================================================
RCS file: results/coverage_braces/end_line_in_anchor.pl
diff -N results/coverage_braces/end_line_in_anchor.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ results/coverage_braces/end_line_in_anchor.pl       21 Nov 2010 14:18:35 
-0000      1.1
@@ -0,0 +1,86 @@
+use vars qw(%result_texis %result_texts %result_trees %result_errors 
+   %result_indices %result_sectioning %result_nodes %result_menus
+   %result_floats %result_converted);
+
+$result_trees{'end_line_in_anchor'} = {
+  'contents' => [
+    {
+      'contents' => [
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'an
+'
+                },
+                {
+                  'parent' => {},
+                  'text' => 'anchor'
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            }
+          ],
+          'cmdname' => 'anchor',
+          'contents' => [],
+          'extra' => {
+            'brace_command_contents' => [
+              [
+                {},
+                {}
+              ]
+            ],
+            'node_content' => [
+              {},
+              {}
+            ],
+            'normalized' => 'an-anchor'
+          },
+          'line_nr' => {
+            'file_name' => '',
+            'line_nr' => 2,
+            'macro' => ''
+          },
+          'parent' => {}
+        },
+        {
+          'parent' => {},
+          'text' => '
+'
+        }
+      ],
+      'parent' => {},
+      'type' => 'paragraph'
+    }
+  ],
+  'type' => 'text_root'
+};
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'}
 = $result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][0]
 = 
$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'extra'}{'brace_command_contents'}[0][1]
 = 
$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'extra'}{'node_content'}[0]
 = 
$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'extra'}{'node_content'}[1]
 = 
$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[0]{'parent'} = 
$result_trees{'end_line_in_anchor'}{'contents'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'contents'}[1]{'parent'} = 
$result_trees{'end_line_in_anchor'}{'contents'}[0];
+$result_trees{'end_line_in_anchor'}{'contents'}[0]{'parent'} = 
$result_trees{'end_line_in_anchor'};
+
+$result_texis{'end_line_in_anchor'} = '@anchor{an
+anchor}
+';
+
+
+$result_texts{'end_line_in_anchor'} = '
+';
+
+$result_errors{'end_line_in_anchor'} = [];
+
+
+
+$result_converted{'plaintext'}->{'end_line_in_anchor'} = '';
+
+1;