f0c3f80d0e89d84a45a2e7fc613a6e4e9fb7a2b2
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_2085.tst
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
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 2085 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=2085
14 //
15 // <-- Short Description -->
16 // this example fails on some pc ???
17
18 // exec SCI/modules/dynamic_link/tests/nonreg_tests/bug_2085.tst;
19
20 ilib_verbose(0);
21
22 test_path = get_absolute_file_path('bug_2085.tst');
23
24 currentpath = pwd();
25
26 cd TMPDIR;
27 cd ../;
28 OS_TMP_DIR = pwd();
29
30
31 mkdir(OS_TMP_DIR,'bug_2085');
32 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_2085';
33
34 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_2085.c' , TEST_DIR + filesep() + 'bug_2085.c');
35
36 chdir(TEST_DIR);
37
38 files=['bug_2085.c'];
39 ilib_build('bug',['ex2c_1','intex2c'],files,[]);
40
41 // load the shared library 
42 exec loader.sce;
43
44 chdir(currentpath);
45
46 //using the new primitive
47 r = [1,2,3];
48 nr = [4,5,5];
49
50 a = ex2c_1(r+%i*nr);
51 res = (2 * r) +%i*(nr *3);
52
53 assert_checkequal(a, res);
54
55 // ulink() all libraries
56 ulink();
57
58 //remove TMP_DIR
59 rmdir(TEST_DIR,'s');
60 // =============================================================================