Fix test: cdff can no more be called with non-integer values.

To test: test_run randlib grand_laws

Change-Id: Ib6fa6aeeaf38732e8dc68df742966e6f372b1696

diff --git a/scilab/modules/randlib/tests/unit_tests/grand_laws.dia.ref b/scilab/modules/randlib/tests/unit_tests/grand_laws.dia.ref
index 19ec2d1..bbbf156 100644 (file)
--- a/scilab/modules/randlib/tests/unit_tests/grand_laws.dia.ref
+++ b/scilab/modules/randlib/tests/unit_tests/grand_laws.dia.ref
@@ -447,7 +447,7 @@ A = 7;
 B = 12;
 checkMeanVariance2arg ( 400 , 800 , 'f' , A , B , B/(B-2) , (2*B^2*(A+B-2))/(A*(B-2)^2*(B-4)) , 4*rtol );
 //
-for A = linspace(1,20,4)
+for A = floor(linspace(1,20,4))
   for B = floor(linspace(5,20,4))
     checkLaw2arg ( 'f' , mycdff , N , NC , A , B , 2*rtol );
   end

diff --git a/scilab/modules/randlib/tests/unit_tests/grand_laws.tst b/scilab/modules/randlib/tests/unit_tests/grand_laws.tst
index 3d2ab10..722e0ef 100644 (file)
--- a/scilab/modules/randlib/tests/unit_tests/grand_laws.tst
+++ b/scilab/modules/randlib/tests/unit_tests/grand_laws.tst
@@ -498,7 +498,7 @@ A = 7;
 B = 12;
 checkMeanVariance2arg ( 400 , 800 , 'f' , A , B , B/(B-2) , (2*B^2*(A+B-2))/(A*(B-2)^2*(B-4)) , 4*rtol );
 //
-for A = linspace(1,20,4)
+for A = floor(linspace(1,20,4))
   for B = floor(linspace(5,20,4))
     checkLaw2arg ( 'f' , mycdff , N , NC , A , B , 2*rtol );
   end