2011-06-15 13:19:50 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
2011-04-02 18:32:34 -05:00
|
|
|
// -*- rust -*-
|
|
|
|
|
|
|
|
// Tests for alt as expressions resulting in structural types
|
|
|
|
fn test_rec() {
|
2011-06-25 10:45:49 -05:00
|
|
|
auto rs = alt (true) { case (true) { rec(i=100) } };
|
|
|
|
assert (rs == rec(i=100));
|
2011-04-02 18:32:34 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_tag() {
|
2011-06-15 13:19:50 -05:00
|
|
|
tag mood { happy; sad; }
|
2011-06-25 10:45:49 -05:00
|
|
|
auto rs = alt (true) { case (true) { happy } case (false) { sad } };
|
|
|
|
assert (rs == happy);
|
2011-04-02 18:32:34 -05:00
|
|
|
}
|
|
|
|
|
2011-06-15 13:19:50 -05:00
|
|
|
fn main() { test_rec(); test_tag(); }
|