Mercurial > octave
view test/bug-45969.tst @ 32189:7f068048e388
Remove obsolete callback constructor code for @audioplayer, @audiorecorder (bug #64379)
Remove ancient code for a calling form of @audioplayer, @audiorecorder
constructor that is not supported by Matlab and has been commented out
and unavailable in Octave for years.
* audiodevinfo.cc (init_fn): Delete function.
* audiodevinfo.cc (__recorder_audiorecorder__): Remove calling form with first
argument a function from Texinfo focumentation. Remove input validation to
check for function as first argument. Remove potential call to init_fn().
* audioplayer.m: Remove commented-out documentation for calling form with
callback function. Remove input validation checking for function as first
argument. Add FIXME note about incomplete input validation for this function.
Remove commented-out BIST tests for this functionality. Add BIST test for
existing input validation.
* audiorecorder.m: Remove commented-out documentation for calling form with
callback function. Remove input validation checking for function as first
argument. Add FIXME note about lack of input validation for this function.
Remove commented-out BIST tests for this functionality. Add BIST tests
for existing input validation.
author | Rik <rik@octave.org> |
---|---|
date | Wed, 12 Jul 2023 09:18:37 -0700 |
parents | 9080316864bf |
children |
line wrap: on
line source
%!test <*45969> %! text_filename = tempname (); %! binary_filename = tempname (); %! a = 2; %! b = 10; %! c = 20; %! f1 = @ (f, x) f (x) + a; %! f2 = @ (y) f1 (@ (z) z^2 + b * y, y) + c; %! f2_arg = 5; %! save_default_options ("-text", "local"); %! unwind_protect %! save (text_filename, "f2"); %! save ("-binary", binary_filename, "f2"); %! text = load (text_filename); %! binary = load (binary_filename); %! assert (f2 (f2_arg), text.f2 (f2_arg)); %! assert (f2 (f2_arg), binary.f2 (f2_arg)); %! unwind_protect_cleanup %! unlink (text_filename); %! unlink (binary_filename); %! end_unwind_protect %!testif HAVE_HDF5 <*45969> %! hdf5_filename = tempname (); %! a = 2; %! b = 10; %! c = 20; %! f1 = @ (f, x) f (x) + a; %! f2 = @ (y) f1 (@ (z) z^2 + b * y, y) + c; %! f2_arg = 5; %! save_default_options ("-text", "local"); %! unwind_protect %! save ("-hdf5", hdf5_filename, "f2"); %! hdf5 = load (hdf5_filename); %! assert (f2 (f2_arg), hdf5.f2 (f2_arg)); %! unwind_protect_cleanup %! unlink (hdf5_filename); %! end_unwind_protect