1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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);
|
