texinfo/tp/t 06columnfractions.t test_utils.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        10/09/21 21:34:38

Modified files:
        tp/t           : 06columnfractions.t test_utils.pl 

Log message:
        Add errors checking to test plan

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/06columnfractions.t?cvsroot=texinfo&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/t/test_utils.pl?cvsroot=texinfo&r1=1.2&r2=1.3

Patches:
Index: 06columnfractions.t
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/06columnfractions.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- 06columnfractions.t 21 Sep 2010 21:22:14 -0000      1.5
+++ 06columnfractions.t 21 Sep 2010 21:34:38 -0000      1.6
@@ -6,7 +6,7 @@
 require 't/test_utils.pl';
 
 my $generate;
- $generate = 1;
+# $generate = 1;
 
 my @test_cases = (
 [ 'good', '@multitable @columnfractions 0.4 .6 5.
@@ -31,7 +31,7 @@
   plan tests => 1;
 }
 else {
-  plan tests => (1 + scalar(@test_cases) * 2);
+  plan tests => (1 + scalar(@test_cases) * 3);
 }
 
 ok(1);

Index: test_utils.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/t/test_utils.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- test_utils.pl       21 Sep 2010 21:22:14 -0000      1.2
+++ test_utils.pl       21 Sep 2010 21:34:38 -0000      1.3
@@ -27,7 +27,7 @@
   return $test;
 }
 
-sub test($$$$) 
+sub test($$) 
 {
   my $self = shift;
   my $test_case = shift;