rust/src/test/run-pass/expr-alt-generic.rs

26 lines
585 B
Rust
Raw Normal View History

// -*- rust -*-
type compare[T] = fn(&T, &T) -> 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(); }