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_3639.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008-2011 - DIGITEO - 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 3639 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=3639
14 //
15 // <-- Short Description -->
16 // link without parameters can crash
17 ilib_verbose(0);
18 currentpath = pwd();
19 cd TMPDIR;
20 OS_TMP_DIR = pwd();
21 TEST_NAME = 'bug_3639_1';
22 mkdir(OS_TMP_DIR, TEST_NAME);
23 TEST_DIR_1 = OS_TMP_DIR + filesep() + TEST_NAME;
24 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3639.c' , TEST_DIR_1 + filesep() + 'bug_3639.c');
25 chdir(TEST_DIR_1);
26 files = ['bug_3639.c'];
27 ilib_build('libc_fun1', ['c_sum1','c_intsum'; 'c_sub1', 'c_intsub'], files, []);
28 // load the shared library 
29 info_link = link();
30 assert_checkequal(info_link, []);
31 exec loader.sce;
32 TEST_NAME = 'bug_3639_2';
33 mkdir(OS_TMP_DIR, TEST_NAME);
34 TEST_DIR_2 = OS_TMP_DIR + filesep() + TEST_NAME;
35 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3639.c' , TEST_DIR_2 + filesep() + 'bug_3639.c');
36 chdir(TEST_DIR_2);
37 ilib_build('libc_fun2', ['c_sum2', 'c_intsum'; 'c_sub2','c_intsub'], files, []);
38 info_link = link();
39 assert_checkequal(info_link, 'libc_fun1');
40 exec loader.sce;
41 info_link = link();
42 assert_checkequal(info_link, ['libc_fun2','libc_fun1']);
43 // cleaning
44 chdir(currentpath);
45 // ulink() all libraries
46 ulink();
47 clearfun('c_sum1');
48 clearfun('c_sub1');
49 clearfun('c_sum2');
50 clearfun('c_sub2');
51 //remove TMP_DIR
52 rmdir(TEST_DIR_1,'s');
53 rmdir(TEST_DIR_2,'s');
54 // =============================================================================