new object $regression_test: $root; var test_objects = [$mime_lib] public method .test() { var obj, meth; for obj in (test_objects) { meth = "test" + tosym(tostr(this).substr(2)); (> .(meth)() <); } return "All test succeeded."; } public method .test_mime_lib() { (> $mime_lib.rehash() <); if obj.mime_type("cdc") != "application/x-coldc" { throw ~test, "Mime types is corrupted."; } };