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

   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 // <-- CLI SHELL MODE -->
   8 // <-- Non-regression test for bug 2085 -->
   9 //
  10 // <-- Bugzilla URL -->
  11 // http://bugzilla.scilab.org/show_bug.cgi?id=2085
  12 //
  13 // <-- Short Description -->
  14 // this example fails on some pc ???
  15 // exec SCI/modules/dynamic_link/tests/nonreg_tests/bug_2085.tst;
  16 ilib_verbose(0);
  17 test_path = get_absolute_file_path('bug_2085.tst');
  18 currentpath = pwd();
  19 cd TMPDIR;
  20 OS_TMP_DIR = pwd();
  21 mkdir(OS_TMP_DIR,'bug_2085');
  22 TEST_DIR = OS_TMP_DIR + filesep() + 'bug_2085';
  23 copyfile(SCI+'/modules/dynamic_link/tests/nonreg_tests/bug_2085.c' , TEST_DIR + filesep() + 'bug_2085.c');
  24 chdir(TEST_DIR);
  25 files=['bug_2085.c'];
  26 ilib_build('bug',['ex2c_1','intex2c'],files,[]);
  27 // load the shared library
  28 exec loader.sce;
  29 chdir(currentpath);
  30 //using the new primitive
  31 r = [1,2,3];
  32 nr = [4,5,5];
  33 a = ex2c_1(r+%i*nr);
  34 res = (2 * r) +%i*(nr *3);
  35 assert_checkequal(a, res);
  36 // ulink() all libraries
  37 ulink();
  38 //remove TMP_DIR
  39 rmdir(TEST_DIR,'s');
  40 // =============================================================================