2011-04-06 03:42:33 +00:00
|
|
|
|
2011-06-15 18:19:50 +00:00
|
|
|
|
|
|
|
|
|
|
|
// -*- rust -*-
|
2011-10-18 22:07:40 +00:00
|
|
|
type compare<T> = fn@(T, T) -> bool;
|
2011-04-06 03:42:33 +00:00
|
|
|
|
2012-01-05 14:35:37 +00:00
|
|
|
fn test_generic<T: copy>(expected: T, eq: compare<T>) {
|
2012-02-15 08:40:42 +00:00
|
|
|
let actual: T = alt check true { true { expected } };
|
2011-06-15 18:19:50 +00:00
|
|
|
assert (eq(expected, actual));
|
2011-04-06 03:42:33 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_bool() {
|
2011-10-06 10:50:24 +00:00
|
|
|
fn compare_bool(&&b1: bool, &&b2: bool) -> bool { ret b1 == b2; }
|
2012-02-07 14:37:08 +00:00
|
|
|
let eq = compare_bool(_, _);
|
2011-08-13 07:10:18 +00:00
|
|
|
test_generic::<bool>(true, eq);
|
2011-04-06 03:42:33 +00:00
|
|
|
}
|
|
|
|
|
2011-07-26 12:49:40 +00:00
|
|
|
fn test_rec() {
|
2011-07-27 12:19:39 +00:00
|
|
|
type t = {a: int, b: int};
|
2011-06-15 18:19:50 +00:00
|
|
|
|
2011-09-12 09:27:30 +00:00
|
|
|
fn compare_rec(t1: t, t2: t) -> bool { ret t1 == t2; }
|
2012-02-07 14:37:08 +00:00
|
|
|
let eq = compare_rec(_, _);
|
2011-08-13 07:10:18 +00:00
|
|
|
test_generic::<t>({a: 1, b: 2}, eq);
|
2011-04-06 03:42:33 +00:00
|
|
|
}
|
|
|
|
|
2011-08-10 16:27:22 +00:00
|
|
|
fn main() { test_bool(); test_rec(); }
|