Mercurial > hg > octave-nkf

changeset 12815:918610ea2f34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
codesprint: new tests for specfun directory * bessel.m, erms.m, primes.m: New tests.
author John W. Eaton <jwe@octave.org>
date Sat, 16 Jul 2011 15:19:19 -0400
parents ce1fb93d884d
children cd59f5271941
files scripts/specfun/bessel.m scripts/specfun/perms.m scripts/specfun/primes.m
diffstat 3 files changed, 17 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/specfun/bessel.m
+++ b/scripts/specfun/bessel.m
@@ -91,3 +91,4 @@
   error ("bessel: you must use besselj, bessely, besseli, or besselk");
 endfunction
 
+%!error bessel ()
--- a/scripts/specfun/perms.m
+++ b/scripts/specfun/perms.m
@@ -63,3 +63,11 @@
     endfor
   endif
 endfunction
+
+%!error perms ();
+%!error perms (1, 2);
+
+%!assert (perms ([1,2,3]), [1,2,3;2,1,3;1,3,2;2,3,1;3,1,2;3,2,1]);
+%!assert (perms (1:3), perms ([1,2,3]));
+
+%!assert (perms (int8([1,2,3])), int8([1,2,3;2,1,3;1,3,2;2,3,1;3,1,2;3,2,1]));
--- a/scripts/specfun/primes.m
+++ b/scripts/specfun/primes.m
@@ -92,3 +92,11 @@
   endif
 
 endfunction
+
+%!error primes ();
+%!error primes (1, 2);
+
+%!assert (size (primes (350)), [1, 70]);
+%!assert (size (primes (350)), [1, 70]);
+
+%!assert (primes (357)(end), 353);