scilab/modules/dynamic_link/tests/nonreg_tests/bug_2085.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2008 - INRIA - 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 2085 -->
  11 //
  12 // <-- Bugzilla URL -->
  13 // http://bugzilla.scilab.org/show_bug.cgi?id=2085
  14 //
  15 // <-- Short Description -->
  16 // this example fails on some pc ???
  17
  18 // exec SCI/modules/dynamic_link/tests/nonreg_tests/bug_2085.tst;
  19
  20 ilib_verbose(0);
  21
  22 test_path = get_absolute_file_path('bug_2085.tst');
  23
  24 currentpath = pwd();
  25
  26 cd TMPDIR;
  27 OS_TMP_DIR = pwd();
  28
  29
  30 mkdir(OS_TMP_DIR,'bug_2085');
  31 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_2085';
  32
  33 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_2085.c' , TEST_DIR + filesep() + 'bug_2085.c');
  34
  35 chdir(TEST_DIR);
  36
  37 files=['bug_2085.c'];
  38 ilib_build('bug',['ex2c_1','intex2c'],files,[]);
  39
  40 // load the shared library
  41 exec loader.sce;
  42
  43 chdir(currentpath);
  44
  45 //using the new primitive
  46 r = [1,2,3];
  47 nr = [4,5,5];
  48
  49 a = ex2c_1(r+%i*nr);
  50 res = (2 * r) +%i*(nr *3);
  51
  52 assert_checkequal(a, res);
  53
  54 // ulink() all libraries
  55 ulink();
  56
  57 //remove TMP_DIR
  58 rmdir(TEST_DIR,'s');
  59 // =============================================================================