9c156897f345dc19ffbe529f6de61439f13cb4a8
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_3630.dia.ref
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 // <-- ENGLISH IMPOSED -->
8 // <-- Non-regression test for bug 3630 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=3630
12 //
13 // <-- Short Description -->
14 // functions added by addinter are not visible by 'what'
15 ilib_verbose(0);
16 test_path = get_absolute_file_path('bug_3630.tst');
17 currentpath = pwd();
18 cd TMPDIR;
19 cd ../;
20 OS_TMP_DIR = pwd();
21 mkdir(OS_TMP_DIR,'bug_3630');
22 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_3630';
23 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3630.c' , TEST_DIR + filesep() + 'bug_3630.c');
24 chdir(TEST_DIR);
25 files=['bug_3630.c'];
26 ilib_build('libc_fun',['c_sum','c_intsum';'c_sub','c_intsub'],files,[]);
27 [primitives1,commandes] = what();
28 nbprimitives1 = size(primitives1,'*');
29 // load the shared library
30 exec loader.sce;
31 chdir(currentpath);
32 [primitives2,commandes] = what();
33 nbprimitives2 = size(primitives2,'*');
34 if (nbprimitives2 - nbprimitives1) <> 2 then bugmes();quit;end
35 if ~or(primitives2 == 'c_sum') then bugmes();quit;end
36 if ~or(primitives2 == 'c_sub') then bugmes();quit;end
37 // ulink() all libraries
38 ulink();
39 clearfun('c_sum');
40 clearfun('c_sub');
41 [primitives3,commandes] = what();
42 nbprimitives3 = size(primitives3,'*');
43 if or(primitives3 == 'c_sum') then bugmes();quit;end
44 if or(primitives3 == 'c_sub') then bugmes();quit;end
45 if (nbprimitives3 - nbprimitives1) <> 0 then bugmes();quit;end
46 //remove TMP_DIR
47 rmdir(TEST_DIR,'s');
48 // =============================================================================