Mercurial > forge

changeset 12389:4fa782b50c19 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix test for FreeMat 4.0
author schloegl
date Wed, 05 Mar 2014 22:53:37 +0000
parents 177ddd506b5f
children 9dd0468b50e7
files extra/NaN/inst/nantest.m
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/extra/NaN/inst/nantest.m	Tue Mar 04 16:41:28 2014 +0000
+++ b/extra/NaN/inst/nantest.m	Wed Mar 05 22:53:37 2014 +0000
@@ -62,7 +62,10 @@
         end;
 end;
 
-if exist('norminv','file')==2,
+if ~exist('erfinv','file'),
+       fprintf(1,'ERFINV is not available\n');
+
+elseif exist('norminv','file')==2,
         p = [-inf,-.2,0,.2,.5,1,2,inf,nan];
         q(3) = sum(~isnan(norminv(p,2,0)))<4;
         if q(3),
@@ -200,9 +203,9 @@
 	fprintf(1,'WARNING: ALL([]) returns 0 instead of 1\n');
 end;
 	
-%%%%% SORT - this was once a problem in Octave Version < 2.1.36 %%%%
+%%%%% SORT - this was once a problem in Octave Version < 2.1.36, and still is in FreeMat 4.0 %%%%
 if ~all(isnan(sort([3,4,NaN,3,4,NaN]))==[0,0,0,0,1,1]), 
-        warning('Warning: SORT does not handle NaN.');
+        warning('Warning: SORT does not properly handle NaN.');
 end;
 
 %%%%% commutativity of 0*NaN	%%% This test adresses a problem in Octave