jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Examples/octave/module_load/runme.m: update 'exist()' statements for Octave >= 4.4

Browse source
This commit is contained in:
Karl Wette 2018-05-11 21:15:09 +10:00
commit 64ad3f0ca8
1 changed files with 27 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

41
Examples/octave/module_load/runme.m
View file

@ -5,60 +5,70 @@ endif
# load module # load module
clear all; clear all;
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
clear all clear all
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
clear all clear all
# load module in a function globally before base context # load module in a function globally before base context
clear all; clear all;
function testme_1 function testme_1
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
endfunction endfunction
testme_1 testme_1
testme_1 testme_1
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
clear all clear all
function testme_2 function testme_2
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
endfunction endfunction
testme_2 testme_2
testme_2 testme_2
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
clear all clear all
# load module in a function globally after base context # load module in a function globally after base context
clear all; clear all;
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
function testme_3 function testme_3
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
endfunction endfunction
testme_3 testme_3
testme_3 testme_3
clear all clear all
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
function testme_4 function testme_4
assert(exist("swigexample") == 3);
swigexample; swigexample;
assert(isglobal("swigexample"));
assert(cvar.ivar == ifunc); assert(cvar.ivar == ifunc);
assert(exist("swigexample","var"));
endfunction endfunction
testme_4 testme_4
testme_4 testme_4
@ -71,13 +81,16 @@ endif
# load module with no cvar # load module with no cvar
clear all; clear all;
who;
assert(exist("swigexample2") == 3);
swigexample2; swigexample2;
assert(isglobal("swigexample2"));
assert(swigexample2.ivar == ifunc); assert(swigexample2.ivar == ifunc);
assert(exist("swigexample2","var")); assert(!exist("cvar", "var"));
assert(!isglobal("cvar"))
clear all clear all
assert(exist("swigexample2") == 3);
swigexample2; swigexample2;
assert(isglobal("swigexample2"));
assert(swigexample2.ivar == ifunc); assert(swigexample2.ivar == ifunc);
assert(exist("swigexample2","var")); assert(!exist("cvar", "var"));
assert(!isglobal("cvar"))
clear all clear all