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