scilab/modules/dynamic_link/tests/nonreg_tests/bug_3639.dia.ref

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2008-2011 - DIGITEO - Allan CORNET
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7 //
   8 // <-- CLI SHELL MODE -->
   9 //
  10 // <-- Non-regression test for bug 3639 -->
  11 //
  12 // <-- Bugzilla URL -->
  13 // http://bugzilla.scilab.org/show_bug.cgi?id=3639
  14 //
  15 // <-- Short Description -->
  16 // link without parameters can crash
  17 ilib_verbose(0);
  18 currentpath = pwd();
  19 cd TMPDIR;
  20 OS_TMP_DIR = pwd();
  21 TEST_NAME = 'bug_3639_1';
  22 mkdir(OS_TMP_DIR, TEST_NAME);
  23 TEST_DIR_1 = OS_TMP_DIR + filesep() + TEST_NAME;
  24 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3639.c' , TEST_DIR_1 + filesep() + 'bug_3639.c');
  25 chdir(TEST_DIR_1);
  26 files = ['bug_3639.c'];
  27 ilib_build('libc_fun1', ['c_sum1','c_intsum'; 'c_sub1', 'c_intsub'], files, []);
  28 // load the shared library
  29 info_link = link();
  30 assert_checkequal(info_link, []);
  31 exec loader.sce;
  32 TEST_NAME = 'bug_3639_2';
  33 mkdir(OS_TMP_DIR, TEST_NAME);
  34 TEST_DIR_2 = OS_TMP_DIR + filesep() + TEST_NAME;
  35 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_3639.c' , TEST_DIR_2 + filesep() + 'bug_3639.c');
  36 chdir(TEST_DIR_2);
  37 ilib_build('libc_fun2', ['c_sum2', 'c_intsum'; 'c_sub2','c_intsub'], files, []);
  38 info_link = link();
  39 assert_checkequal(info_link, 'libc_fun1');
  40 exec loader.sce;
  41 info_link = link();
  42 assert_checkequal(info_link, ['libc_fun2','libc_fun1']);
  43 // cleaning
  44 chdir(currentpath);
  45 // ulink() all libraries
  46 ulink();
  47 clearfun('c_sum1');
  48 clearfun('c_sub1');
  49 clearfun('c_sum2');
  50 clearfun('c_sub2');
  51 //remove TMP_DIR
  52 rmdir(TEST_DIR_1,'s');
  53 rmdir(TEST_DIR_2,'s');
  54 // =============================================================================