Mercurial > octave

changeset 30279:68aa1e839578

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow isfinite to work for character arrays (bug #61411) * ov-ch-mat.cc (octave_char_matrix::map): Also handle isfinite. * mappers.cc: New tests.
author Guillaume Flandin <guillaume.offline@gmail.com>
date Wed, 10 Nov 2021 13:14:48 -0500
parents cc2330cd31e0
children 7835150ba175
files libinterp/corefcn/mappers.cc libinterp/octave-value/ov-ch-mat.cc
diffstat 2 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/libinterp/corefcn/mappers.cc	Wed Nov 10 17:56:39 2021 +0100
+++ b/libinterp/corefcn/mappers.cc	Wed Nov 10 13:14:48 2021 -0500
@@ -1028,6 +1028,7 @@
 %!assert (! isfinite (single (Inf)))
 %!assert (! isfinite (single (NaN)))
 %!assert (isfinite (single (rand (1,10))))
+%!assert (isfinite ('a'))
 
 %!error isfinite ()
 %!error isfinite (1, 2)
@@ -1366,6 +1367,7 @@
 %!assert (! isinf (single (NA)))
 %!assert (isinf (single (rand (1,10))), false (1,10))
 %!assert (isinf (single ([NaN -Inf -1 0 1 Inf NA])), [false, true, false, false, false, true, false])
+%!assert (! isinf ('a'))
 
 %!error isinf ()
 %!error isinf (1, 2)
@@ -1499,6 +1501,7 @@
 %!assert (isnan (single (NA)))
 %!assert (isnan (single (rand (1,10))), false (1,10))
 %!assert (isnan (single ([NaN -Inf -1 0 1 Inf NA])), [true, false, false, false, false, false, true])
+%!assert (! isnan ('a'))
 
 %!error isnan ()
 %!error isnan (1, 2)
--- a/libinterp/octave-value/ov-ch-mat.cc	Wed Nov 10 17:56:39 2021 +0100
+++ b/libinterp/octave-value/ov-ch-mat.cc	Wed Nov 10 13:14:48 2021 -0500
@@ -345,6 +345,7 @@
     case umap_fix:
     case umap_floor:
     case umap_imag:
+    case umap_isfinite:
     case umap_isinf:
     case umap_isnan:
     case umap_real: