Mercurial > hg > octave-jordi

comparison src/ov-flt-re-mat.cc @ 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 7a5aacf65f81
children 72c96de7a403
comparison
equal deleted inserted replaced
12820:efd924e19ff7 12821:8f58f087df7f
837 else 837 else
838 print_usage (); 838 print_usage ();
839 839
840 return octave_value (); 840 return octave_value ();
841 } 841 }
842
843 /*
844
845 %!assert (class (single(1)), "single")
846 %!assert (class (single(1 + i)), "single")
847 %!assert (class (single (int8 (1))), "single")
848 %!assert (class (single (uint8 (1))), "single")
849 %!assert (class (single (int16 (1))), "single")
850 %!assert (class (single (uint16 (1))), "single")
851 %!assert (class (single (int32 (1))), "single")
852 %!assert (class (single (uint32 (1))), "single")
853 %!assert (class (single (int64 (1))), "single")
854 %!assert (class (single (uint64 (1))), "single")
855 %!assert (class (single (true)), "single")
856 %!assert (class (single ("A")), "single")
857 %!error (single (sparse (1)))
858 %!test
859 %! x = diag ([1 3 2]);
860 %! y = single (x);
861 %! assert (class (x), "double");
862 %! assert (class (y), "single");
863 %!test
864 %! x = diag ([i 3 2]);
865 %! y = single (x);
866 %! assert (class (x), "double");
867 %! assert (class (y), "single");
868
869 */
870