view test/bug-53599.tst @ 31256:fa4bb329a51a

Allow empty sparse matrix inputs to qr() (bug #63069) * qr.cc (Fqr): Add BIST tests for bug #63069. * sparse-qr.cc (sparse_qr<SparseMatrix>::sparse_qr_rep::sparse_qr_rep, sparse_qr<SparseMatrix>::sparse_qr_rep::C, sparse_qr<SparseMatrix>::sparse_qr_rep::tall_solve<MArray<double>, Matrix>, sparse_qr<SparseComplexMatrix>::sparse_qr_rep::sparse_qr_rep, sparse_qr<SparseComplexMatrix>::sparse_qr_rep::C, sparse_qr<SPARSE_T>::solve): Change input validation from "<= 0" to "< 0". Change error message to "matrix dimension with negative size" from "matrix dimension with negative or zero size".
author Rik <rik@octave.org>
date Tue, 04 Oct 2022 17:05:21 -0700
parents 9080316864bf
children 332a6ccac881
line wrap: on
line source

%!function rval = sggval (val)
%!  global gval
%!  if (nargin == 1)
%!    gval = val;
%!  else
%!    rval = gval;
%!  endif
%!endfunction

%!test <*53599>
%! global gval
%! assert (isempty (gval))
%! sggval (13);
%! assert (sggval (), 13);
%! assert (gval, 13);
%! clear global gval
%! assert (sggval (), [])
%! gval = 42;
%! assert (sggval (), []);
%! clear gval
%! global gval
%! gval = 42;
%! assert (sggval (), 42);
%! clear -global gval;  # cleanup after test