where : one test added in unit test.
[scilab.git] / scilab / modules / core / tests / unit_tests / where.dia.ref
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 //where
8 deff("[a,b]=foo()","[a,b]=where()")
9 [a,b]=foo();
10 if a(1)<>2|b(1)<>"foo" then bugmes();quit;end
11 function [line, fun]=fun1()
12 4
13 5
14 6
15 7
16 [line, fun] = where();
17 endfunction
18 function [line, fun]=fun2()
19 k=4
20 [line, fun] = fun1();
21 endfunction
22 function [line, fun] = fun3()
23 a=2;
24 b=3;
25 [line, fun] = fun2();
26 c=5;
27 endfunction
28 [line, fun] = fun3();
29 // the last line represent the exec of this file.
30 // the line number is not the same when the test is execute
31 // with exec or test_run.
32 assert_checkequal(line(1:3), [6;3;4]);
33 assert_checkequal(fun(1:3), ["fun1";"fun2";"fun3"]);