# HG changeset patch
# User Markus Mützel <markus.muetzel@gmx.de>
# Date 1638863539 -3600
# Node ID 3ab3feae06cb9e55ebebb6347bf096548bbfabd4
# Parent  f3bf43b11a73e0fb82d42cc762fd6e1d12f5e9f2
sqrtm: Re-write test to check if the solution is correct (bug #60797).

* libinterp/corefcn/sqrtm.cc: Re-write test with singular matrix to accept any
valid solution returned by sqrtm. Mark test with bug number.

diff -r f3bf43b11a73 -r 3ab3feae06cb libinterp/corefcn/sqrtm.cc
--- a/libinterp/corefcn/sqrtm.cc	Mon Dec 06 16:53:15 2021 +0100
+++ b/libinterp/corefcn/sqrtm.cc	Tue Dec 07 08:52:19 2021 +0100
@@ -262,7 +262,7 @@
 
 /*
 %!assert (sqrtm (2*ones (2)), ones (2), 3*eps)
-%!assert (real (sqrtm (ones (4))), 0.5*ones (4), 4*eps)
+%!assert <60797*> (sqrtm (ones (4))^2, ones (4), 4*eps)
 
 ## The following two tests are from the reference in the docstring above.
 %!test