mirror of https://github.com/swig/swig
25 lines
613 B
Scilab
25 lines
613 B
Scilab
exec("swigtest.start", -1);
|
|
|
|
// Test on NULL
|
|
null = getNull();
|
|
checkequal(SWIG_this(null), 0, "SWIG_this(null)");
|
|
|
|
null = SWIG_ptr(0);
|
|
checkequal(isNull(null), %T, "func(null)");
|
|
|
|
// Test on variable
|
|
expected_foo_addr = getFooAddress();
|
|
foo_addr = SWIG_this(pfoo_get());
|
|
checkequal(foo_addr, expected_foo_addr, "SWIG_this(pfoo_get())");
|
|
|
|
pfoo = SWIG_ptr(foo_addr);
|
|
checkequal(equalFooPointer(pfoo), %T, "equalFooPointer(pfoo)");
|
|
|
|
// Test conversion of mlist type pointers
|
|
stA = new_structA();
|
|
checkequal(typeof(stA), "_p_structA");
|
|
p = SWIG_ptr(stA);
|
|
checkequal(typeof(p), "pointer");
|
|
|
|
exec("swigtest.quit", -1);
|