Mercurial > octave-nkf
diff libinterp/dldfcn/fftw.cc @ 15818:142de7308ebf
main: periodic merge of stable to default
author | Jordi Gutiérrez Hermoso <jordigh@octave.org> |
---|---|
date | Wed, 19 Dec 2012 10:55:44 -0500 |
parents | src/DLD-FUNCTIONS/fftw.cc@f63a4f23bfe7 src/DLD-FUNCTIONS/fftw.cc@2fc554ffbc28 |
children | bde7731b2b83 |
line wrap: on
line diff
--- a/libinterp/dldfcn/fftw.cc Wed Dec 19 10:47:11 2012 -0500 +++ b/libinterp/dldfcn/fftw.cc Wed Dec 19 10:55:44 2012 -0500 @@ -267,3 +267,32 @@ return retval; } + +/* + +%!testif HAVE_FFTW +%! def_method = fftw ("planner"); +%! unwind_protect +%! method = "estimate"; +%! fftw ("planner", method); +%! assert (fftw ("planner"), method); +%! method = "measure"; +%! fftw ("planner", method); +%! assert (fftw ("planner"), method); +%! method = "patient"; +%! fftw ("planner", method); +%! assert (fftw ("planner"), method); +%! method = "exhaustive"; +%! fftw ("planner", method); +%! assert (fftw ("planner"), method); +%! method = "hybrid"; +%! fftw ("planner", method); +%! assert (fftw ("planner"), method); +%! unwind_protect_cleanup +%! fftw ("planner", def_method); +%! end_unwind_protect + +%!error <Invalid call to fftw> fftw (); +%!error <Invalid call to fftw> fftw ("planner", "estimate", "measure"); + + */