Add a unitary test about scoping

Change-Id: Ie2e4a8e7354d3753751d8362d96f455f10088a13

diff --git a/scilab/modules/core/tests/unit_tests/scope.dia.ref b/scilab/modules/core/tests/unit_tests/scope.dia.ref
new file mode 100644 (file)
index 0000000..5ee1cf7
--- /dev/null
+++ b/scilab/modules/core/tests/unit_tests/scope.dia.ref
@@ -0,0 +1,19 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - SE - Sylvestre Ledru
+// Copyright (C) 2012 - Inria - Fabrice Le Fessant
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+function z = level1(x,y)
+    a = y
+    function z = level2()
+       function x = a()
+          x = 1
+       endfunction
+       z = a()
+    endfunction
+    z = x + level2()
+endfunction
+a = level1(1,2);
+assert_checkequal(a, 2);

diff --git a/scilab/modules/core/tests/unit_tests/scope.tst b/scilab/modules/core/tests/unit_tests/scope.tst
new file mode 100644 (file)
index 0000000..4409154
--- /dev/null
+++ b/scilab/modules/core/tests/unit_tests/scope.tst
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2012 - SE - Sylvestre Ledru
+// Copyright (C) 2012 - Inria - Fabrice Le Fessant
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+
+function z = level1(x,y)
+    a = y
+    function z = level2()
+       function x = a()
+          x = 1
+       endfunction
+       z = a()
+    endfunction
+    z = x + level2()
+endfunction
+
+a = level1(1,2);
+assert_checkequal(a, 2);