32 lines
617 B
Scilab
32 lines
617 B
Scilab
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);
|