2011-04-05 22:42:33 -05:00
|
|
|
|
2011-06-15 13:19:50 -05:00
|
|
|
|
|
|
|
|
|
|
|
// -*- rust -*-
|
|
|
|
type compare[T] = fn(&T, &T) -> bool ;
|
2011-04-05 22:42:33 -05:00
|
|
|
|
|
|
|
fn test_generic[T](&T expected, &compare[T] eq) {
|
2011-06-15 13:19:50 -05:00
|
|
|
let T actual = alt (true) { case (true) { expected } };
|
|
|
|
assert (eq(expected, actual));
|
2011-04-05 22:42:33 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_vec() {
|
2011-06-15 13:19:50 -05:00
|
|
|
fn compare_vec(&vec[int] v1, &vec[int] v2) -> bool { ret v1 == v2; }
|
|
|
|
auto eq = bind compare_vec(_, _);
|
|
|
|
test_generic[vec[int]]([1, 2, 3], eq);
|
2011-04-05 22:42:33 -05:00
|
|
|
}
|
|
|
|
|
2011-06-15 13:19:50 -05:00
|
|
|
fn main() { test_vec(); }
|