2011-06-15 18:19:50 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
2011-04-02 23:32:34 +00:00
|
|
|
// -*- rust -*-
|
|
|
|
|
|
|
|
// Tests for alt as expressions resulting in structural types
|
|
|
|
fn test_rec() {
|
2011-07-27 12:19:39 +00:00
|
|
|
let rs = alt true { true { {i: 100} } };
|
|
|
|
assert (rs == {i: 100});
|
2011-04-02 23:32:34 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_tag() {
|
2011-06-15 18:19:50 +00:00
|
|
|
tag mood { happy; sad; }
|
2011-07-27 12:19:39 +00:00
|
|
|
let rs = alt true { true { happy } false { sad } };
|
2011-06-25 15:45:49 +00:00
|
|
|
assert (rs == happy);
|
2011-04-02 23:32:34 +00:00
|
|
|
}
|
|
|
|
|
2011-06-15 18:19:50 +00:00
|
|
|
fn main() { test_rec(); test_tag(); }
|