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

scilab: implement test global_vars

Browse source
This commit is contained in:
Simon Marchetto 2014-03-24 10:34:52 +01:00
commit 2073c7a1cc
1 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Examples/test-suite/scilab/global_vars_runme.sci Normal file
View file

@ -0,0 +1,31 @@
exec("swigtest.start", -1);
b_set("hello");
checkequal(b_get(), "hello", "b_get()");
sa = new_A();
A_x_set(sa, 5);
checkequal(A_x_get(sa), 5, "A_x_get(sa)");
a_set(sa);
checkequal(A_x_get(a_get()), 5, "A_x_get(a)");
ap_set(sa);
A_x_set(sa, 14);
checkequal(A_x_get(ap_get()), 14, "A_x_get(ap)");
delete_A(sa);
sa2 = new_A();
cap_set(sa2);
A_x_set(sa2, 16);
checkequal(A_x_get(cap_get()), 16, "A_x_get(cap)");
checkequal(A_x_get(ar_get()), 5, "A_x_get(ar)");
ar_set(sa2);
checkequal(A_x_get(ar_get()), 16, "A_x_get(ar)");
delete_A(sa2);
x_set(11);
checkequal(x_get(), 11, "x_get()");
exec("swigtest.quit", -1);