61d453f4d27e9e4ef8a5f7ebd187896a3ff19874
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_2085.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - INRIA - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 2085 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=2085
12 //
13 // <-- Short Description -->
14 // this example fails on some pc ???
15 // exec SCI/modules/dynamic_link/tests/nonreg_tests/bug_2085.tst;
16 ilib_verbose(0);
17 test_path = get_absolute_file_path('bug_2085.tst');
18 currentpath = pwd();
19 cd TMPDIR;
20 cd ../;
21 OS_TMP_DIR = pwd();
22 mkdir(OS_TMP_DIR,'bug_2085');
23 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_2085';
24 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_2085.c' , TEST_DIR + filesep() + 'bug_2085.c');
25 chdir(TEST_DIR);
26 files=['bug_2085.c'];
27 ilib_build('bug',['ex2c_1','intex2c'],files,[]);
28 // load the shared library 
29 exec loader.sce;
30 chdir(currentpath);
31 //using the new primitive
32 r = [1,2,3];
33 nr = [4,5,5];
34 a = ex2c_1(r+%i*nr);
35 res = (2 * r) +%i*(nr *3);
36 assert_checkequal(a, res);
37 // ulink() all libraries
38 ulink();
39 //remove TMP_DIR
40 rmdir(TEST_DIR,'s');
41 // =============================================================================