1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ????-2008 - INRIA
// Copyright (C) 2009 - DIGITEO
//
// This file is distributed under the same license as the Scilab package.
// =============================================================================
// <-- JVM NOT MANDATORY -->
//================================================
// test addinter
//================================================
ilib_verbose(0);
if ~c_link('libintertest') then
curPath = pwd();
// creates a subdirectory in TMPDIR
// dynamic link on linux copy some files in TMPDIR
// then to not have some conflict
// we create a subdirectory in TMPDIR with sources
// previously we had :
// lib_gen_Make: Did not copy libintertest.c: Source and target directories are the same (TMPDIR).
chdir(TMPDIR);
mkdir('addinter');
chdir('addinter');
src_file = SCI+filesep()+'modules'+filesep()+'dynamic_link'+filesep()+'tests'+filesep()+'unit_tests'+filesep()+'addinter.c';
dst_file = TMPDIR + filesep() + 'addinter' + filesep() + 'addinter.c';
copyfile(src_file, dst_file);
files=['addinter.c'];
ilib_build('libintertest',['scifun1','intfun1'],files,[]);
// load the shared library
exec loader.sce ;
// check addinter add scifun1
if ( funptr('scifun1') == 0 ) then bugmes();quit;end
if norm(scifun1(%pi)- sin(%pi+1)/%pi ) > %eps then bugmes();quit;end
// remove scifun1
if clearfun('scifun1') <> %T then bugmes();quit;end
// remove dynamic library link
ulink();
chdir(curPath);
end
//================================================
|
