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 // =============================================================================