2011-06-15 13:19:50 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
2011-03-27 19:20:12 -05:00
|
|
|
// -*- rust -*-
|
|
|
|
|
|
|
|
// Tests for if as expressions with dynamic type sizes
|
2011-06-15 13:19:50 -05:00
|
|
|
type compare[T] = fn(&T, &T) -> bool ;
|
2011-03-27 19:20:12 -05:00
|
|
|
|
|
|
|
fn test_generic[T](&T expected, &T not_expected, &compare[T] eq) {
|
2011-06-15 13:19:50 -05:00
|
|
|
let T actual = if (true) { expected } else { not_expected };
|
|
|
|
assert (eq(expected, actual));
|
2011-03-27 19:20:12 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_bool() {
|
2011-06-15 13:19:50 -05:00
|
|
|
fn compare_bool(&bool b1, &bool b2) -> bool { ret b1 == b2; }
|
|
|
|
auto eq = bind compare_bool(_, _);
|
|
|
|
test_generic[bool](true, false, eq);
|
2011-03-27 19:20:12 -05:00
|
|
|
}
|
|
|
|
|
2011-07-26 07:49:40 -05:00
|
|
|
fn test_rec() {
|
|
|
|
type t = rec(int a, int b);
|
2011-06-15 13:19:50 -05:00
|
|
|
|
2011-07-26 07:49:40 -05:00
|
|
|
fn compare_rec(&t t1, &t t2) -> bool { ret t1 == t2; }
|
|
|
|
auto eq = bind compare_rec(_, _);
|
|
|
|
test_generic[t](rec(a=1, b=2), rec(a=2, b=3), eq);
|
2011-03-27 19:20:12 -05:00
|
|
|
}
|
|
|
|
|
2011-07-26 07:49:40 -05:00
|
|
|
fn main() { test_bool(); test_rec(); }
|