Mercurial > forge

changeset 12658:aca981120490 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[nantest] avoiding backslash in output; explanation why some tests are not performed
author schloegl
date Thu, 02 Jul 2015 21:04:17 +0000
parents 64365c8eb18b
children 5224320bc96e
files extra/NaN/inst/nantest.m
diffstat 1 files changed, 10 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/extra/NaN/inst/nantest.m	Thu Jul 02 16:06:53 2015 +0000
+++ b/extra/NaN/inst/nantest.m	Thu Jul 02 21:04:17 2015 +0000
@@ -229,16 +229,19 @@
 p    = 4;
 tmp1 = repmat(nan, 4);
 tmp2 = repmat(nan, 4);
-if ~ispc
+if ispc
+        % Octave 4.0.0 on Windows crashes, therefore the test is disabled
+	warning('mrdivide (repmat(nan,4), repmat(nan,4)) and mldivide (repmat(nan,4), repmat(nan,4)) not tested because it might crash Octave on Windows.\n');	
+else        
 try
-       tmp1 = repmat(nan,p)/repmat(nan,p);
-catch   % exception error in Octave 3.8.2 of debian wheezy
-	fprintf(2,'repmat(nan,4)/repmat(nan,4) fails with an exception\n');	
+	tmp1 = repmat(nan,p) / repmat(nan,p);
+catch   % exception error in Octave 3.8.2 and later of debian wheezy
+	fprintf(2,'mrdivide (repmat(nan,4), repmat(nan,4)) fails with an exception\n');	
 end;
 try
-       tmp2 = repmat(nan,p)\repmat(nan,p);
-catch   % exception error in Octave 3.8.2 of debian wheezy
-	fprintf(2,'repmat(nan,4)\repmat(nan,4) fails with an exception\n');
+	tmp2 = repmat(nan,p) \ repmat(nan,p);
+catch   % exception error in Octave 3.8.2 and later of debian wheezy
+	fprintf(2,'mldivide (repmat(nan,4), repmat(nan,4)) fails with an exception\n');
 end
 end;
 tmp3 = repmat(0,p)/repmat(0,p);