# HG changeset patch
# User Guillaume Flandin <guillaume.offline@gmail.com>
# Date 1636568088 18000
# Node ID 68aa1e839578a3d0df2975b60fb087aa5f0b8917
# Parent  cc2330cd31e01166407027a299e5d73bdb90f9a4
allow isfinite to work for character arrays (bug #61411)

* ov-ch-mat.cc (octave_char_matrix::map): Also handle isfinite.
* mappers.cc: New tests.

diff -r cc2330cd31e0 -r 68aa1e839578 libinterp/corefcn/mappers.cc
--- 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)
diff -r cc2330cd31e0 -r 68aa1e839578 libinterp/octave-value/ov-ch-mat.cc
--- 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: