Mercurial > hg > octave-nkf

diff scripts/miscellaneous/list_primes.m @ 12859:372eb47cd6a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Wrote 1 test for list_primes.m
author Giles Anderson <agander@gmail.com>
date Sun, 17 Jul 2011 18:08:06 -0500
parents fd0a3ac60b0e
children 72c96de7a403
line wrap: on
line diff
--- a/scripts/miscellaneous/list_primes.m
+++ b/scripts/miscellaneous/list_primes.m
@@ -83,3 +83,9 @@
   endwhile
 
 endfunction
+
+%!test
+%! assert (list_primes(), [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41,\
+%!                        43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97]);
+%! assert (list_primes(5), [2, 3, 5, 7, 11]);
+