Fix test win64b: test_run('special_functions', 'erfinv')
[scilab.git] / scilab / modules / special_functions / tests / unit_tests / erfinv.tst
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);