// -*- rust -*-

type compare[T] = fn(&T t1, &T t2) -> bool;

fn test_generic[T](&T expected, &compare[T] eq) {
  let T actual = alt (true) {
    case (true) {
      expected
    }
  };
  assert (eq(expected, actual));
}

fn test_bool() {
  fn compare_bool(&bool b1, &bool b2) -> bool {
    ret b1 == b2;
  }
  auto eq = bind compare_bool(_, _);
  test_generic[bool](true, eq);
}

fn test_tup() {
  type t = tup(int, int);
  fn compare_tup(&t t1, &t t2) -> bool {
    ret t1 == t2;
  }
  auto eq = bind compare_tup(_, _);
  test_generic[t](tup(1, 2), eq);
}

fn main() {
  test_bool();
  test_tup();
}