Mercurial > octave-nkf
diff src/ov-base.cc @ 12820:efd924e19ff7
codesprint: Add tests for sparse_auto_mutate()
* ov-base.cc (sparse_auto_mutate): Add functional test.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Sat, 16 Jul 2011 12:56:58 -0700 |
| parents | 7a5aacf65f81 |
| children | 969ed305dde5 |
line wrap: on
line diff
--- a/src/ov-base.cc Sat Jul 16 21:40:20 2011 +0200 +++ b/src/ov-base.cc Sat Jul 16 12:56:58 2011 -0700 @@ -1548,3 +1548,16 @@ { return SET_INTERNAL_VARIABLE (sparse_auto_mutate); } + +/* + +%!test + s = speye(3); + sparse_auto_mutate (false); + s(:, 1) = 1; + assert (typeinfo (s), "sparse matrix"); + sparse_auto_mutate (true); + s(1, :) = 1; + assert (typeinfo (s), "matrix"); + +*/