f8774be92d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@12824 626c5289-ae23-0410-ae9c-e8d60b6d4f22
59 lines
1.1 KiB
Mathematica
59 lines
1.1 KiB
Mathematica
# file: runme_gl_func.m
|
|
|
|
# test whether module can be loaded
|
|
# in a function (global cvar)
|
|
|
|
1;
|
|
|
|
##### BEGIN TEST #####
|
|
function func
|
|
example
|
|
global cvar
|
|
assert(cvar.ivar == example.ifunc())
|
|
endfunction
|
|
|
|
# test that everything works from the base context
|
|
example
|
|
global cvar
|
|
assert(cvar.ivar == example.ifunc())
|
|
|
|
# test loading in a function
|
|
func
|
|
|
|
# test a second time to check everything works
|
|
func
|
|
##### END TEST #####
|
|
|
|
# clearing a module results in a segfault for Octave <= 3.0.*
|
|
# (tested on Octave 3.0.5), so skip the following test
|
|
try
|
|
vers = cellfun("str2num", strsplit(OCTAVE_VERSION, "."));
|
|
catch
|
|
vers = cellfun("str2num", cellstr(split(OCTAVE_VERSION, ".")));
|
|
end_try_catch
|
|
assert(length(vers) >= 2);
|
|
if vers(1) < 3 || (vers(1) == 3 && vers(2) == 0)
|
|
disp("skipping 'clear all' test");
|
|
return
|
|
endif
|
|
|
|
clear all;
|
|
|
|
##### BEGIN TEST #####
|
|
function func
|
|
example
|
|
global cvar
|
|
assert(cvar.ivar == example.ifunc())
|
|
endfunction
|
|
|
|
# test that everything works from the base context
|
|
example
|
|
global cvar
|
|
assert(cvar.ivar == example.ifunc())
|
|
|
|
# test loading in a function
|
|
func
|
|
|
|
# test a second time to check everything works
|
|
func
|
|
##### END TEST #####
|