texinfo/tp/t 02coverage.t results/coverage/pref...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/09/25 21:17:58

Modified files:
        tp/t           : 02coverage.t 
Added files:
        tp/t/results/coverage: preformatted.pl 

Log message:
        Test preformatted coverage.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/02coverage.t?cvsroot=texinfo&r1=1.9&r2=1.10
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage/preformatted.pl?cvsroot=texinfo&rev=1.1

Patches:
Index: 02coverage.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/02coverage.t,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -b -r1.9 -r1.10
--- 02coverage.t        25 Sep 2010 21:12:13 -0000      1.9
+++ 02coverage.t        25 Sep 2010 21:17:57 -0000      1.10
@@ -72,8 +72,6 @@
 @item truc @tab bidule
 @end multitable
 '],
-);
-my @todo = (
 ['preformatted','
 @example
 e--xample  some
@@ -82,13 +80,15 @@
 @end example
 
 @format
address@hidden code
address@hidden @code
 @item item in table in format
 
 in table in format
 @end vtable
 @end format
 '],
+);
+my @todo = (
 ['def','
 @deffn c--ategory d--effn_name a--rguments...
 d--effn

Index: results/coverage/preformatted.pl
===================================================================
RCS file: results/coverage/preformatted.pl
diff -N results/coverage/preformatted.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ results/coverage/preformatted.pl    25 Sep 2010 21:17:58 -0000      1.1
@@ -0,0 +1,139 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+$result_trees{'preformatted'} = {
+  'contents' => [
+    {
+      'parent' => {},
+      'text' => '
+',
+      'type' => 'normal_line'
+    },
+    {
+      'cmdname' => 'example',
+      'contents' => [
+        {
+          'parent' => {},
+          'text' => 'e--xample  some  
+'
+        },
+        {
+          'parent' => {},
+          'text' => '
+'
+        },
+        {
+          'parent' => {},
+          'text' => '   text
+'
+        }
+      ],
+      'parent' => {}
+    },
+    {
+      'parent' => {},
+      'text' => '
+',
+      'type' => 'normal_line'
+    },
+    {
+      'cmdname' => 'format',
+      'contents' => [
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'cmdname' => 'code',
+                  'parent' => {},
+                  'type' => 'command_as_argument'
+                },
+                {
+                  'parent' => {},
+                  'text' => '
+'
+                }
+              ],
+              'parent' => {},
+              'type' => 'block_line_arg'
+            }
+          ],
+          'cmdname' => 'vtable',
+          'contents' => [
+            {
+              'contents' => [],
+              'parent' => {},
+              'type' => 'before_item'
+            },
+            {
+              'args' => [
+                {
+                  'contents' => [
+                    {
+                      'parent' => {},
+                      'text' => 'item in table in format
+'
+                    }
+                  ],
+                  'parent' => {},
+                  'type' => 'misc_line_arg'
+                }
+              ],
+              'cmdname' => 'item',
+              'parent' => {}
+            },
+            {
+              'parent' => {},
+              'text' => '
+'
+            },
+            {
+              'parent' => {},
+              'text' => 'in table in format
+'
+            }
+          ],
+          'parent' => {},
+          'remaining_args' => 0
+        }
+      ],
+      'parent' => {}
+    }
+  ]
+};
+$result_trees{'preformatted'}{'contents'}[0]{'parent'} = 
$result_trees{'preformatted'};
+$result_trees{'preformatted'}{'contents'}[1]{'contents'}[0]{'parent'} = 
$result_trees{'preformatted'}{'contents'}[1];
+$result_trees{'preformatted'}{'contents'}[1]{'contents'}[1]{'parent'} = 
$result_trees{'preformatted'}{'contents'}[1];
+$result_trees{'preformatted'}{'contents'}[1]{'contents'}[2]{'parent'} = 
$result_trees{'preformatted'}{'contents'}[1];
+$result_trees{'preformatted'}{'contents'}[1]{'parent'} = 
$result_trees{'preformatted'};
+$result_trees{'preformatted'}{'contents'}[2]{'parent'} = 
$result_trees{'preformatted'};
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'args'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'args'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'args'}[0]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[1];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[2]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'contents'}[3]{'parent'}
 = $result_trees{'preformatted'}{'contents'}[3]{'contents'}[0];
+$result_trees{'preformatted'}{'contents'}[3]{'contents'}[0]{'parent'} = 
$result_trees{'preformatted'}{'contents'}[3];
+$result_trees{'preformatted'}{'contents'}[3]{'parent'} = 
$result_trees{'preformatted'};
+
+$result_texts{'preformatted'} = '
address@hidden
+e--xample  some  
+
+   text
address@hidden example
+
address@hidden
address@hidden @code
address@hidden item in table in format
+
+in table in format
address@hidden vtable
address@hidden format
+';
+
+$result_errors{'preformatted'} = [];
+
+