Mercurial > hg > octave-lyh

diff scripts/elfun/lcm.m @ 7385:8b7b4f58199f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-15 20:49:09 by jwe]
author jwe
date Tue, 15 Jan 2008 20:49:10 +0000
parents a1dbe9d80eee
children cadc73247d65
line wrap: on
line diff
--- a/scripts/elfun/lcm.m
+++ b/scripts/elfun/lcm.m
@@ -93,3 +93,12 @@
   endif
 
 endfunction
+
+%!assert(lcm (3, 5, 7, 15) == lcm ([3, 5, 7, 15]) && lcm ([3, 5, 7,15]) == 105);
+
+%!error lcm ();
+
+%!test
+%! s.a = 1;
+%! fail("lcm (s)");
+