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