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(obj).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."); } };