where : one test added in unit test.
[scilab.git] / scilab / modules / core / tests / unit_tests / where.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 //where
9 deff("[a,b]=foo()","[a,b]=where()")
10 [a,b]=foo();
11 if a(1)<>2|b(1)<>"foo" then pause,end
12
13 function [line, fun]=fun1()
14     4
15     5
16     6
17     7
18     [line, fun] = where();
19 endfunction
20 function [line, fun]=fun2()
21     k=4
22     [line, fun] = fun1();
23 endfunction
24 function [line, fun] = fun3()
25     a=2;
26     b=3;
27     [line, fun] = fun2();
28     c=5;
29 endfunction
30 [line, fun] = fun3();
31
32 // the last line represent the exec of this file.
33 // the line number is not the same when the test is execute
34 // with exec or test_run.
35 assert_checkequal(line(1:3), [6;3;4]);
36 assert_checkequal(fun(1:3), ["fun1";"fun2";"fun3"]);