# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1586375996 14400
# Node ID 7567413e7246e0ee32fa50b4e46f3d455bf6bba7
# Parent  56c209ff0a08713d62be7a2c6d50898b242357d7
test for visibility of nested function in scripts called from parent function

* nest.tst: New tests.

diff -r 56c209ff0a08 -r 7567413e7246 test/nest/nest.tst
--- a/test/nest/nest.tst	Wed Apr 08 14:56:27 2020 -0400
+++ b/test/nest/nest.tst	Wed Apr 08 15:59:56 2020 -0400
@@ -150,3 +150,7 @@
 %! f2 = counter ();
 %! observed = [f1(), f1(), f2(), f1(), f2()];
 %! assert (observed, [1, 2, 1, 3, 2]);
+
+## Test visibility of nested function from script called from parent.
+%!assert (script_nest_2 (42), 84);
+%!error script_nest_2 (0)