New C API for Scilab gateways (once again ...)
[scilab.git] / scilab / modules / api_scilab / tests / unit_tests / api_c / polynomial_test.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Antoine ELIAS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 function test_polynomial(safe)
9     ilib_verbose(0);
10     mkdir(pathconvert(TMPDIR+"/api_c/" + safe));
11     cd(pathconvert(TMPDIR+"/api_c/" + safe));
12     copyfile(SCI+"/modules/api_scilab/tests/unit_tests/api_c/polynomial_test.c",pathconvert(TMPDIR+"/api_c/" + safe + "/polynomial_test.c",%F));
13     cflags = "";
14     if safe == "unsafe" then
15         cflags = "-D__API_SCILAB_UNSAFE__";
16     end
17     ilib_build("libpolynomial" + safe,["polynomial_test","sci_polynomial_test", "csci6"],"polynomial_test.c",[],"","",cflags);
18     exec("loader.sce");
19     in1 = [10, 4*%s + 8, -5 + 6*%s - 7*%s**2;10, 4*%s + 8, -5 + 6*%s - 7*%s**2],
20     in2 = 1-%s**2;
21     [out1, out2] = polynomial_test(in1, in2);
22     assert_checkequal(out1, in1 *%s);
23     assert_checkequal(out2, -in2);
24     disp("OK");
25 endfunction
26 test_polynomial("safe");
27  OK
28 test_polynomial("unsafe");
29  OK