Mercurial > octave
view test/mex/mexnumtst.tst @ 31554:1d410367802c
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sat, 26 Nov 2022 18:51:28 +0100 |
parents | 1188addabaad |
children |
line wrap: on
line source
%!test %! s = rand (3, 4, "single"); %! sc = s + i * rand (3, 4, "single"); %! d = rand (3, 4, "double"); %! dc = d + i * rand (3, 4, "double"); %! %! [sx, scx, dx, dcx] = mexnumtst (s, sc, d, dc); %! assert (s, sx) %! assert (sc, scx) %! assert (d, dx) %! assert (dc, dcx)