Mercurial > octave
changeset 28440:23fe97205db5 stable
new tests for bug #57941
* test/fcn-handle/bug-57941.tst, test/fcn-handle/bug57941a.m,
test/fcn-handle/bug57941b.m : New files.
* test/fcn-handle/module.mk: Update.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 10 Jun 2020 15:39:30 -0400 |
| parents | e760fef2829c |
| children | 8dd50efa3c47 |
| files | test/fcn-handle/bug-57941.tst test/fcn-handle/bug57941a.m test/fcn-handle/bug57941b.m test/fcn-handle/module.mk |
| diffstat | 4 files changed, 34 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/fcn-handle/bug-57941.tst Wed Jun 10 15:39:30 2020 -0400 @@ -0,0 +1,9 @@ +%!test <*57941> +%! [r1, r2] = bug57941a (2); +%! assert (r1, 6); +%! assert (r2, 24); + +%!test <*57941> +%! [fh1, fh2] = bug57941b (2); +%! assert (fh1 (3), 6); +%! assert (fh2 (3, 4), 24);
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/fcn-handle/bug57941a.m Wed Jun 10 15:39:30 2020 -0400 @@ -0,0 +1,12 @@ +function [r1, r2] = bug57941a (A) + fh1 = @nested1; + function z = nested1 (x) + z = A * x; + end + fh2 = @nested2; + function z = nested2 (x,y) + z = A * x .* y; + end + r1 = fh1 (3); + r2 = fh2 (3, 4); +end
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/test/fcn-handle/bug57941b.m Wed Jun 10 15:39:30 2020 -0400 @@ -0,0 +1,10 @@ +function [fh1, fh2] = bug57941b (A) + fh1 = @nested1; + function z = nested1 (x) + z = A * x; + end + fh2 = @nested2; + function z = nested2 (x,y) + z = A * x .* y; + end +end
--- a/test/fcn-handle/module.mk Wed Apr 29 14:10:27 2020 -0400 +++ b/test/fcn-handle/module.mk Wed Jun 10 15:39:30 2020 -0400 @@ -12,6 +12,9 @@ %reldir%/@fhdr_parent/numel.m \ %reldir%/bug51709_a.m \ %reldir%/bug51709_c.m \ + %reldir%/bug57941a.m \ + %reldir%/bug57941b.m \ + %reldir%/bug57941.tst \ %reldir%/derived-resolution.tst \ %reldir%/f1.m \ %reldir%/keyword.tst \