Mercurial > octave-nkf

changeset 12821:8f58f087df7f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 efd924e19ff7
children 46e0d66596f2
files src/ov-flt-re-mat.cc
diffstat 1 files changed, 29 insertions(+), 0 deletions(-) [+]
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");
+
+*/
+