texinfo/tp TODO t/55conditionals.t t/results/co...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/10/10 19:03:16

Modified files:
        tp             : TODO 
        tp/t           : 55conditionals.t 
Added files:
        tp/t/results/conditionals: empty_set_in_ifclear.pl 
                                   empty_set_in_ifset.pl 

Log message:
        Test for empty @set values in ifclear and ifset.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/TODO?cvsroot=texinfo&r1=1.8&r2=1.9
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/55conditionals.t?cvsroot=texinfo&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/conditionals/empty_set_in_ifclear.pl?cvsroot=texinfo&rev=1.1
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/results/conditionals/empty_set_in_ifset.pl?cvsroot=texinfo&rev=1.1

Patches:
Index: TODO
===================================================================
RCS file: /sources/texinfo/texinfo/tp/TODO,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- TODO        7 Oct 2010 07:22:42 -0000       1.8
+++ TODO        10 Oct 2010 19:03:16 -0000      1.9
@@ -14,8 +14,6 @@
 test invalid, especially commands not closed/bad nesting
 test root_commands, like nodes and sections
 
-Test @set with an argument but no space following it. In ifset tests.
-
 parse @sp a bit more.
 
 tests in test/macros

Index: t/55conditionals.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/55conditionals.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- t/55conditionals.t  3 Oct 2010 17:58:03 -0000       1.2
+++ t/55conditionals.t  10 Oct 2010 19:03:16 -0000      1.3
@@ -27,7 +27,21 @@
 @end ifclear
 @ifclear
 @end ignore
-']
+'],
+['empty_set_in_ifset',
+'@set a
+
address@hidden a
+a is set to:|@value{a}|.
address@hidden ifset'
+],
+['empty_set_in_ifclear',
+'@set a
+
address@hidden a
+a is set to:|@value{a}|.
address@hidden ifclear'
+]
 );
 
 our ($arg_test_case, $arg_generate, $arg_debug);

Index: t/results/conditionals/empty_set_in_ifclear.pl
===================================================================
RCS file: t/results/conditionals/empty_set_in_ifclear.pl
diff -N t/results/conditionals/empty_set_in_ifclear.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/results/conditionals/empty_set_in_ifclear.pl      10 Oct 2010 19:03:16 
-0000      1.1
@@ -0,0 +1,40 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+$result_trees{'empty_set_in_ifclear'} = {
+  'contents' => [
+    {
+      'args' => [
+        {
+          'parent' => {},
+          'text' => 'a',
+          'type' => 'misc_arg'
+        },
+        {
+          'parent' => {},
+          'text' => '',
+          'type' => 'misc_arg'
+        }
+      ],
+      'cmdname' => 'set',
+      'parent' => {}
+    },
+    {
+      'parent' => {},
+      'text' => '
+',
+      'type' => 'empty_line'
+    }
+  ]
+};
+$result_trees{'empty_set_in_ifclear'}{'contents'}[0]{'args'}[0]{'parent'} = 
$result_trees{'empty_set_in_ifclear'}{'contents'}[0];
+$result_trees{'empty_set_in_ifclear'}{'contents'}[0]{'args'}[1]{'parent'} = 
$result_trees{'empty_set_in_ifclear'}{'contents'}[0];
+$result_trees{'empty_set_in_ifclear'}{'contents'}[0]{'parent'} = 
$result_trees{'empty_set_in_ifclear'};
+$result_trees{'empty_set_in_ifclear'}{'contents'}[1]{'parent'} = 
$result_trees{'empty_set_in_ifclear'};
+
+$result_texts{'empty_set_in_ifclear'} = '@set a 
+
+';
+
+$result_errors{'empty_set_in_ifclear'} = [];
+
+

Index: t/results/conditionals/empty_set_in_ifset.pl
===================================================================
RCS file: t/results/conditionals/empty_set_in_ifset.pl
diff -N t/results/conditionals/empty_set_in_ifset.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ t/results/conditionals/empty_set_in_ifset.pl        10 Oct 2010 19:03:16 
-0000      1.1
@@ -0,0 +1,54 @@
+use vars qw(%result_texts %result_trees %result_errors);
+
+$result_trees{'empty_set_in_ifset'} = {
+  'contents' => [
+    {
+      'args' => [
+        {
+          'parent' => {},
+          'text' => 'a',
+          'type' => 'misc_arg'
+        },
+        {
+          'parent' => {},
+          'text' => '',
+          'type' => 'misc_arg'
+        }
+      ],
+      'cmdname' => 'set',
+      'parent' => {}
+    },
+    {
+      'parent' => {},
+      'text' => '
+',
+      'type' => 'empty_line'
+    },
+    {
+      'contents' => [
+        {
+          'parent' => {},
+          'text' => 'a is set to:||.
+'
+        }
+      ],
+      'parent' => {},
+      'type' => 'paragraph'
+    }
+  ]
+};
+$result_trees{'empty_set_in_ifset'}{'contents'}[0]{'args'}[0]{'parent'} = 
$result_trees{'empty_set_in_ifset'}{'contents'}[0];
+$result_trees{'empty_set_in_ifset'}{'contents'}[0]{'args'}[1]{'parent'} = 
$result_trees{'empty_set_in_ifset'}{'contents'}[0];
+$result_trees{'empty_set_in_ifset'}{'contents'}[0]{'parent'} = 
$result_trees{'empty_set_in_ifset'};
+$result_trees{'empty_set_in_ifset'}{'contents'}[1]{'parent'} = 
$result_trees{'empty_set_in_ifset'};
+$result_trees{'empty_set_in_ifset'}{'contents'}[2]{'contents'}[0]{'parent'} = 
$result_trees{'empty_set_in_ifset'}{'contents'}[2];
+$result_trees{'empty_set_in_ifset'}{'contents'}[2]{'parent'} = 
$result_trees{'empty_set_in_ifset'};
+
+$result_texts{'empty_set_in_ifset'} = '@set a 
+
+a is set to:||.
+';
+
+$result_errors{'empty_set_in_ifset'} = [];
+
+