texinfo/tp t/02coverage.t .cvsignore t/03covera...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/09/23 20:26:44

Modified files:
        tp/t           : 02coverage.t 
Added files:
        tp             : .cvsignore 
        tp/t           : 03coverage_braces.t 
        tp/t/results   : coverage.pl coverage_braces.pl 

Log message:
        Add coverage brace tests.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/.cvsignore?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/02coverage.t?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/03coverage_braces.t?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/coverage_braces.pl?cvsroot=texinfo&rev=1.1

Patches:
Index: t/02coverage.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/02coverage.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- t/02coverage.t      20 Sep 2010 17:19:05 -0000      1.1
+++ t/02coverage.t      23 Sep 2010 20:26:44 -0000      1.2
@@ -1,54 +1,13 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl Texinfo-Parser.t'
-
 use strict;
 
-use Test::More;
-BEGIN { plan tests => 1 };
-use Texinfo::Parser qw(:all);
-use Data::Dumper;
-use Data::Compare;
-
-#require 't/manual_tree.pl';
-
-ok(1);
-
-#is (tree_to_texi($manual_tree), $manual_tree_result, "tree_to_texi on a 
manually written tree");
-
-my $test_misc = '@chapter chapter
address@hidden comment
address@hidden
-';
-
-# test nested macros and raw block commands.
-my $test_raw = '@macro truc   { arg,  ex}
-in macro \arg\
address@hidden othermacro 
-other macro
address@hidden macro
address@hidden
address@hidden macro
-
address@hidden 
-in html @end html
+require 't/test_utils.pl';
 
address@hidden in tex
address@hidden tex
+my @test_cases = (
+);
 
address@hidden
-in verbatim
-in verbatim2
address@hidden verbatim
-'; 
+our ($arg_test_case, $arg_generate, $arg_debug);
 
-##my $parser_test_raw = Texinfo::Parser->parser({'debug' => 1});
-#my $parser_test_raw = Texinfo::Parser->parser();
-##print STDERR "".Data::Dumper->Dump([$parser_test_raw]);
-#my $tree_test_raw = $parser_test_raw->parse_texi_text($test_raw);
-#print STDERR "".Data::Dumper->Dump([$tree_test_raw], 
['$tree_test_raw_result']);
-#print STDERR tree_to_texi($tree_test_raw);
+run_test_case ('coverage', address@hidden, $arg_test_case,
+   $arg_generate, $arg_debug);
 
-#print STDERR tree_to_texi($manual_tree);
-#print STDERR "".Data::Dumper->Dump([$manual_tree], ['$manual_tree']);
-# returns 1 if they are the same
-# Data::Compare::Compare($manual_tree, $manual_tree)."\n";
+1;

Index: .cvsignore
===================================================================
RCS file: .cvsignore
diff -N .cvsignore
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ .cvsignore  23 Sep 2010 20:26:44 -0000      1.1
@@ -0,0 +1,4 @@
+Makefile
+Texinfo-Parser-*.tar.gz
+blib
+pm_to_blib

Index: t/03coverage_braces.t
===================================================================
RCS file: t/03coverage_braces.t
diff -N t/03coverage_braces.t
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/03coverage_braces.t       23 Sep 2010 20:26:44 -0000      1.1
@@ -0,0 +1,17 @@
+use strict;
+
+require 't/test_utils.pl';
+
+my @test_cases = (
+['simple', '@b{in  b}.'],
+['nested', 'type the characters @kbd{l o g o u t @key{RET}}.'],
+['nested_args', '@xref{@@ @samp{in samp}, descr @b{in b}}'],
+['too much args', '@abbr{AZE, A truc Z b, E eep}']
+);
+
+our ($arg_test_case, $arg_generate, $arg_debug);
+
+run_test_case ('coverage_braces', address@hidden, $arg_test_case,
+   $arg_generate, $arg_debug);
+
+1;

Index: t/results/coverage.pl
===================================================================
RCS file: t/results/coverage.pl
diff -N t/results/coverage.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/results/coverage.pl       23 Sep 2010 20:26:44 -0000      1.1
@@ -0,0 +1,4 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+
+1;

Index: t/results/coverage_braces.pl
===================================================================
RCS file: t/results/coverage_braces.pl
diff -N t/results/coverage_braces.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/results/coverage_braces.pl        23 Sep 2010 20:26:44 -0000      1.1
@@ -0,0 +1,260 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+################ simple
+$result_trees{'simple'} = {
+  'contents' => [
+    {
+      'contents' => [
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'in  b'
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            }
+          ],
+          'cmdname' => 'b',
+          'parent' => {},
+          'remaining_args' => 0
+        },
+        {
+          'parent' => {},
+          'text' => '.'
+        }
+      ],
+      '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]{'contents'}[1]{'parent'} = 
$result_trees{'simple'}{'contents'}[0];
+$result_trees{'simple'}{'contents'}[0]{'parent'} = $result_trees{'simple'};
+
+$result_texts{'simple'} = '@b{in  b}.';
+
+$result_errors{'simple'} = [];
+
+
+################ nested
+$result_trees{'nested'} = {
+  'contents' => [
+    {
+      'contents' => [
+        {
+          'parent' => {},
+          'text' => 'type the characters '
+        },
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'l o g o u t '
+                },
+                {
+                  'args' => [
+                    {
+                      'contents' => [
+                        {
+                          'parent' => {},
+                          'text' => 'RET'
+                        }
+                      ],
+                      'parent' => {},
+                      'type' => 'brace_command_arg'
+                    }
+                  ],
+                  'cmdname' => 'key',
+                  'parent' => {},
+                  'remaining_args' => 0
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            }
+          ],
+          'cmdname' => 'kbd',
+          'parent' => {},
+          'remaining_args' => 0
+        },
+        {
+          'parent' => {},
+          'text' => '.'
+        }
+      ],
+      'parent' => {},
+      'type' => 'paragraph'
+    }
+  ]
+};
+$result_trees{'nested'}{'contents'}[0]{'contents'}[0]{'parent'} = 
$result_trees{'nested'}{'contents'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'args'}[0]{'parent'}
 = 
$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'args'}[0]{'parent'} = 
$result_trees{'nested'}{'contents'}[0]{'contents'}[1];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[1]{'parent'} = 
$result_trees{'nested'}{'contents'}[0];
+$result_trees{'nested'}{'contents'}[0]{'contents'}[2]{'parent'} = 
$result_trees{'nested'}{'contents'}[0];
+$result_trees{'nested'}{'contents'}[0]{'parent'} = $result_trees{'nested'};
+
+$result_texts{'nested'} = 'type the characters @kbd{l o g o u t @key{RET}}.';
+
+$result_errors{'nested'} = [];
+
+
+################ nested_args
+$result_trees{'nested_args'} = {
+  'contents' => [
+    {
+      'contents' => [
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'cmdname' => '@',
+                  'parent' => {}
+                },
+                {
+                  'parent' => {},
+                  'text' => ' '
+                },
+                {
+                  'args' => [
+                    {
+                      'contents' => [
+                        {
+                          'parent' => {},
+                          'text' => 'in samp'
+                        }
+                      ],
+                      'parent' => {},
+                      'type' => 'brace_command_arg'
+                    }
+                  ],
+                  'cmdname' => 'samp',
+                  'parent' => {},
+                  'remaining_args' => 0
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            },
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'descr '
+                },
+                {
+                  'args' => [
+                    {
+                      'contents' => [
+                        {
+                          'parent' => {},
+                          'text' => 'in b'
+                        }
+                      ],
+                      'parent' => {},
+                      'type' => 'brace_command_arg'
+                    }
+                  ],
+                  'cmdname' => 'b',
+                  'parent' => {},
+                  'remaining_args' => 0
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            }
+          ],
+          'cmdname' => 'xref',
+          'parent' => {},
+          'remaining_args' => 3
+        }
+      ],
+      'parent' => {},
+      'type' => 'paragraph'
+    }
+  ]
+};
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[1]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'args'}[0]{'parent'}
 = 
$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[2]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[0]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[1]{'args'}[0]{'contents'}[0]{'parent'}
 = 
$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[1]{'args'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[1]{'args'}[0]{'parent'}
 = 
$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[1];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[1]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'parent'}
 = $result_trees{'nested_args'}{'contents'}[0]{'contents'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'contents'}[0]{'parent'} = 
$result_trees{'nested_args'}{'contents'}[0];
+$result_trees{'nested_args'}{'contents'}[0]{'parent'} = 
$result_trees{'nested_args'};
+
+$result_texts{'nested_args'} = '@xref{@@ @samp{in samp}, descr @b{in b}}';
+
+$result_errors{'nested_args'} = [];
+
+
+################ too much args
+$result_trees{'too much args'} = {
+  'contents' => [
+    {
+      'contents' => [
+        {
+          'args' => [
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'AZE'
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            },
+            {
+              'contents' => [
+                {
+                  'parent' => {},
+                  'text' => 'A truc Z b, E eep'
+                }
+              ],
+              'parent' => {},
+              'type' => 'brace_command_arg'
+            }
+          ],
+          'cmdname' => 'abbr',
+          'parent' => {},
+          'remaining_args' => 0
+        }
+      ],
+      'parent' => {},
+      'type' => 'paragraph'
+    }
+  ]
+};
+$result_trees{'too much 
args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'contents'}[0]{'parent'} = 
$result_trees{'too much args'}{'contents'}[0]{'contents'}[0]{'args'}[0];
+$result_trees{'too much 
args'}{'contents'}[0]{'contents'}[0]{'args'}[0]{'parent'} = $result_trees{'too 
much args'}{'contents'}[0]{'contents'}[0];
+$result_trees{'too much 
args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'contents'}[0]{'parent'} = 
$result_trees{'too much args'}{'contents'}[0]{'contents'}[0]{'args'}[1];
+$result_trees{'too much 
args'}{'contents'}[0]{'contents'}[0]{'args'}[1]{'parent'} = $result_trees{'too 
much args'}{'contents'}[0]{'contents'}[0];
+$result_trees{'too much args'}{'contents'}[0]{'contents'}[0]{'parent'} = 
$result_trees{'too much args'}{'contents'}[0];
+$result_trees{'too much args'}{'contents'}[0]{'parent'} = $result_trees{'too 
much args'};
+
+$result_texts{'too much args'} = '@abbr{AZE, A truc Z b, E eep}';
+
+$result_errors{'too much args'} = [];
+
+
+
+1;