mirror of https://github.com/swig/swig
101 lines
2.4 KiB
Matlab
101 lines
2.4 KiB
Matlab
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
# load module
|
|
clear all;
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
clear all
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
clear all
|
|
|
|
# load module in a function globally before base context
|
|
clear all;
|
|
function testme_1
|
|
% exist("swigexample") returns 1 (variable) in octave >= 4.4 < 6 but 3 (.oct file) in octave >= 6
|
|
assert(exist("swigexample"));
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
endfunction
|
|
testme_1
|
|
testme_1
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
clear all
|
|
function testme_2
|
|
% exist("swigexample") returns 1 (variable) in octave >= 4.4 < 6 but 3 (.oct file) in octave >= 6
|
|
assert(exist("swigexample"));
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
endfunction
|
|
testme_2
|
|
testme_2
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
clear all
|
|
|
|
# load module in a function globally after base context
|
|
clear all;
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
function testme_3
|
|
% exist("swigexample") returns 1 (variable) in octave >= 4.4 < 6 but 3 (.oct file) in octave >= 6
|
|
assert(exist("swigexample"));
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
endfunction
|
|
testme_3
|
|
testme_3
|
|
clear all
|
|
assert(exist("swigexample") == 3);
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
function testme_4
|
|
% exist("swigexample") returns 1 (variable) in octave >= 4.4 < 6 but 3 (.oct file) in octave >= 6
|
|
assert(exist("swigexample"));
|
|
swigexample;
|
|
assert(isglobal("swigexample"));
|
|
assert(cvar.ivar == ifunc);
|
|
endfunction
|
|
testme_4
|
|
testme_4
|
|
clear all
|
|
|
|
# octave 3.0.5 randomly crashes on the remaining tests
|
|
if !swig_octave_prereq(3,2,0)
|
|
exit
|
|
endif
|
|
|
|
# load module with no cvar
|
|
clear all;
|
|
who;
|
|
assert(exist("swigexample2") == 3);
|
|
swigexample2;
|
|
assert(isglobal("swigexample2"));
|
|
assert(swigexample2.ivar == ifunc);
|
|
assert(!exist("cvar", "var"));
|
|
clear all
|
|
assert(exist("swigexample2") == 3);
|
|
swigexample2;
|
|
assert(isglobal("swigexample2"));
|
|
assert(swigexample2.ivar == ifunc);
|
|
assert(!exist("cvar", "var"));
|
|
clear all
|