update some dynamic_link tests to create tmp files in scilab tmp dir instead of os...
[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 OS_TMP_DIR = pwd();
28
29
30 mkdir(OS_TMP_DIR,'bug_2085');
31 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_2085';
32
33 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_2085.c' , TEST_DIR + filesep() + 'bug_2085.c');
34
35 chdir(TEST_DIR);
36
37 files=['bug_2085.c'];
38 ilib_build('bug',['ex2c_1','intex2c'],files,[]);
39
40 // load the shared library 
41 exec loader.sce;
42
43 chdir(currentpath);
44
45 //using the new primitive
46 r = [1,2,3];
47 nr = [4,5,5];
48
49 a = ex2c_1(r+%i*nr);
50 res = (2 * r) +%i*(nr *3);
51
52 assert_checkequal(a, res);
53
54 // ulink() all libraries
55 ulink();
56
57 //remove TMP_DIR
58 rmdir(TEST_DIR,'s');
59 // =============================================================================