Fix test win64b: test_run('special_functions', 'erfinv') 95/11395/1
Adeline CARNIS [Thu, 25 Apr 2013 08:05:51 +0000 (10:05 +0200)]
Change-Id: I8f3392e28dff392b0a763f2c59542b874f04b4cc

scilab/modules/special_functions/tests/unit_tests/erfinv.dia.ref
scilab/modules/special_functions/tests/unit_tests/erfinv.tst

index 01a3969..af69326 100644 (file)
@@ -512,7 +512,7 @@ function [x,y]=erfinv_ref()
      1.90695686467094561133550;1.94297485086632095708177;1.98487261261553223101737;2.03516768306608309650651;
      2.09850761179367089535179;2.18512421913300426570596;2.32675376551352467056022]';
 endfunction
-[Xr,Yr]=erfinv_ref();
-y=erfinv(Xr);
-k=find(abs(Yr)>0);
-if norm((Yr(k)-y(k))./Yr(k),1) >1d-12 then bugmes();quit;end
+[Xr,Yr] = erfinv_ref();
+y = erfinv(Xr);
+k = find(abs(Yr) > 0);
+assert_checkfalse(norm((Yr(k)-y(k))./Yr(k),1) > 1e-11);
index d589c10..559d559 100644 (file)
@@ -152,6 +152,7 @@ function [x,y]=erfinv_ref()
      -0.449477384894350753649022;-0.448393273401854567498595;-0.447310214877537374731816;-0.446228204741974666626704;
      -0.445147238438842098189415;-0.444067311434742334064264;-0.442988419219033470153526;-0.441910557303659013468255;
      -0.440833721222979402956917;-0.439757906533605054280818;-0.438683108814230911724245;-0.437609323665472490642935;
+
      -0.436536546709703394067020;-0.435464773590894287284015;-0.434393999974453314433743;-0.433324221547067941350446;
      -0.432255434016548209087678;-0.431187633111671382759028;-0.430120814582027980522297;-0.429054974197869167726505;
      -0.427990107749955501430070;-0.426926211049407010684775;-0.425863279927554598163639;-0.424801310235792748891791;
@@ -520,8 +521,8 @@ function [x,y]=erfinv_ref()
      2.09850761179367089535179;2.18512421913300426570596;2.32675376551352467056022]';
 endfunction
 
-[Xr,Yr]=erfinv_ref();
-y=erfinv(Xr);
-k=find(abs(Yr)>0);
-if norm((Yr(k)-y(k))./Yr(k),1) >1d-12 then pause,end
+[Xr,Yr] = erfinv_ref();
+y = erfinv(Xr);
+k = find(abs(Yr) > 0);
+assert_checkfalse(norm((Yr(k)-y(k))./Yr(k),1) > 1e-11);