Mercurial > octave
view test/fcn-handle/shared-ctx.tst @ 31211:8340137bb190
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Mon, 29 Aug 2022 13:58:00 +0200 |
parents | 8dd50efa3c47 |
children |
line wrap: on
line source
## Test that multiple handles to nested functions created in the same ## context share that call stack context, but that separately created ## handles have a separate (shared) context. %!test %! [add10, sub10, mul10, div10] = shared_ctx (10); %! [add100, sub100, mul100, div100] = shared_ctx (100); %! assert (add10 (2), 12); %! assert (add100 (20), 120); %! assert (sub10 (4), 8); %! assert (sub100 (40), 80); %! assert (mul10 (5), 40); %! assert (mul100 (50), 4000); %! assert (div10 (4), 10); %! assert (div100 (40), 100);