where : one test added in unit test. 80/12680/2
Cedric Delamarre [Thu, 26 Sep 2013 14:02:10 +0000 (16:02 +0200)]
Change-Id: I8299906f336c3395c74a0b94bc542c34ea4bac2c

scilab/modules/core/tests/unit_tests/where.dia.ref
scilab/modules/core/tests/unit_tests/where.tst

index a9e6e67..0c05e58 100644 (file)
@@ -8,3 +8,26 @@
 deff("[a,b]=foo()","[a,b]=where()")
 [a,b]=foo();
 if a(1)<>2|b(1)<>"foo" then bugmes();quit;end
+function [line, fun]=fun1()
+4
+5
+6
+7
+[line, fun] = where();
+endfunction
+function [line, fun]=fun2()
+k=4
+[line, fun] = fun1();
+endfunction
+function [line, fun] = fun3()
+a=2;
+b=3;
+[line, fun] = fun2();
+c=5;
+endfunction
+[line, fun] = fun3();
+// the last line represent the exec of this file.
+// the line number is not the same when the test is execute
+// with exec or test_run.
+assert_checkequal(line(1:3), [6;3;4]);
+assert_checkequal(fun(1:3), ["fun1";"fun2";"fun3"]);
index 8a5f943..da2c41e 100644 (file)
@@ -9,3 +9,28 @@
 deff("[a,b]=foo()","[a,b]=where()")
 [a,b]=foo();
 if a(1)<>2|b(1)<>"foo" then pause,end
+
+function [line, fun]=fun1()
+    4
+    5
+    6
+    7
+    [line, fun] = where();
+endfunction
+function [line, fun]=fun2()
+    k=4
+    [line, fun] = fun1();
+endfunction
+function [line, fun] = fun3()
+    a=2;
+    b=3;
+    [line, fun] = fun2();
+    c=5;
+endfunction
+[line, fun] = fun3();
+
+// the last line represent the exec of this file.
+// the line number is not the same when the test is execute
+// with exec or test_run.
+assert_checkequal(line(1:3), [6;3;4]);
+assert_checkequal(fun(1:3), ["fun1";"fun2";"fun3"]);