2011-06-15 13:19:50 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
2011-03-27 23:46:16 -05:00
|
|
|
// -*- rust -*-
|
|
|
|
|
|
|
|
// Tests for using alt as an expression
|
2011-04-02 18:32:34 -05:00
|
|
|
fn test_basic() {
|
2011-06-25 10:45:49 -05:00
|
|
|
let bool rs = alt (true) { case (true) { true } case (false) { false } };
|
|
|
|
assert (rs);
|
|
|
|
rs = alt (false) { case (true) { false } case (false) { true } };
|
|
|
|
assert (rs);
|
2011-03-27 23:46:16 -05:00
|
|
|
}
|
|
|
|
|
2011-04-02 18:32:34 -05:00
|
|
|
fn test_inferrence() {
|
2011-06-25 10:45:49 -05:00
|
|
|
auto rs = alt (true) { case (true) { true } case (false) { false } };
|
|
|
|
assert (rs);
|
2011-04-02 18:32:34 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_alt_as_alt_head() {
|
2011-06-15 13:19:50 -05:00
|
|
|
// Yeah, this is kind of confusing ...
|
|
|
|
|
2011-06-25 10:45:49 -05:00
|
|
|
auto rs =
|
2011-06-15 13:19:50 -05:00
|
|
|
alt (alt (false) { case (true) { true } case (false) { false } }) {
|
|
|
|
case (true) { false }
|
|
|
|
case (false) { true }
|
|
|
|
};
|
2011-06-25 10:45:49 -05:00
|
|
|
assert (rs);
|
2011-04-02 18:32:34 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
fn test_alt_as_block_result() {
|
2011-06-25 10:45:49 -05:00
|
|
|
auto rs =
|
2011-06-15 13:19:50 -05:00
|
|
|
alt (false) {
|
|
|
|
case (true) { false }
|
|
|
|
case (false) {
|
|
|
|
alt (true) { case (true) { true } case (false) { false } }
|
|
|
|
}
|
|
|
|
};
|
2011-06-25 10:45:49 -05:00
|
|
|
assert (rs);
|
2011-04-02 18:32:34 -05:00
|
|
|
}
|
|
|
|
|
2011-03-27 23:46:16 -05:00
|
|
|
fn main() {
|
2011-06-15 13:19:50 -05:00
|
|
|
test_basic();
|
|
|
|
test_inferrence();
|
|
|
|
test_alt_as_alt_head();
|
|
|
|
test_alt_as_block_result();
|
|
|
|
}
|