84 lines
1.6 KiB
Matlab
84 lines
1.6 KiB
Matlab
# do not dump Octave core
|
|
if exist("crash_dumps_octave_core", "builtin")
|
|
crash_dumps_octave_core(0);
|
|
endif
|
|
|
|
# load module
|
|
clear all;
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
clear all
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
clear all
|
|
|
|
# load module in a function globally before base context
|
|
clear all;
|
|
function testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
endfunction
|
|
testme
|
|
testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
clear all
|
|
function testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
endfunction
|
|
testme
|
|
testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
clear all
|
|
|
|
# load module in a function globally after base context
|
|
clear all;
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
function testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
endfunction
|
|
testme
|
|
testme
|
|
clear all
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
function testme
|
|
swigexample;
|
|
assert(cvar.ivar == ifunc);
|
|
assert(exist("swigexample","var"));
|
|
endfunction
|
|
testme
|
|
testme
|
|
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;
|
|
swigexample2;
|
|
assert(swigexample2.ivar == ifunc);
|
|
assert(exist("swigexample2","var"));
|
|
assert(!isglobal("cvar"))
|
|
clear all
|
|
swigexample2;
|
|
assert(swigexample2.ivar == ifunc);
|
|
assert(exist("swigexample2","var"));
|
|
assert(!isglobal("cvar"))
|
|
clear all
|