Mercurial > octave
diff src/ov-flt-re-mat.cc @ 12821:8f58f087df7f
codesprint: Add tests for single()
* ov-flt-re-mat.cc: Add tests for single()
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Sat, 16 Jul 2011 13:06:21 -0700 |
parents | 7a5aacf65f81 |
children | 72c96de7a403 |
line wrap: on
line diff
--- a/src/ov-flt-re-mat.cc Sat Jul 16 12:56:58 2011 -0700 +++ b/src/ov-flt-re-mat.cc Sat Jul 16 13:06:21 2011 -0700 @@ -839,3 +839,32 @@ return octave_value (); } + +/* + +%!assert (class (single(1)), "single") +%!assert (class (single(1 + i)), "single") +%!assert (class (single (int8 (1))), "single") +%!assert (class (single (uint8 (1))), "single") +%!assert (class (single (int16 (1))), "single") +%!assert (class (single (uint16 (1))), "single") +%!assert (class (single (int32 (1))), "single") +%!assert (class (single (uint32 (1))), "single") +%!assert (class (single (int64 (1))), "single") +%!assert (class (single (uint64 (1))), "single") +%!assert (class (single (true)), "single") +%!assert (class (single ("A")), "single") +%!error (single (sparse (1))) +%!test +%! x = diag ([1 3 2]); +%! y = single (x); +%! assert (class (x), "double"); +%! assert (class (y), "single"); +%!test +%! x = diag ([i 3 2]); +%! y = single (x); +%! assert (class (x), "double"); +%! assert (class (y), "single"); + +*/ +