[api_scilab] dia.ref regen about quote in string display
[scilab.git] / scilab / modules / api_scilab / tests / unit_tests / api_c / int_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 ilib_verbose(0);
9 function test_int(safe)
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/int_test.c",pathconvert(TMPDIR+"/api_c/" + safe + "/int_test.c",%F));
13     cflags = "";
14     if safe == "unsafe" then
15         cflags = "-D__API_SCILAB_UNSAFE__";
16     end
17     
18     ilib_build("libint" + safe,["int_test","sci_int_test", "csci6"],"int_test.c",[],"","",cflags);
19     exec("loader.sce");
20     
21     in1 = int32(rand(3,4) *1000);
22     in2 = int32(rand() * 1000);
23     [out1, out2, out3] = int_test(in1, in2);
24     assert_checkequal(out1, in1 * 10);
25     ref(:,:, 1) = in1 * 10;
26     ref(:,:, 2) = in1 * 100;
27     assert_checkequal(out2, ref);
28     assert_checkequal(out3, in2 * 1000);
29     disp("OK");
30 endfunction
31 test_int("safe");
32   "OK"
33 test_int("unsafe");
34   "OK"