6604a03a94ee5761502f738e03bde8b24939d468
[scilab.git] / scilab / modules / differential_equations / tests / nonreg_tests / bug_8351.tst
1 // =============================================================================\r
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab\r
3 // Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS\r
4 //\r
5 //  This file is distributed under the same license as the Scilab package.\r
6 // =============================================================================\r
7 \r
8 // <-- CLI SHELL MODE -->\r
9 \r
10 // <-- Non-regression test for bug 8351 -->\r
11 //\r
12 // <-- Bugzilla URL -->\r
13 // http://bugzilla.scilab.org/show_bug.cgi?id=8351\r
14 //\r
15 // <-- Short Description -->\r
16 //    The integrate function does not manage the optional input arguments properly.\r
17 \r
18 assert_checkfalse(execstr("integrate(''sin(x)'',''x'',0)", "errcatch") == 0);\r
19 refMsg = msprintf(_("%s: Wrong number of input argument(s): At least %d expected."), "integrate", 4); \r
20 assert_checkerror("integrate(''sin(x)'',''x'',0)", refMsg);\r
21 \r
22 x = integrate('sin(x)','x',0,%pi);\r
23 assert_checkalmostequal(x, 2, [], %eps);\r
24 \r
25 x = integrate('sin(x)','x',0,%pi,1.e-6);\r
26 assert_checkalmostequal(x, 2, [], %eps);\r
27 \r
28 x = integrate('sin(x)','x',0,%pi,1.e-6,1);\r
29 assert_checkalmostequal(x, 2, [], %eps);\r
30 \r
31 \r
32 \r\r