scilab: implement member_pointer test
This commit is contained in:
parent
843e8f6741
commit
4edea13385
1 changed files with 20 additions and 0 deletions
20
Examples/test-suite/scilab/member_pointer_runme.sci
Normal file
20
Examples/test-suite/scilab/member_pointer_runme.sci
Normal file
|
|
@ -0,0 +1,20 @@
|
||||||
|
exec("swigtest.start", -1);
|
||||||
|
|
||||||
|
s = new_Square(10);
|
||||||
|
|
||||||
|
// Functions
|
||||||
|
checkequal(do_op(s, areapt()), 100.0, "Square area");
|
||||||
|
checkequal(do_op(s, perimeterpt()), 40.0, "Square perimeter");
|
||||||
|
|
||||||
|
// Variables
|
||||||
|
checkequal(do_op(s, areavar_get()), 100.0, "Square area");
|
||||||
|
areavar_set(perimeterpt());
|
||||||
|
checkequal(do_op(s, areavar_get()), 40.0, "Square perimeter");
|
||||||
|
|
||||||
|
// Constants
|
||||||
|
checkequal(do_op(s, AREAPT_get()), 100.0, "Square area");
|
||||||
|
checkequal(do_op(s, PERIMPT_get()), 40.0, "Square perimeter");
|
||||||
|
|
||||||
|
delete_Square(s);
|
||||||
|
|
||||||
|
exec("swigtest.quit", -1);
|
||||||
Loading…
Add table
Add a link
Reference in a new issue