Add a unitary test about scoping 68/10068/2
Sylvestre Ledru [Thu, 20 Dec 2012 10:11:01 +0000 (11:11 +0100)]
Change-Id: Ie2e4a8e7354d3753751d8362d96f455f10088a13

scilab/modules/core/tests/unit_tests/scope.dia.ref [new file with mode: 0644]
scilab/modules/core/tests/unit_tests/scope.tst [new file with mode: 0644]

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
@@ -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
@@ -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);