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