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