5280151f308e47cc0f07ea194c7f3f8f0c8fa9c3
[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 cd ../;
26 OS_TMP_DIR = pwd();
27
28
29 mkdir(OS_TMP_DIR,'bug_3630');
30 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_3630';
31
32 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3630.c' , TEST_DIR + filesep() + 'bug_3630.c');
33
34 chdir(TEST_DIR);
35
36 files=['bug_3630.c'];
37 ilib_build('libc_fun',['c_sum','c_intsum';'c_sub','c_intsub'],files,[]);
38
39 [primitives1,commandes] = what();
40 nbprimitives1 = size(primitives1,'*');
41
42 // load the shared library 
43 exec loader.sce;
44
45 chdir(currentpath);
46
47 [primitives2,commandes] = what();
48 nbprimitives2 = size(primitives2,'*');
49
50 if (nbprimitives2 - nbprimitives1) <> 2 then pause,end
51
52 if ~or(primitives2 == 'c_sum') then pause,end
53 if ~or(primitives2 == 'c_sub') then pause,end
54
55 // ulink() all libraries
56 ulink();
57 clearfun('c_sum');
58 clearfun('c_sub');
59
60 [primitives3,commandes] = what();
61 nbprimitives3 = size(primitives3,'*');
62
63 if or(primitives3 == 'c_sum') then pause,end
64 if or(primitives3 == 'c_sub') then pause,end
65
66 if (nbprimitives3 - nbprimitives1) <> 0 then pause,end
67
68 //remove TMP_DIR
69 rmdir(TEST_DIR,'s');
70 // =============================================================================