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_3630.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- ENGLISH IMPOSED -->
9
10 // <-- Non-regression test for bug 3630 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=3630
14 //
15 // <-- Short Description -->
16 // functions added by addinter are not visible by 'what'
17
18 ilib_verbose(0);
19
20 test_path = get_absolute_file_path('bug_3630.tst');
21
22 currentpath = pwd();
23
24 cd TMPDIR;
25 OS_TMP_DIR = pwd();
26
27
28 mkdir(OS_TMP_DIR,'bug_3630');
29 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_3630';
30
31 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3630.c' , TEST_DIR + filesep() + 'bug_3630.c');
32
33 chdir(TEST_DIR);
34
35 files=['bug_3630.c'];
36 ilib_build('libc_fun',['c_sum','c_intsum';'c_sub','c_intsub'],files,[]);
37
38 [primitives1,commandes] = what();
39 nbprimitives1 = size(primitives1,'*');
40
41 // load the shared library 
42 exec loader.sce;
43
44 chdir(currentpath);
45
46 [primitives2,commandes] = what();
47 nbprimitives2 = size(primitives2,'*');
48
49 if (nbprimitives2 - nbprimitives1) <> 2 then pause,end
50
51 if ~or(primitives2 == 'c_sum') then pause,end
52 if ~or(primitives2 == 'c_sub') then pause,end
53
54 // ulink() all libraries
55 ulink();
56 clearfun('c_sum');
57 clearfun('c_sub');
58
59 [primitives3,commandes] = what();
60 nbprimitives3 = size(primitives3,'*');
61
62 if or(primitives3 == 'c_sum') then pause,end
63 if or(primitives3 == 'c_sub') then pause,end
64
65 if (nbprimitives3 - nbprimitives1) <> 0 then pause,end
66
67 //remove TMP_DIR
68 rmdir(TEST_DIR,'s');
69 // =============================================================================