1exec("swigtest.start", -1);
2
3s = new_Square(10);
4
5// Functions
6checkequal(do_op(s, areapt()), 100.0, "Square area");
7checkequal(do_op(s, perimeterpt()), 40.0, "Square perimeter");
8
9// Variables
10checkequal(do_op(s, areavar_get()), 100.0, "Square area");
11areavar_set(perimeterpt());
12checkequal(do_op(s, areavar_get()), 40.0, "Square perimeter");
13
14// Constants
15checkequal(do_op(s, AREAPT_get()), 100.0, "Square area");
16checkequal(do_op(s, PERIMPT_get()), 40.0, "Square perimeter");
17
18delete_Square(s);
19
20exec("swigtest.quit", -1);
21