1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
5 // This file is distributed under the same license as the Scilab package.
6 // =============================================================================
8 // <-- ENGLISH IMPOSED -->
10 // <-- Non-regression test for bug 3630 -->
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=3630
15 // <-- Short Description -->
16 // functions added by addinter are not visible by 'what'
20 test_path = get_absolute_file_path('bug_3630.tst');
28 mkdir(OS_TMP_DIR,'bug_3630');
29 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_3630';
31 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3630.c' , TEST_DIR + filesep() + 'bug_3630.c');
36 ilib_build('libc_fun',['c_sum','c_intsum';'c_sub','c_intsub'],files,[]);
38 [primitives1,commandes] = what();
39 nbprimitives1 = size(primitives1,'*');
41 // load the shared library
46 [primitives2,commandes] = what();
47 nbprimitives2 = size(primitives2,'*');
49 if (nbprimitives2 - nbprimitives1) <> 2 then pause,end
51 if ~or(primitives2 == 'c_sum') then pause,end
52 if ~or(primitives2 == 'c_sub') then pause,end
54 // ulink() all libraries
59 [primitives3,commandes] = what();
60 nbprimitives3 = size(primitives3,'*');
62 if or(primitives3 == 'c_sum') then pause,end
63 if or(primitives3 == 'c_sub') then pause,end
65 if (nbprimitives3 - nbprimitives1) <> 0 then pause,end
69 // =============================================================================