Mercurial > octave-nkf
changeset 12815:918610ea2f34
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 Sat Jul 16 12:06:07 2011 -0700 +++ b/scripts/specfun/bessel.m Sat Jul 16 15:19:19 2011 -0400 @@ -91,3 +91,4 @@ error ("bessel: you must use besselj, bessely, besseli, or besselk"); endfunction +%!error bessel ()
--- a/scripts/specfun/perms.m Sat Jul 16 12:06:07 2011 -0700 +++ b/scripts/specfun/perms.m Sat Jul 16 15:19:19 2011 -0400 @@ -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 Sat Jul 16 12:06:07 2011 -0700 +++ b/scripts/specfun/primes.m Sat Jul 16 15:19:19 2011 -0400 @@ -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);